Changeset 407

Timestamp:

Nov 3, 2021, 11:39:41 AM (3 years ago)

Author:

chronos

Message:

• Modified: Convert more LCL types to DPI equivalents.

File:

• tools/Prepare DPI/UFormMain.pas (modified) (1 diff)

tools/Prepare DPI/UFormMain.pas

@@ -34 +34 @@
 var
   FormMain: TFormMain;
-  TypeNames: array[0..15] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',
+  TypeNames: array[0..30] of string = ('Bitmap', 'Form', 'Font', 'WinControl', 'ListBox',
     'GraphicControl', 'ScrollBar', 'Canvas', 'RasterImage', 'PortableNetworkGraphic',
-    'JpegImage', 'Control', 'MenuItem', 'PopupMenu', 'ControlBorderSpacing', 'Edit');
+    'JpegImage', 'Control', 'MenuItem', 'PopupMenu', 'ControlBorderSpacing', 'Edit',
+    'ListView', 'StringGrid', 'Panel', 'ToolBar', 'CoolBar', 'CoolBand', 'CoolBands',
+    'ImageList', 'SpinEdit', 'PageControl', 'CheckBox', 'RadioButton',
+    'Memo', 'ComboBox', 'CustomDrawGrid');
 
 implementation