LMD 2009 - Theme Engine - Revision history

Fduch at 12:03, 18 August 2017

2017-08-18T12:03:42Z

Fduch at 12:02, 18 August 2017

2017-08-18T12:02:39Z

Bocharov at 13:04, 13 May 2010

2010-05-13T13:04:26Z

Bocharov at 13:03, 13 May 2010

2010-05-13T13:03:49Z

Bocharov at 13:02, 13 May 2010

2010-05-13T13:02:59Z

Bocharov at 11:24, 13 May 2010

2010-05-13T11:24:59Z

Bocharov at 11:24, 13 May 2010

2010-05-13T11:24:16Z

Bocharov at 11:23, 13 May 2010

2010-05-13T11:23:22Z

Bocharov at 21:16, 20 October 2008

2008-10-20T21:16:24Z

Bocharov at 21:15, 20 October 2008

2008-10-20T21:15:57Z

@@ Line 39: / Line 39: @@
   if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then
   begin
- aPartId&nbsp;:= PP_BAR;
+     aPartId&nbsp;:= PP_BAR;
- if Direction in [mdVertical, mdVerticalReverse] then
+     if Direction in [mdVertical, mdVerticalReverse] then
- aPartId&nbsp;:= PP_BARVERT;
+        aPartId&nbsp;:= 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);
   end
@@ Line 56: / Line 57: @@
   if (lThemeMode &lt;&gt; ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster
   begin
- if Direction in [mdVertical, mdVerticalReverse] then
+     if Direction in [mdVertical, mdVerticalReverse] then
- Details&nbsp;:= tpBarVert
+        Details&nbsp;:= tpBarVert
- else
+     else
- Details&nbsp;:= tpBar;
+        Details&nbsp;:= tpBar;
- LMDThemeServices.DrawElement(lThemeMode, Canvas.Handle, Details, FRect);
+     LMDThemeServices.DrawElement(lThemeMode, Canvas.Handle, Details, FRect);
- FRect&nbsp;:= LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);
+     FRect&nbsp;:= LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);
   end
 </syntaxhighlight>

@@ 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>
-<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>
-<pre class="brush:delphi">LMDSetCtlXP (self, true); &lt;</pre>
+<syntaxhighlight lang="delphi">LMDSetCtlXP (self, true);</syntaxhighlight>
 must be replaced by<br>
-<pre class="brush:delphi">LMDSetThemeMode(self, ttmPlatform);</pre>
+<syntaxhighlight lang="delphi">LMDSetThemeMode(self, ttmPlatform);</syntaxhighlight>
 The call like<br>
-<pre class="brush:delphi">LMDSetCtlXP (self, false);</pre>
+<syntaxhighlight lang="delphi">LMDSetCtlXP (self, false);</syntaxhighlight>
 must be replaced by<br>
-<pre class="brush:delphi">LMDSetThemeMode(self, ttmNone);</pre>
+<syntaxhighlight lang="delphi">LMDSetThemeMode(self, ttmNone);</syntaxhighlight>
 === Changes to component code ===
@@ Line 36: / Line 36: @@
 A standard example for replacing code:
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
   if UseXP or (LMDApplication.UseXPThemes and (Bevel.Mode=bmWindows)) then
   begin
@@ Line 50: / Line 50: @@
   end
-</pre>changes now to:
+</syntaxhighlight>changes now to:
-<pre class="brush:delphi">
+<syntaxhighlight lang="delphi">
   lThemeMode&nbsp;:= UseThemeMode; // store current ThemeMode locally when it is used more than once
   if (lThemeMode &lt;&gt; ttmNone) then // same as IsThemed, because UseThemeMode was already determined, this is faster
@@ Line 63: / Line 63: @@
   FRect&nbsp;:= LMDThemeServices.ContentRect(lThemeMode, Canvas.Handle, ThemeServices.GetElementDetails(Details), FRect);
   end
-</pre>
+</syntaxhighlight>
 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>
-<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.

@@ 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>
-<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.

@@ Line 74: / Line 74: @@
 === 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>&lt;pre class="brush:delphi"&gt;function ActivateColorScheme(ColorScheme: WideString = ''): boolean; &lt;/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.

← Older revision		Revision as of 13: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.

← Older revision		Revision as of 21: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.

@@ Line 70: / Line 70: @@
 === 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.