LMD 2009 - Theme Engine - Revision history

Fduch at 12:03, 18 August 2017

2017-08-18T12:03:42Z

← Older revision		Revision as of 14:03, 18 August 2017
Line 39:		Line 39:
	if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then		if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then
	begin		begin
	aPartId := PP_BAR;		aPartId := PP_BAR;
	if Direction in [mdVertical, mdVerticalReverse] then		if Direction in [mdVertical, mdVerticalReverse] then
	aPartId := PP_BARVERT;		aPartId := PP_BARVERT;
	DrawThemeBackGround (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, nil);
	{$ifdef CLR}		DrawThemeBackGround (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, nil);
	GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, FRect);		{$ifdef CLR}
	{$else ifdef CLR}		GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, FRect);
	GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, {$IFDEF LMDDISABLE_LMDTHEMES}@{$ENDIF}FRect);		{$else ifdef CLR}
	{$endif ifdef CLR}		GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, {$IFDEF LMDDISABLE_LMDTHEMES}@{$ENDIF}FRect);
			{$endif ifdef CLR}
	end		end

Line 56:		Line 57:
	if (lThemeMode <> ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster		if (lThemeMode <> ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster
	begin		begin
	if Direction in [mdVertical, mdVerticalReverse] then		if Direction in [mdVertical, mdVerticalReverse] then
	Details := tpBarVert		Details := tpBarVert
	else		else
	Details := tpBar;		Details := tpBar;
	LMDThemeServices.DrawElement(lThemeMode, Canvas.Handle, Details, FRect);		LMDThemeServices.DrawElement(lThemeMode, Canvas.Handle, Details, FRect);
	FRect := LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);		FRect := LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);
	end		end
	</syntaxhighlight>		</syntaxhighlight>

Fduch at 12:02, 18 August 2017

2017-08-18T12:02:39Z

← Older revision		Revision as of 14:02, 18 August 2017
Line 21:		Line 21:

	''LMDXPStyles'' and ''LMDXPThemeManager'' units removed. <br>Wherever it is possible, system ''Themes'' and ''UxTheme'' units are used.<br>CtlXP property is now deprecated (moved to public), it is no longer used and remains only for compatibility reasons. ThemeMode (of TLMDThemeMode type, defined in LMDClass unit) property introduced to be used instead of CtlXP. <br>Type '''TLMDThemeMode''' = (ttmNone, ttmPlatform, ttmNative):<br>ttmNone = No global themeing, use control settings<br>ttmPlatform = CtlXP or UseXPThemes<br>ttmNative = our native theme engine<br>The ''intfThemes'' unit is now deprecated.<br>LMDSetCtlXP helper method, which was defined in ''intfThemes'', is replaced by LMDSetThemeMode, defined in ''LMDThemes'' unit:<br>		''LMDXPStyles'' and ''LMDXPThemeManager'' units removed. <br>Wherever it is possible, system ''Themes'' and ''UxTheme'' units are used.<br>CtlXP property is now deprecated (moved to public), it is no longer used and remains only for compatibility reasons. ThemeMode (of TLMDThemeMode type, defined in LMDClass unit) property introduced to be used instead of CtlXP. <br>Type '''TLMDThemeMode''' = (ttmNone, ttmPlatform, ttmNative):<br>ttmNone = No global themeing, use control settings<br>ttmPlatform = CtlXP or UseXPThemes<br>ttmNative = our native theme engine<br>The ''intfThemes'' unit is now deprecated.<br>LMDSetCtlXP helper method, which was defined in ''intfThemes'', is replaced by LMDSetThemeMode, defined in ''LMDThemes'' unit:<br>
	<~~pre class~~="~~brush:~~delphi">procedure LMDSetThemeMode(aParent: TWinControl; const Value: TLMDThemeMode);overload;		<syntaxhighlight lang="delphi">procedure LMDSetThemeMode(aParent: TWinControl; const Value: TLMDThemeMode);overload;
	procedure LMDSetThemeMode(aParent: TCustomForm; const Value: TLMDThemeMode);overload;</~~pre~~>		procedure LMDSetThemeMode(aParent: TCustomForm; const Value: TLMDThemeMode);overload;</syntaxhighlight>
	The call<br>		The call<br>
	<~~pre class~~="~~brush:~~delphi">LMDSetCtlXP (self, true)~~; &lt~~;</~~pre~~>		<syntaxhighlight lang="delphi">LMDSetCtlXP (self, true);</syntaxhighlight>
	must be replaced by<br>		must be replaced by<br>
	<~~pre class~~="~~brush:~~delphi">LMDSetThemeMode(self, ttmPlatform);</~~pre~~>		<syntaxhighlight lang="delphi">LMDSetThemeMode(self, ttmPlatform);</syntaxhighlight>
	The call like<br>		The call like<br>
	<~~pre class~~="~~brush:~~delphi">LMDSetCtlXP (self, false);</~~pre~~>		<syntaxhighlight lang="delphi">LMDSetCtlXP (self, false);</syntaxhighlight>
	must be replaced by<br>		must be replaced by<br>
	<~~pre class~~="~~brush:~~delphi">LMDSetThemeMode(self, ttmNone);</~~pre~~>		<syntaxhighlight lang="delphi">LMDSetThemeMode(self, ttmNone);</syntaxhighlight>

	=== Changes to component code ===		=== Changes to component code ===
Line 36:		Line 36:
	A standard example for replacing code:		A standard example for replacing code:

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then		if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then
	begin		begin
Line 50:		Line 50:
	end		end

	</~~pre~~>changes now to:		</syntaxhighlight>changes now to:

	<~~pre class~~="~~brush:~~delphi">		<syntaxhighlight lang="delphi">
	lThemeMode := UseThemeMode; // store current ThemeMode locally when it is used more than once		lThemeMode := UseThemeMode; // store current ThemeMode locally when it is used more than once
	if (lThemeMode <> ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster		if (lThemeMode <> ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster
Line 63:		Line 63:
	FRect := LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);		FRect := LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);
	end		end
	</~~pre~~>		</syntaxhighlight>
	As one can see, code becomes much more cleaner and readable. Notes:		As one can see, code becomes much more cleaner and readable. Notes:

Line 75:		Line 75:

	Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br>		Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br>
	<~~pre class~~="~~brush:~~delphi">function ActivateColorScheme(ColorScheme: WideString = ''): boolean;</~~pre~~>		<syntaxhighlight lang="delphi">function ActivateColorScheme(ColorScheme: WideString = ''): boolean;</syntaxhighlight>
	'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of ''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.		'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of ''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.

Bocharov at 13:04, 13 May 2010

2010-05-13T13:04:26Z

← Older revision		Revision as of 15:04, 13 May 2010
Line 75:		Line 75:

	Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br>		Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br>
	<pre class="brush:delphi">function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </pre>;		<pre class="brush:delphi">function ActivateColorScheme(ColorScheme: WideString = ''): boolean;</pre>
	'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.		'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of ''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.

Bocharov at 13:03, 13 May 2010

2010-05-13T13:03:49Z

← Older revision		Revision as of 15:03, 13 May 2010
Line 74:		Line 74:
	=== Changes to native theme engine ===		=== Changes to native theme engine ===

	Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br>~~<~~pre class="brush:delphi"~~>~~function ActivateColorScheme(ColorScheme: WideString = ''): boolean; ~~<~~/pre~~&gt~~;		Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br>
	'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>		<pre class="brush:delphi">function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </pre>;
	'''Note:''' The behaviour of''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.		'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.

Bocharov at 13:02, 13 May 2010

2010-05-13T13:02:59Z

← Older revision		Revision as of 15:02, 13 May 2010
Line 74:		Line 74:
	=== Changes to native theme engine ===		=== Changes to native theme engine ===

	Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br><delphi>function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </~~delphi>~~'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of ''ActivateTheme'' method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.		Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br><pre class="brush:delphi">function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </pre>
			'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>
			'''Note:''' The behaviour of''ActivateTheme''method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.

Bocharov at 11:24, 13 May 2010

2010-05-13T11:24:59Z

← Older revision		Revision as of 13:24, 13 May 2010
Line 21:		Line 21:

	''LMDXPStyles'' and ''LMDXPThemeManager'' units removed. <br>Wherever it is possible, system ''Themes'' and ''UxTheme'' units are used.<br>CtlXP property is now deprecated (moved to public), it is no longer used and remains only for compatibility reasons. ThemeMode (of TLMDThemeMode type, defined in LMDClass unit) property introduced to be used instead of CtlXP. <br>Type '''TLMDThemeMode''' = (ttmNone, ttmPlatform, ttmNative):<br>ttmNone = No global themeing, use control settings<br>ttmPlatform = CtlXP or UseXPThemes<br>ttmNative = our native theme engine<br>The ''intfThemes'' unit is now deprecated.<br>LMDSetCtlXP helper method, which was defined in ''intfThemes'', is replaced by LMDSetThemeMode, defined in ''LMDThemes'' unit:<br>		''LMDXPStyles'' and ''LMDXPThemeManager'' units removed. <br>Wherever it is possible, system ''Themes'' and ''UxTheme'' units are used.<br>CtlXP property is now deprecated (moved to public), it is no longer used and remains only for compatibility reasons. ThemeMode (of TLMDThemeMode type, defined in LMDClass unit) property introduced to be used instead of CtlXP. <br>Type '''TLMDThemeMode''' = (ttmNone, ttmPlatform, ttmNative):<br>ttmNone = No global themeing, use control settings<br>ttmPlatform = CtlXP or UseXPThemes<br>ttmNative = our native theme engine<br>The ''intfThemes'' unit is now deprecated.<br>LMDSetCtlXP helper method, which was defined in ''intfThemes'', is replaced by LMDSetThemeMode, defined in ''LMDThemes'' unit:<br>
	<pre class="brush:delphi">		<pre class="brush:delphi">procedure LMDSetThemeMode(aParent: TWinControl; const Value: TLMDThemeMode);overload;
	procedure LMDSetThemeMode(aParent: TWinControl; const Value: TLMDThemeMode);overload;		procedure LMDSetThemeMode(aParent: TCustomForm; const Value: TLMDThemeMode);overload;</pre>
	procedure LMDSetThemeMode(aParent: TCustomForm; const Value: TLMDThemeMode);overload;		The call<br>

	</pre>The call<br>

	<pre class="brush:delphi">LMDSetCtlXP (self, true); <</pre>		<pre class="brush:delphi">LMDSetCtlXP (self, true); <</pre>
	must be replaced by<br>		must be replaced by<br>

	<pre class="brush:delphi">LMDSetThemeMode(self, ttmPlatform);</pre>		<pre class="brush:delphi">LMDSetThemeMode(self, ttmPlatform);</pre>
	The call like<br>		The call like<br>
	<pre class="brush:delphi">LMDSetCtlXP (self, false);</pre>		<pre class="brush:delphi">LMDSetCtlXP (self, false);</pre>
	must be replaced by<br>		must be replaced by<br>
	<pre class="brush:delphi">LMDSetThemeMode(self, ttmNone); </pre>;		<pre class="brush:delphi">LMDSetThemeMode(self, ttmNone);</pre>

	=== Changes to component code ===		=== Changes to component code ===

Bocharov at 11:24, 13 May 2010

2010-05-13T11:24:16Z

← Older revision		Revision as of 13:24, 13 May 2010
Line 38:		Line 38:
	=== Changes to component code ===		=== Changes to component code ===

	A standard example for replacing code:		A standard example for replacing code:
	<delphi>
	if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then		<pre class="brush:delphi">
	begin		if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then
	aPartId := PP_BAR;		begin
	if Direction in [mdVertical, mdVerticalReverse] then		aPartId := PP_BAR;
	aPartId := PP_BARVERT;		if Direction in [mdVertical, mdVerticalReverse] then
	DrawThemeBackGround (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, nil);		aPartId := PP_BARVERT;
	{$ifdef CLR}		DrawThemeBackGround (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, nil);
	GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, FRect);		{$ifdef CLR}
	{$else ifdef CLR}		GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, FRect);
	GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, {$IFDEF LMDDISABLE_LMDTHEMES}@{$ENDIF}FRect);		{$else ifdef CLR}
	{$endif ifdef CLR}		GetThemeBackgroundContentRect (LMDThemeService.Theme[tiProgress], Canvas.Handle, aPartId, 0, FRect, {$IFDEF LMDDISABLE_LMDTHEMES}@{$ENDIF}FRect);
	end		{$endif ifdef CLR}
	</~~delphi~~>		end
	changes now to:
	<delphi>		</pre>changes now to:
	lThemeMode := UseThemeMode; // store current ThemeMode locally when it is used more than once
	if (lThemeMode <> ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster		<pre class="brush:delphi">
	begin		lThemeMode := UseThemeMode; // store current ThemeMode locally when it is used more than once
	if Direction in [mdVertical, mdVerticalReverse] then		if (lThemeMode <> ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster
	Details := tpBarVert		begin
	else		if Direction in [mdVertical, mdVerticalReverse] then
	Details := tpBar;		Details := tpBarVert
	LMDThemeServices.DrawElement(lThemeMode, Canvas.Handle, Details, FRect);		else
	FRect := LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);		Details := tpBar;
	end		LMDThemeServices.DrawElement(lThemeMode, Canvas.Handle, Details, FRect);
	</~~delphi~~>		FRect := LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);
			end
			</pre>
	As one can see, code becomes much more cleaner and readable. Notes:		As one can see, code becomes much more cleaner and readable. Notes:

	* All ThemeModes <> ttmNone are handled by LMDThemeServices.		* All ThemeModes <> ttmNone are handled by LMDThemeServices.
	* UseThemeMode takes care to check whether a specific thememode is available. It will automatically provide least possible theme mode, e.g. ttmNone on Win98 systems if ThemeMode = ttmPlatform.		* UseThemeMode takes care to check whether a specific thememode is available. It will automatically provide least possible theme mode, e.g. ttmNone on Win98 systems if ThemeMode = ttmPlatform.

Bocharov at 11:23, 13 May 2010

2010-05-13T11:23:22Z

← Older revision		Revision as of 13:23, 13 May 2010
Line 21:		Line 21:

	''LMDXPStyles'' and ''LMDXPThemeManager'' units removed. <br>Wherever it is possible, system ''Themes'' and ''UxTheme'' units are used.<br>CtlXP property is now deprecated (moved to public), it is no longer used and remains only for compatibility reasons. ThemeMode (of TLMDThemeMode type, defined in LMDClass unit) property introduced to be used instead of CtlXP. <br>Type '''TLMDThemeMode''' = (ttmNone, ttmPlatform, ttmNative):<br>ttmNone = No global themeing, use control settings<br>ttmPlatform = CtlXP or UseXPThemes<br>ttmNative = our native theme engine<br>The ''intfThemes'' unit is now deprecated.<br>LMDSetCtlXP helper method, which was defined in ''intfThemes'', is replaced by LMDSetThemeMode, defined in ''LMDThemes'' unit:<br>		''LMDXPStyles'' and ''LMDXPThemeManager'' units removed. <br>Wherever it is possible, system ''Themes'' and ''UxTheme'' units are used.<br>CtlXP property is now deprecated (moved to public), it is no longer used and remains only for compatibility reasons. ThemeMode (of TLMDThemeMode type, defined in LMDClass unit) property introduced to be used instead of CtlXP. <br>Type '''TLMDThemeMode''' = (ttmNone, ttmPlatform, ttmNative):<br>ttmNone = No global themeing, use control settings<br>ttmPlatform = CtlXP or UseXPThemes<br>ttmNative = our native theme engine<br>The ''intfThemes'' unit is now deprecated.<br>LMDSetCtlXP helper method, which was defined in ''intfThemes'', is replaced by LMDSetThemeMode, defined in ''LMDThemes'' unit:<br>
	<delphi>		<pre class="brush:delphi">
	procedure LMDSetThemeMode(aParent: TWinControl; const Value: TLMDThemeMode);overload;		procedure LMDSetThemeMode(aParent: TWinControl; const Value: TLMDThemeMode);overload;
	procedure LMDSetThemeMode(aParent: TCustomForm; const Value: TLMDThemeMode);overload;		procedure LMDSetThemeMode(aParent: TCustomForm; const Value: TLMDThemeMode);overload;
	~~</delphi>~~
	~~<br>The call<br>~~

	<~~delphi~~>~~LMDSetCtlXP (self, true);~~ <~~/delphi~~>		</pre>The call<br>

	must be replaced by<br><delphi>LMDSetThemeMode(self, ttmPlatform) </~~delphi~~>The call like<br><delphi>LMDSetCtlXP (self, false); </~~delphi~~>must be replaced by<br><delphi>LMDSetThemeMode(self, ttmNone); </~~delphi~~>		<pre class="brush:delphi">LMDSetCtlXP (self, true); <</pre>
			must be replaced by<br>

			<pre class="brush:delphi">LMDSetThemeMode(self, ttmPlatform);</pre>
			The call like<br>
			<pre class="brush:delphi">LMDSetCtlXP (self, false);</pre>
			must be replaced by<br>
			<pre class="brush:delphi">LMDSetThemeMode(self, ttmNone); </pre>;

	=== Changes to component code ===		=== Changes to component code ===

Bocharov at 21:16, 20 October 2008

2008-10-20T21:16:24Z

← Older revision		Revision as of 23:16, 20 October 2008
Line 70:		Line 70:
	=== Changes to native theme engine ===		=== Changes to native theme engine ===

	Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br><delphi>function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </delphi>'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>		Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br><delphi>function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </delphi>'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>'''Note:''' The behaviour of ''ActivateTheme'' method changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.
	'''Note:''' The behaviour of ActivateTheme changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.

Bocharov at 21:15, 20 October 2008

2008-10-20T21:15:57Z

← Older revision		Revision as of 23:15, 20 October 2008
Line 70:		Line 70:
	=== Changes to native theme engine ===		=== Changes to native theme engine ===

	Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>		Native theme engine is available now as a standalone package LMD Themes Pack. No compiler switches are needed to enable/disable native theme engine.<br>Components '''TLMDThemeEngineController''' and '''TLMDFormThemeProvider''' moved to LMD Themes Pack. Theme engine can load only one theme at a time, LoadTheme methods removed. This allowed to simplify code greately.<br>'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br><delphi>function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </delphi>'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>
	'''TLMDThemeEngine''' is now a descendand of '''TLMDThemeRenderer''' class.<br>''ActivateColorScheme'' method added:<br><delphi>function ActivateColorScheme(ColorScheme: WideString = ''): boolean; </delphi>		'''Note:''' The behaviour of ActivateTheme changed. In previous version, if LMDThemeEngine.Enabled was false, then ActivateTheme failed. In new version, ActivateTheme method can be called even if theme engine is disabled, and, if succeeded, it activates theme engine, too.
	'''TLMDThemeEngine''' methods return (where applicable) boolean values (true if succeeded, false if failed) instead of HRESULT values.<br>