Changeset 302


Ignore:
Timestamp:
Mar 9, 2021, 12:17:29 AM (4 years ago)
Author:
chronos
Message:
  • Modified: More types replaced by Prepare DPI tool.
Location:
tools/Prepare DPI
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • tools/Prepare DPI/UFormMain.lfm

    r217 r302  
    44  Top = 301
    55  Width = 796
    6   Caption = 'FormMain'
     6  Caption = 'Prepare DPI'
    77  ClientHeight = 632
    88  ClientWidth = 796
    99  DesignTimePPI = 144
    1010  OnActivate = FormActivate
    11   LCLVersion = '2.0.8.0'
     11  LCLVersion = '2.0.12.0'
    1212  object EditSrcDir: TEdit
    1313    Left = 159
  • tools/Prepare DPI/UFormMain.pas

    r243 r302  
    3434var
    3535  FormMain: TFormMain;
    36   TypeNames: array[0..10] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',
     36  TypeNames: array[0..15] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',
    3737    'GraphicControl', 'ScrollBar', 'Canvas', 'RasterImage', 'PortableNetworkGraphic',
    38     'JpegImage');
     38    'JpegImage', 'Control', 'MenuItem', 'PopupMenu', 'ControlBorderSpacing', 'Edit');
    3939
    4040implementation
     
    147147      Line := StringReplace(Line, 'BitBlt(', 'DpiBitBlt(', [rfReplaceAll]);
    148148      Line := StringReplace(Line, 'BitBltCanvas(', 'DpiBitCanvas(', [rfReplaceAll]);
     149      Line := StringReplace(Line, 'GetSystemMetrics(', 'DpiGetSystemMetrics(', [rfReplaceAll]);
    149150      Line := StringReplace(Line, 'CreateRectRgn(', 'DpiCreateRectRgn(', [rfReplaceAll]);
     151      Line := StringReplace(Line, 'ScrollDC(', 'DpiScrollDC(', [rfReplaceAll]);
    150152      if Lines[I] <> Line then Inc(Differences);
    151153      Lines[I] := Line;
  • tools/Prepare DPI/project1.lpi

    r217 r302  
    4040        <IsPartOfProject Value="True"/>
    4141        <ComponentName Value="FormMain"/>
     42        <HasResources Value="True"/>
    4243        <ResourceBaseClass Value="Form"/>
    4344      </Unit1>
Note: See TracChangeset for help on using the changeset viewer.