[GExperts-Checkins] SF.net SVN: gexperts:[4288] branches/dark-mode/Source

[<aka...@us...>]

Revision: 4288
          http://sourceforge.net/p/gexperts/code/4288
Author:   akalwahome
Date:     2024-07-08 15:51:56 +0000 (Mon, 08 Jul 2024)
Log Message:
-----------
make code compile with Delphi 2007 

Modified Paths:
--------------
    branches/dark-mode/Source/Framework/GX_ConfigurationInfo.pas
    branches/dark-mode/Source/Grep/GX_GrepSearch.dfm
    branches/dark-mode/Source/Grep/GX_GrepSearch.pas

Modified: branches/dark-mode/Source/Framework/GX_ConfigurationInfo.pas
===================================================================
--- branches/dark-mode/Source/Framework/GX_ConfigurationInfo.pas	2024-07-08 15:50:20 UTC (rev 4287)
+++ branches/dark-mode/Source/Framework/GX_ConfigurationInfo.pas	2024-07-08 15:51:56 UTC (rev 4288)
@@ -1018,12 +1018,15 @@
   OrigTop: Integer;
   OrigWidth: Integer;
   OrigHeight: Integer;
-  OrigDpi: Integer;
   NewLeft: Integer;
   NewTop: Integer;
   NewWidth: Integer;
   NewHeight: Integer;
+{$IFDEF GX_IDE_IS_HIDPI_AWARE}
+  OrigDpi: Integer;
   NewDpi: Integer;
+{$ENDIF}
+
 begin
   if Section = '' then
     StorageSection := Form.ClassName
@@ -1032,10 +1035,8 @@
 
 {$IFDEF GX_IDE_IS_HIDPI_AWARE}
   OrigDpi := TScreen_GetDpiForForm(Form);
-{$ELSE}
-  OrigDpi := USER_DEFAULT_SCREEN_DPI; // 96
+  NewDPI  := OrigDPI;
 {$ENDIF}
-  NewDPI := OrigDPI;
 
   R := Form.BoundsRect;
   OrigLeft := R.Left;

Modified: branches/dark-mode/Source/Grep/GX_GrepSearch.dfm
===================================================================
--- branches/dark-mode/Source/Grep/GX_GrepSearch.dfm	2024-07-08 15:50:20 UTC (rev 4287)
+++ branches/dark-mode/Source/Grep/GX_GrepSearch.dfm	2024-07-08 15:51:56 UTC (rev 4288)
@@ -18,8 +18,8 @@
   ShowHint = True
   OnClose = FormClose
   DesignSize = (
-    679
-    580)
+    681
+    588)
   PixelsPerInch = 96
   TextHeight = 14
   object lblFind: TLabel
@@ -470,13 +470,13 @@
   end
   object pnlBottom: TPanel
     Left = 0
-    Top = 545
-    Width = 679
+    Top = 553
+    Width = 681
     Height = 35
     Align = alBottom
     TabOrder = 7
     DesignSize = (
-      679
+      681
       35)
     object btnOK: TButton
       Left = 432

Modified: branches/dark-mode/Source/Grep/GX_GrepSearch.pas
===================================================================
--- branches/dark-mode/Source/Grep/GX_GrepSearch.pas	2024-07-08 15:50:20 UTC (rev 4287)
+++ branches/dark-mode/Source/Grep/GX_GrepSearch.pas	2024-07-08 15:51:56 UTC (rev 4288)
@@ -812,7 +812,7 @@
   TControl_SetConstraints(Self, [ccMinWidth, ccMinHeight, ccMaxHeight]);
 
   if not IsStandAlone then
-    InitTheming;
+    InitTheming(Self);
   FixComboBoxSelections(Self);
 end;
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.