Changeset 174 for trunk/Packages

Timestamp:

Feb 14, 2018, 10:39:55 AM (6 years ago)

Author:

chronos

Message:

• Added: Basic color theming support. Colors can be changed only for some controls.

Location:

trunk/Packages/Common

Files:

• Common.lpk (modified) (2 diffs)
• Common.pas (modified) (2 diffs)
• UListViewSort.pas (modified) (3 diffs)
• UTheme.pas (added)

trunk/Packages/Common/Common.lpk

@@ -40 +40 @@
     <License Value="GNU/GPL"/>
     <Version Minor="7"/>
-    <Files Count="20">
+    <Files Count="21">
       <Item1>
         <Filename Value="StopWatch.pas"/>
@@ -129 +129 @@
         <UnitName Value="UScaleDPI"/>
       </Item20>
+      <Item21>
+        <Filename Value="UTheme.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="UTheme"/>
+      </Item21>
     </Files>
     <i18n>

trunk/Packages/Common/Common.pas

@@ -8 +8 @@
 
 uses
-  StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading, 
-  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry, 
-  UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort, 
-  UPersistentForm, UFindFile, UScaleDPI, LazarusPackageIntf;
+  StopWatch, UCommon, UDebugLog, UDelay, UPrefixMultiplier, UURI, UThreading,
+  UMemory, UResetableThread, UPool, ULastOpenedList, URegistry,
+  UJobProgressView, UXMLUtils, UApplicationInfo, USyncCounter, UListViewSort,
+  UPersistentForm, UFindFile, UScaleDPI, UTheme, LazarusPackageIntf;
 
 implementation
@@ -25 +25 @@
   RegisterUnit('UFindFile', @UFindFile.Register);
   RegisterUnit('UScaleDPI', @UScaleDPI.Register);
+  RegisterUnit('UTheme', @UTheme.Register);
 end;
 

trunk/Packages/Common/UListViewSort.pas

@@ -353 +353 @@
   TP1: TPoint;
   XBias, YBias: Integer;
-  OldColor: TColor;
+  PenColor: TColor;
+  BrushColor: TColor;
   BiasTop, BiasLeft: Integer;
   Rect1: TRect;
@@ -365 +366 @@
   Item.Left := 0;
   GetCheckBias(XBias, YBias, BiasTop, BiasLeft, ListView);
-  OldColor := ListView.Canvas.Pen.Color;
+  PenColor := ListView.Canvas.Pen.Color;
+  BrushColor := ListView.Canvas.Brush.Color;
   //TP1 := Item.GetPosition;
   lRect := Item.DisplayRect(drBounds); // Windows 7 workaround
@@ -408 +410 @@
   end;
   //ListView.Canvas.Brush.Color := ListView.Color;
-  ListView.Canvas.Brush.Color := clWindow;
-  ListView.Canvas.Pen.Color := OldColor;
+  ListView.Canvas.Brush.Color := BrushColor;
+  ListView.Canvas.Pen.Color := PenColor;
 end;