Ignore:
Timestamp:
Dec 4, 2014, 10:18:13 PM (10 years ago)
Author:
chronos
Message:
  • Added: Partial support for high DPI screens. Disabled.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormNew.lfm

    r87 r91  
    11object FormNew: TFormNew
    22  Left = 624
    3   Height = 528
     3  Height = 519
    44  Top = 313
    5   Width = 745
     5  Width = 1229
    66  Caption = 'New game'
    7   ClientHeight = 528
    8   ClientWidth = 745
     7  ClientHeight = 519
     8  ClientWidth = 1229
    99  OnCreate = FormCreate
    1010  OnDestroy = FormDestroy
    1111  OnShow = FormShow
    1212  LCLVersion = '1.3'
    13   object Splitter1: TSplitter
    14     Cursor = crVSplit
    15     Left = 0
    16     Height = 5
    17     Top = 0
    18     Width = 745
    19     Align = alTop
    20     ResizeAnchor = akTop
    21   end
    2213  object ButtonCancel: TButton
    23     Left = 522
     14    Left = 1006
    2415    Height = 25
    25     Top = 486
     16    Top = 477
    2617    Width = 75
    27     Anchors = [akBottom]
     18    Anchors = [akRight, akBottom]
    2819    Caption = 'Cancel'
    2920    ModalResult = 2
    30     TabOrder = 1
     21    TabOrder = 0
    3122  end
    3223  object ButtonOk: TButton
    33     Left = 626
     24    Left = 1110
    3425    Height = 25
    35     Top = 486
     26    Top = 477
    3627    Width = 75
    3728    Anchors = [akRight, akBottom]
    3829    Caption = 'Ok'
    3930    ModalResult = 1
    40     TabOrder = 2
     31    TabOrder = 1
    4132  end
    4233  object PageControl1: TPageControl
    43     Left = 0
    44     Height = 465
    45     Top = 5
    46     Width = 745
    47     ActivePage = TabSheet3
     34    Left = 4
     35    Height = 457
     36    Top = 4
     37    Width = 1221
     38    ActivePage = TabSheet2
    4839    Align = alTop
    4940    Anchors = [akTop, akLeft, akRight, akBottom]
    50     TabIndex = 2
    51     TabOrder = 3
     41    BorderSpacing.Around = 4
     42    TabIndex = 1
     43    TabOrder = 2
    5244    object TabSheet1: TTabSheet
    5345      Caption = 'Players'
    54       ClientHeight = 425
    55       ClientWidth = 739
     46      ClientHeight = 414
     47      ClientWidth = 1215
    5648      object ListView1: TListView
    57         Left = 8
    58         Height = 368
    59         Top = 8
    60         Width = 713
     49        Left = 4
     50        Height = 364
     51        Top = 4
     52        Width = 1207
     53        Align = alTop
    6154        Anchors = [akTop, akLeft, akRight, akBottom]
     55        BorderSpacing.Around = 4
    6256        Columns = <       
    6357          item
     
    7569          item
    7670            Caption = 'Start units'
    77             Width = 296
     71            Width = 790
    7872          end>
    7973        OwnerData = True
     
    9185      end
    9286      object ButtonPlayerRemove: TButton
    93         Left = 240
    94         Height = 25
    95         Top = 384
     87        Left = 224
     88        Height = 25
     89        Top = 376
    9690        Width = 83
    9791        Action = APlayerRemove
    98         Anchors = [akRight, akBottom]
     92        Anchors = [akLeft, akBottom]
    9993        TabOrder = 1
    10094      end
    10195      object ButtonPlayerAdd: TButton
    102         Left = 32
    103         Height = 25
    104         Top = 384
     96        Left = 16
     97        Height = 25
     98        Top = 376
    10599        Width = 83
    106100        Action = APlayerAdd
    107         Anchors = [akRight, akBottom]
     101        Anchors = [akLeft, akBottom]
    108102        TabOrder = 2
    109103      end
    110104      object ButtonPlayerModify: TButton
    111         Left = 136
    112         Height = 25
    113         Top = 384
     105        Left = 120
     106        Height = 25
     107        Top = 376
    114108        Width = 83
    115109        Action = APlayerModify
    116         Anchors = [akRight, akBottom]
     110        Anchors = [akLeft, akBottom]
    117111        Caption = 'Modify'
    118112        TabOrder = 3
     
    121115    object TabSheet2: TTabSheet
    122116      Caption = 'Map'
    123       ClientHeight = 425
    124       ClientWidth = 739
     117      ClientHeight = 414
     118      ClientWidth = 1215
    125119      object Label1: TLabel
    126120        Left = 8
     
    163157        Height = 46
    164158        Top = 8
    165         Width = 488
     159        Width = 964
    166160        Max = 100
    167161        Min = 2
     
    176170        Height = 46
    177171        Top = 49
    178         Width = 488
     172        Width = 964
    179173        Max = 100
    180174        Min = 2
     
    234228        Height = 27
    235229        Top = 110
    236         Width = 151
     230        Width = 727
     231        Anchors = [akTop, akLeft, akRight]
     232        AutoSize = False
    237233        Caption = 'Symetric map'
    238234        TabOrder = 6
     
    312308        Height = 35
    313309        Top = 184
    314         Width = 472
     310        Width = 948
    315311        Anchors = [akTop, akLeft, akRight]
    316312        TabOrder = 12
    317313      end
    318314      object ButtonImageBrowse: TButton
    319         Left = 624
     315        Left = 1100
    320316        Height = 25
    321317        Top = 192
     
    337333    object TabSheet3: TTabSheet
    338334      Caption = 'Rules'
    339       ClientHeight = 425
    340       ClientWidth = 739
     335      ClientHeight = 414
     336      ClientWidth = 1215
    341337      object RadioGroupGrowCells: TRadioGroup
    342         Left = 8
     338        Left = 15
    343339        Height = 105
    344340        Top = 104
     
    353349        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    354350        ChildSizing.ControlsPerLine = 1
    355         ClientHeight = 81
     351        ClientHeight = 78
    356352        ClientWidth = 308
    357353        Items.Strings = (
     
    364360      object Label6: TLabel
    365361        Left = 8
    366         Height = 22
     362        Height = 25
    367363        Top = 248
    368         Width = 114
     364        Width = 129
    369365        Caption = 'Win objective:'
    370366        ParentColor = False
     
    372368      object ComboBoxWinObjective: TComboBox
    373369        Left = 232
    374         Height = 34
     370        Height = 33
    375371        Top = 240
    376372        Width = 328
     
    399395        ChildSizing.Layout = cclLeftToRightThenTopToBottom
    400396        ChildSizing.ControlsPerLine = 1
    401         ClientHeight = 52
     397        ClientHeight = 49
    402398        ClientWidth = 301
    403399        Items.Strings = (
     
    409405      object CheckBoxFogOfWar: TCheckBox
    410406        Left = 336
    411         Height = 24
     407        Height = 27
    412408        Top = 24
    413         Width = 106
     409        Width = 864
     410        Anchors = [akTop, akLeft, akRight]
     411        AutoSize = False
    414412        Caption = 'Fog of war'
    415413        TabOrder = 3
     
    435433  end
    436434  object OpenPictureDialog1: TOpenPictureDialog
    437     left = 616
    438     top = 280
     435    left = 424
     436    top = 440
    439437  end
    440438  object PopupMenu1: TPopupMenu
    441439    left = 128
    442     top = 143
     440    top = 440
    443441    object MenuItem1: TMenuItem
    444442      Action = APlayerAdd
Note: See TracChangeset for help on using the changeset viewer.