Changeset 581

Timestamp:

Dec 10, 2024, 4:50:34 PM (11 days ago)

Author:

chronos

Message:

• Modified: Improved Common package.

Location:

Common

Files:

• MetaCanvas.pas (modified) (2 diffs)
• RegistryEx.pas (modified) (2 diffs)
• Theme.pas (modified) (3 diffs)

Common/MetaCanvas.pas

@@ -150 +150 @@
     procedure SetWidth(AValue: Integer); override;
     function GetWidth: Integer; override;
-    procedure DoLine (x1,y1,x2,y2:integer); override;
+    procedure DoLine(X1, Y1, X2, Y2: Integer); override;
     procedure DoTextOut(X, Y: Integer; Text: string); override;
     procedure DoRectangle(const Bounds: TRect); override;
@@ -563 +563 @@
 end;
 
-procedure TMetaCanvas.DoLine(x1, y1, x2, y2: integer);
+procedure TMetaCanvas.DoLine(X1, Y1, X2, Y2: integer);
 var
   NewObj: TCanvasLine;

Common/RegistryEx.pas

@@ -36 +36 @@
     function ReadFloatWithDefault(const Name: string;
       DefaultValue: Double): Double;
+    function ReadDateTimeWithDefault(const Name: string; DefaultValue: TDateTime): TDateTime;
     function DeleteKeyRecursive(const Key: string): Boolean;
     function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
@@ -110 +111 @@
 end;
 
+function TRegistryEx.ReadDateTimeWithDefault(const Name: string;
+  DefaultValue: TDateTime): TDateTime;
+begin
+  if ValueExists(Name) then Result := ReadDateTime(Name)
+    else begin
+      WriteDateTime(Name, DefaultValue);
+      Result := DefaultValue;
+    end;
+end;
+
 function TRegistryEx.DeleteKeyRecursive(const Key: string): Boolean;
 var

Common/Theme.pas

@@ -30 +30 @@
   private
     FTheme: TTheme;
+    function Gray(C: TColor): Byte;
     procedure SetTheme(AValue: TTheme);
     procedure SetThemeName(AValue: TTheme);
@@ -35 +36 @@
     Used: Boolean;
     Themes: TThemes;
+    function IsDarkTheme: Boolean;
     procedure ApplyTheme(Component: TComponent);
     constructor Create(AOwner: TComponent); override;
@@ -93 +95 @@
     Strings.EndUpdate;
   end;
+end;
+
+{ TThemeManager }
+
+function TThemeManager.Gray(C: TColor): Byte;
+begin
+  Result := Trunc(Red(C) * 0.3 + Green(C) * 0.59 + Blue(C) * 0.11);
+end;
+
+function TThemeManager.IsDarkTheme: Boolean;
+begin
+  Result := Gray(ColorToRGB(clWindow)) < Gray(ColorToRGB(clWindowText));
 end;