Ignore:
Timestamp:
Jun 23, 2019, 3:15:29 PM (5 years ago)
Author:
chronos
Message:
  • Modified: Use DpiControls package for High DPI support.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/highdpi/Start.lfm

    r169 r178  
    11object StartDlg: TStartDlg
    2   Left = 246
    3   Height = 326
    4   Top = 120
    5   Width = 556
    6   BorderIcons = []
    7   BorderStyle = bsNone
    8   Caption = 'C-evo'
    92  ClientHeight = 326
    103  ClientWidth = 556
     4  Top = 120
     5  Left = 246
     6  Width = 556
     7  Height = 326
     8  Visible = False
     9  Caption = 'C-evo'
     10  Enabled = True
     11  ShowHint = False
     12  Font.Color = clWindowText
     13  Font.Name = 'MS Sans Serif'
     14  Font.PixelsPerInch = 144
     15  Font.Height = -13
     16  Align = alNone
    1117  Color = clBtnFace
    12   DesignTimePPI = 144
    13   Font.Color = clWindowText
    14   Font.Height = -13
    15   Font.Name = 'MS Sans Serif'
    16   FormStyle = fsStayOnTop
    17   OnClose = FormClose
    18   OnCreate = FormCreate
    19   OnDestroy = FormDestroy
    20   OnHide = FormHide
    21   OnKeyDown = FormKeyDown
    2218  OnMouseDown = FormMouseDown
    2319  OnMouseMove = FormMouseMove
    2420  OnMouseUp = FormMouseUp
     21  OnKeyDown = FormKeyDown
    2522  OnPaint = FormPaint
     23  HorzScrollBar.Visible = False
     24  VertScrollBar.Visible = False
     25  DesignTimePPI = 144
     26  FormStyle = fsStayOnTop
     27  BorderStyle = bsNone
     28  BorderIcons = []
     29  LCLVersion = '2.0.2.0'
    2630  OnShow = FormShow
    27   LCLVersion = '2.0.2.0'
     31  OnHide = FormHide
     32  OnCreate = FormCreate
     33  OnDestroy = FormDestroy
     34  OnClose = FormClose
    2835  object StartBtn: TButtonA
    2936    Tag = 15104
     37    ClientHeight = 25
     38    ClientWidth = 100
     39    Top = 286
    3040    Left = 389
    31     Height = 25
    32     Top = 286
    3341    Width = 100
    34     Down = False
    35     Permanent = False
     42    Height = 25
     43    Visible = True
     44    Enabled = True
     45    ShowHint = False
     46    Font.Color = clDefault
     47    Font.PixelsPerInch = 144
     48    Align = alNone
     49    Color = clBtnFace
    3650    OnClick = StartBtnClick
     51    Down = False
     52    Permanent = False
    3753  end
    3854  object Down1Btn: TButtonC
    3955    Tag = 4096
     56    ClientHeight = 12
     57    ClientWidth = 12
     58    Top = 111
    4059    Left = 522
    41     Height = 12
    42     Top = 111
    43     Width = 12
    44     Down = False
    45     Permanent = False
     60    Width = 12
     61    Height = 12
     62    Visible = True
     63    Enabled = True
     64    ShowHint = True
     65    Font.Color = clDefault
     66    Font.PixelsPerInch = 144
     67    Align = alNone
     68    Color = clBtnFace
    4669    OnClick = Down1BtnClick
     70    Down = False
     71    Permanent = False
    4772    ButtonIndex = 0
    4873  end
    4974  object Up1Btn: TButtonC
    5075    Tag = 4096
     76    ClientHeight = 12
     77    ClientWidth = 12
     78    Top = 99
    5179    Left = 522
    52     Height = 12
    53     Top = 99
    54     Width = 12
    55     Down = False
    56     Permanent = False
     80    Width = 12
     81    Height = 12
     82    Visible = True
     83    Enabled = True
     84    ShowHint = True
     85    Font.Color = clDefault
     86    Font.PixelsPerInch = 144
     87    Align = alNone
     88    Color = clBtnFace
    5789    OnClick = Up1BtnClick
     90    Down = False
     91    Permanent = False
    5892    ButtonIndex = 1
    5993  end
    6094  object RenameBtn: TButtonB
    6195    Tag = 10240
     96    ClientHeight = 25
     97    ClientWidth = 25
     98    Top = 98
    6299    Left = 412
    63     Height = 25
    64     Top = 98
    65100    Width = 25
    66     Visible = False
    67     Down = False
    68     Permanent = False
     101    Height = 25
     102    Visible = False
     103    Enabled = True
     104    ShowHint = True
     105    Font.Color = clDefault
     106    Font.PixelsPerInch = 144
     107    Align = alNone
     108    Color = clBtnFace
    69109    OnClick = RenameBtnClick
     110    Down = False
     111    Permanent = False
    70112    ButtonIndex = 31
    71113  end
    72114  object DeleteBtn: TButtonB
    73115    Tag = 10240
     116    ClientHeight = 25
     117    ClientWidth = 25
     118    Top = 98
    74119    Left = 441
    75     Height = 25
    76     Top = 98
    77120    Width = 25
    78     Visible = False
    79     Down = False
    80     Permanent = False
     121    Height = 25
     122    Visible = False
     123    Enabled = True
     124    ShowHint = True
     125    Font.Color = clDefault
     126    Font.PixelsPerInch = 144
     127    Align = alNone
     128    Color = clBtnFace
    81129    OnClick = DeleteBtnClick
     130    Down = False
     131    Permanent = False
    82132    ButtonIndex = 21
    83133  end
    84134  object Down2Btn: TButtonC
    85135    Tag = 6912
     136    ClientHeight = 12
     137    ClientWidth = 12
     138    Top = 249
    86139    Left = 522
    87     Height = 12
    88     Top = 249
    89     Width = 12
    90     Visible = False
    91     Down = False
    92     Permanent = False
     140    Width = 12
     141    Height = 12
     142    Visible = False
     143    Enabled = True
     144    ShowHint = True
     145    Font.Color = clDefault
     146    Font.PixelsPerInch = 144
     147    Align = alNone
     148    Color = clBtnFace
    93149    OnClick = Down2BtnClick
     150    Down = False
     151    Permanent = False
    94152    ButtonIndex = 0
    95153  end
    96154  object Up2Btn: TButtonC
    97155    Tag = 6912
     156    ClientHeight = 12
     157    ClientWidth = 12
     158    Top = 237
    98159    Left = 522
    99     Height = 12
    100     Top = 237
    101     Width = 12
    102     Visible = False
    103     Down = False
    104     Permanent = False
     160    Width = 12
     161    Height = 12
     162    Visible = False
     163    Enabled = True
     164    ShowHint = True
     165    Font.Color = clDefault
     166    Font.PixelsPerInch = 144
     167    Align = alNone
     168    Color = clBtnFace
    105169    OnClick = Up2BtnClick
     170    Down = False
     171    Permanent = False
    106172    ButtonIndex = 1
    107173  end
    108174  object QuitBtn: TButtonB
    109175    Tag = 268435200
     176    ClientHeight = 25
     177    ClientWidth = 25
     178    Top = 7
    110179    Left = 530
    111     Height = 25
    112     Top = 7
    113180    Width = 25
    114     Down = False
    115     Permanent = False
     181    Height = 25
     182    Visible = True
     183    Enabled = True
     184    ShowHint = True
     185    Font.Color = clDefault
     186    Font.PixelsPerInch = 144
     187    Align = alNone
     188    Color = clBtnFace
    116189    OnClick = QuitBtnClick
     190    Down = False
     191    Permanent = False
    117192    ButtonIndex = 0
    118193  end
    119194  object CustomizeBtn: TButtonC
    120195    Tag = 768
     196    ClientHeight = 12
     197    ClientWidth = 12
     198    Top = 302
    121199    Left = 120
    122     Height = 12
    123     Top = 302
    124     Width = 12
    125     Down = False
    126     Permanent = False
     200    Width = 12
     201    Height = 12
     202    Visible = True
     203    Enabled = True
     204    ShowHint = True
     205    Font.Color = clDefault
     206    Font.PixelsPerInch = 144
     207    Align = alNone
     208    Color = clBtnFace
    127209    OnClick = CustomizeBtnClick
     210    Down = False
     211    Permanent = False
    128212    ButtonIndex = 0
    129213  end
    130214  object AutoDiffUpBtn: TButtonC
     215    ClientHeight = 12
     216    ClientWidth = 12
     217    Top = 237
    131218    Left = 280
    132     Height = 12
    133     Top = 237
    134     Width = 12
    135     Down = False
    136     Permanent = False
     219    Width = 12
     220    Height = 12
     221    Visible = True
     222    Enabled = True
     223    ShowHint = True
     224    Font.Color = clDefault
     225    Font.PixelsPerInch = 144
     226    Align = alNone
     227    Color = clBtnFace
    137228    OnClick = AutoDiffUpBtnClick
     229    Down = False
     230    Permanent = False
    138231    ButtonIndex = 1
    139232  end
    140233  object AutoDiffDownBtn: TButtonC
     234    ClientHeight = 12
     235    ClientWidth = 12
     236    Top = 249
    141237    Left = 280
    142     Height = 12
    143     Top = 249
    144     Width = 12
    145     Down = False
    146     Permanent = False
     238    Width = 12
     239    Height = 12
     240    Visible = True
     241    Enabled = True
     242    ShowHint = True
     243    Font.Color = clDefault
     244    Font.PixelsPerInch = 144
     245    Align = alNone
     246    Color = clBtnFace
    147247    OnClick = AutoDiffDownBtnClick
     248    Down = False
     249    Permanent = False
    148250    ButtonIndex = 0
    149251  end
    150252  object AutoEnemyUpBtn: TButtonC
     253    ClientHeight = 12
     254    ClientWidth = 12
     255    Top = 152
    151256    Left = 206
    152     Height = 12
    153     Top = 152
    154     Width = 12
    155     Down = False
    156     Permanent = False
     257    Width = 12
     258    Height = 12
     259    Visible = True
     260    Enabled = True
     261    ShowHint = True
     262    Font.Color = clDefault
     263    Font.PixelsPerInch = 144
     264    Align = alNone
     265    Color = clBtnFace
    157266    OnClick = AutoEnemyUpBtnClick
     267    Down = False
     268    Permanent = False
    158269    ButtonIndex = 1
    159270  end
    160271  object AutoEnemyDownBtn: TButtonC
     272    ClientHeight = 12
     273    ClientWidth = 12
     274    Top = 164
    161275    Left = 206
    162     Height = 12
    163     Top = 164
    164     Width = 12
    165     Down = False
    166     Permanent = False
     276    Width = 12
     277    Height = 12
     278    Visible = True
     279    Enabled = True
     280    ShowHint = True
     281    Font.Color = clDefault
     282    Font.PixelsPerInch = 144
     283    Align = alNone
     284    Color = clBtnFace
    167285    OnClick = AutoEnemyDownBtnClick
     286    Down = False
     287    Permanent = False
    168288    ButtonIndex = 0
    169289  end
    170290  object ReplayBtn: TButtonB
    171291    Tag = 2048
     292    ClientHeight = 25
     293    ClientWidth = 25
     294    Top = 286
    172295    Left = 352
    173     Height = 25
    174     Top = 286
    175296    Width = 25
    176     Down = False
    177     Permanent = False
     297    Height = 25
     298    Visible = True
     299    Enabled = True
     300    ShowHint = True
     301    Font.Color = clDefault
     302    Font.PixelsPerInch = 144
     303    Align = alNone
     304    Color = clBtnFace
    178305    OnClick = ReplayBtnClick
     306    Down = False
     307    Permanent = False
    179308    ButtonIndex = 19
    180309  end
    181   object List: TListBox
     310  object List: TDpiListBox
    182311    Tag = 15360
     312    ClientHeight = 238
     313    ClientWidth = 265
     314    Top = 64
    183315    Left = 45
     316    Width = 266
    184317    Height = 238
    185     Top = 64
    186     Width = 266
    187     BorderStyle = bsNone
    188     Color = clBlack
    189     ExtendedSelect = False
     318    Visible = False
     319    Enabled = True
     320    ShowHint = False
    190321    Font.Color = 4176863
    191     Font.Height = -15
    192322    Font.Name = 'Times New Roman'
    193323    Font.Style = [fsBold]
    194     IntegralHeight = True
    195     ItemHeight = 0
     324    Font.PixelsPerInch = 144
     325    Font.Height = -15
     326    Align = alNone
     327    Color = clBlack
    196328    OnClick = ListClick
    197     ParentFont = False
    198     ScrollWidth = 266
    199     TabOrder = 0
    200     TabStop = False
    201     TopIndex = -1
    202     Visible = False
    203329  end
    204330  object PopupMenu1: TPopupMenu
Note: See TracChangeset for help on using the changeset viewer.