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/Locale.lfm

    r167 r178  
    11object LocaleDlg: TLocaleDlg
    2   Left = 766
    3   Height = 448
     2  ClientHeight = 456
     3  ClientWidth = 483
    44  Top = 240
     5  Left = 754
    56  Width = 483
    6   BorderStyle = bsNone
     7  Height = 456
     8  Visible = False
    79  Caption = 'LocaleDlg'
    8   ClientHeight = 448
    9   ClientWidth = 483
     10  Enabled = True
     11  ShowHint = False
     12  Font.Color = clDefault
     13  Font.PixelsPerInch = 144
     14  Align = alNone
     15  Color = clDefault
     16  OnPaint = FormPaint
     17  HorzScrollBar.Visible = False
     18  VertScrollBar.Visible = False
    1019  DesignTimePPI = 144
    1120  FormStyle = fsStayOnTop
     21  BorderStyle = bsNone
     22  BorderIcons = []
     23  LCLVersion = '2.0.2.0'
     24  OnShow = FormShow
    1225  OnCreate = FormCreate
    1326  OnDestroy = FormDestroy
    14   OnPaint = FormPaint
    15   OnShow = FormShow
    16   LCLVersion = '2.0.2.0'
    17   object List: TListBox
     27  object List: TDpiListBox
    1828    Tag = 15360
     29    ClientHeight = 360
     30    ClientWidth = 424
     31    Top = 16
    1932    Left = 24
    20     Height = 336
    21     Top = 16
    2233    Width = 424
    23     Anchors = [akTop, akLeft, akRight, akBottom]
    24     BorderStyle = bsNone
    25     Color = clBlack
    26     ExtendedSelect = False
     34    Height = 360
     35    Visible = True
     36    Enabled = True
     37    ShowHint = False
    2738    Font.Color = 4176863
    28     Font.Height = -15
    2939    Font.Name = 'Times New Roman'
    3040    Font.Style = [fsBold]
    31     IntegralHeight = True
    32     ItemHeight = 0
    33     ParentFont = False
    34     ScrollWidth = 424
    35     TabOrder = 0
    36     TabStop = False
    37     TopIndex = -1
     41    Font.PixelsPerInch = 144
     42    Font.Height = -15
     43    Align = alNone
     44    Color = clBlack
    3845  end
    3946  object OKBtn: TButtonA
     47    ClientHeight = 25
     48    ClientWidth = 100
     49    Top = 400
    4050    Left = 272
     51    Width = 100
    4152    Height = 25
    42     Top = 400
    43     Width = 100
     53    Visible = True
     54    Enabled = True
     55    ShowHint = False
     56    Font.Color = clDefault
     57    Font.PixelsPerInch = 144
     58    Align = alNone
     59    Color = clDefault
     60    OnClick = OKBtnClick
    4461    Down = False
    4562    Permanent = False
    46     OnClick = OKBtnClick
    4763  end
    4864  object CancelBtn: TButtonA
     65    ClientHeight = 25
     66    ClientWidth = 100
     67    Top = 400
    4968    Left = 96
     69    Width = 100
    5070    Height = 25
    51     Top = 400
    52     Width = 100
     71    Visible = True
     72    Enabled = True
     73    ShowHint = False
     74    Font.Color = clDefault
     75    Font.PixelsPerInch = 144
     76    Align = alNone
     77    Color = clDefault
     78    OnClick = CancelBtnClick
    5379    Down = False
    5480    Permanent = False
    55     OnClick = CancelBtnClick
    56   end
    57   object ButtonFullscreen: TButtonC
    58     Left = 24
    59     Height = 18
    60     Top = 368
    61     Width = 18
    62     Down = False
    63     Permanent = False
    64     OnClick = ButtonFullscreenClick
    65     ButtonIndex = 0
    6681  end
    6782end
Note: See TracChangeset for help on using the changeset viewer.