Changeset 302
- Timestamp:
- Mar 9, 2021, 12:17:29 AM (4 years ago)
- Location:
- tools/Prepare DPI
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
tools/Prepare DPI/UFormMain.lfm
r217 r302 4 4 Top = 301 5 5 Width = 796 6 Caption = ' FormMain'6 Caption = 'Prepare DPI' 7 7 ClientHeight = 632 8 8 ClientWidth = 796 9 9 DesignTimePPI = 144 10 10 OnActivate = FormActivate 11 LCLVersion = '2.0. 8.0'11 LCLVersion = '2.0.12.0' 12 12 object EditSrcDir: TEdit 13 13 Left = 159 -
tools/Prepare DPI/UFormMain.pas
r243 r302 34 34 var 35 35 FormMain: TFormMain; 36 TypeNames: array[0..1 0] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',36 TypeNames: array[0..15] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox', 37 37 'GraphicControl', 'ScrollBar', 'Canvas', 'RasterImage', 'PortableNetworkGraphic', 38 'JpegImage' );38 'JpegImage', 'Control', 'MenuItem', 'PopupMenu', 'ControlBorderSpacing', 'Edit'); 39 39 40 40 implementation … … 147 147 Line := StringReplace(Line, 'BitBlt(', 'DpiBitBlt(', [rfReplaceAll]); 148 148 Line := StringReplace(Line, 'BitBltCanvas(', 'DpiBitCanvas(', [rfReplaceAll]); 149 Line := StringReplace(Line, 'GetSystemMetrics(', 'DpiGetSystemMetrics(', [rfReplaceAll]); 149 150 Line := StringReplace(Line, 'CreateRectRgn(', 'DpiCreateRectRgn(', [rfReplaceAll]); 151 Line := StringReplace(Line, 'ScrollDC(', 'DpiScrollDC(', [rfReplaceAll]); 150 152 if Lines[I] <> Line then Inc(Differences); 151 153 Lines[I] := Line; -
tools/Prepare DPI/project1.lpi
r217 r302 40 40 <IsPartOfProject Value="True"/> 41 41 <ComponentName Value="FormMain"/> 42 <HasResources Value="True"/> 42 43 <ResourceBaseClass Value="Form"/> 43 44 </Unit1>
Note:
See TracChangeset
for help on using the changeset viewer.