Changeset 302

Timestamp:

Mar 9, 2021, 12:17:29 AM (3 years ago)

Author:

chronos

Message:

• Modified: More types replaced by Prepare DPI tool.

Location:

tools/Prepare DPI

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)
• project1.lpi (modified) (1 diff)

tools/Prepare DPI/UFormMain.lfm

@@ -4 +4 @@
   Top = 301
   Width = 796
-  Caption = 'FormMain'
+  Caption = 'Prepare DPI'
   ClientHeight = 632
   ClientWidth = 796
   DesignTimePPI = 144
   OnActivate = FormActivate
-  LCLVersion = '2.0.8.0'
+  LCLVersion = '2.0.12.0'
   object EditSrcDir: TEdit
     Left = 159

tools/Prepare DPI/UFormMain.pas

@@ -34 +34 @@
 var
   FormMain: TFormMain;
-  TypeNames: array[0..10] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',
+  TypeNames: array[0..15] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',
     'GraphicControl', 'ScrollBar', 'Canvas', 'RasterImage', 'PortableNetworkGraphic',
-    'JpegImage');
+    'JpegImage', 'Control', 'MenuItem', 'PopupMenu', 'ControlBorderSpacing', 'Edit');
 
 implementation
@@ -147 +147 @@
       Line := StringReplace(Line, 'BitBlt(', 'DpiBitBlt(', [rfReplaceAll]);
       Line := StringReplace(Line, 'BitBltCanvas(', 'DpiBitCanvas(', [rfReplaceAll]);
+      Line := StringReplace(Line, 'GetSystemMetrics(', 'DpiGetSystemMetrics(', [rfReplaceAll]);
       Line := StringReplace(Line, 'CreateRectRgn(', 'DpiCreateRectRgn(', [rfReplaceAll]);
+      Line := StringReplace(Line, 'ScrollDC(', 'DpiScrollDC(', [rfReplaceAll]);
       if Lines[I] <> Line then Inc(Differences);
       Lines[I] := Line;

tools/Prepare DPI/project1.lpi

@@ -40 +40 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormMain"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit1>