Changeset 302 for tools/Prepare DPI/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: More types replaced by Prepare DPI tool.

File:

• tools/Prepare DPI/UFormMain.pas (modified) (2 diffs)

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;