Ignore:
Timestamp:
Dec 31, 2024, 1:15:01 PM (7 days ago)
Author:
chronos
Message:
  • Added: Close button on more forms for better touch screen devices support.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormPlayersStats.lfm

    r317 r362  
    11object FormPlayersStats: TFormPlayersStats
    2   Left = 907
    3   Height = 300
    4   Top = 570
    5   Width = 746
     2  Left = 689
     3  Height = 249
     4  Top = 437
     5  Width = 598
    66  Caption = 'Players stats'
    7   ClientHeight = 300
    8   ClientWidth = 746
    9   DesignTimePPI = 144
     7  ClientHeight = 249
     8  ClientWidth = 598
     9  Constraints.MinHeight = 100
     10  Constraints.MinWidth = 100
     11  DesignTimePPI = 120
    1012  OnShow = FormShow
    11   LCLVersion = '3.4.0.0'
     13  LCLVersion = '3.6.0.0'
    1214  object ListView1: TListView
    13     Left = 5
    14     Height = 290
    15     Top = 5
    16     Width = 736
    17     Align = alClient
    18     BorderSpacing.Around = 5
     15    Left = 8
     16    Height = 191
     17    Top = 8
     18    Width = 582
     19    Align = alTop
     20    Anchors = [akTop, akLeft, akRight, akBottom]
     21    BorderSpacing.Around = 8
    1922    Columns = <   
    2023      item
    2124        Caption = 'Name'
    22         Width = 120
     25        Width = 100
    2326      end   
    2427      item
    2528        Caption = 'Mode'
    26         Width = 120
     29        Width = 100
    2730      end   
    2831      item
    2932        Caption = 'Cells'
    30         Width = 120
     33        Width = 100
    3134      end   
    3235      item
    3336        Caption = 'Discovered'
    34         Width = 120
     37        Width = 100
    3538      end   
    3639      item
    3740        Caption = 'Cities'
    38         Width = 120
     41        Width = 100
    3942      end   
    4043      item
    4144        Caption = 'Units'
    42         Width = 120
     45        Width = 100
    4346      end   
    4447      item
    4548        Caption = 'Win objective cells'
    46         Width = 150
     49        Width = 125
    4750      end>
    4851    OwnerData = True
    … …  
    5457    OnData = ListView1Data
    5558  end
     59  object ButtonClose: TButton
     60    Left = 496
     61    Height = 31
     62    Top = 207
     63    Width = 94
     64    Anchors = [akRight, akBottom]
     65    Caption = 'Close'
     66    TabOrder = 1
     67    OnClick = ButtonCloseClick
     68  end
    5669  object PopupMenu1: TPopupMenu
    57     Left = 172
    58     Top = 132
     70    Left = 143
     71    Top = 110
    5972    object MenuItem1: TMenuItem
    6073      Action = ASpectate
    … …  
    6275  end
    6376  object ActionList1: TActionList
    64     Left = 448
    65     Top = 136
     77    Left = 373
     78    Top = 113
    6679    object ASpectate: TAction
    6780      Caption = 'Spectate'
    … …  
    7588    Column = 0
    7689    Order = soNone
    77     Left = 653
    78     Top = 132
     90    Left = 544
     91    Top = 110
    7992  end
    8093end
Note: See TracChangeset for help on using the changeset viewer.