Changeset 154 for trunk/Forms


Ignore:
Timestamp:
Oct 16, 2017, 3:44:47 PM (7 years ago)
Author:
chronos
Message:
  • Fixed: Settings dialog buttons position on form resize.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormSettings.lfm

    r151 r154  
    11object FormSettings: TFormSettings
    22  Left = 798
    3   Height = 491
     3  Height = 371
    44  Top = 367
    5   Width = 689
     5  Width = 590
    66  Caption = 'Settings'
    7   ClientHeight = 491
    8   ClientWidth = 689
     7  ClientHeight = 371
     8  ClientWidth = 590
     9  Constraints.MinHeight = 328
     10  Constraints.MinWidth = 389
    911  OnCreate = FormCreate
    1012  OnShow = FormShow
    … …  
    1214  LCLVersion = '1.6.4.0'
    1315  object ComboBoxLanguage: TComboBox
    14     Left = 184
     16    Left = 152
    1517    Height = 28
    1618    Top = 24
    17     Width = 236
     19    Width = 208
    1820    ItemHeight = 20
    1921    Style = csDropDownList
    … …  
    2931  end
    3032  object ButtonOk: TButton
    31     Left = 584
     33    Left = 506
    3234    Height = 25
    33     Top = 448
     35    Top = 326
    3436    Width = 75
    35     Anchors = [akRight]
     37    Anchors = [akRight, akBottom]
    3638    Caption = 'Ok'
    3739    ModalResult = 1
    … …  
    4042  end
    4143  object ButtonCancel: TButton
    42     Left = 459
     44    Left = 410
    4345    Height = 25
    44     Top = 447
     46    Top = 326
    4547    Width = 75
    4648    Anchors = [akRight, akBottom]
    … …  
    7577  end
    7678  object CheckBoxAutomaticDPI: TCheckBox
    77     Left = 18
     79    Left = 16
    7880    Height = 24
    79     Top = 191
     81    Top = 192
    8082    Width = 120
    8183    Caption = 'Automatic DPI'
    … …  
    8587  end
    8688  object SpinEditDPI: TSpinEdit
    87     Left = 96
     89    Left = 94
    8890    Height = 28
    89     Top = 221
     91    Top = 222
    9092    Width = 97
    9193    MaxValue = 300
    … …  
    9698  end
    9799  object Label2: TLabel
    98     Left = 48
     100    Left = 46
    99101    Height = 20
    100     Top = 221
     102    Top = 222
    101103    Width = 26
    102104    Caption = 'DPI:'
    … …  
    105107  end
    106108  object CheckBoxReopenLastFileOnStart: TCheckBox
    107     Left = 360
     109    Left = 16
    108110    Height = 24
    109     Top = 64
     111    Top = 160
    110112    Width = 181
    111113    Caption = 'Reopen last file on start'
    112114    TabOrder = 8
    113115  end
     116  object Bevel1: TBevel
     117    Left = 8
     118    Height = 2
     119    Top = 309
     120    Width = 570
     121    Anchors = [akLeft, akRight, akBottom]
     122  end
    114123end

  • trunk/Forms/UFormSettings.pas

    r151 r154  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   Menus, Spin, ULanguages;
     9  Menus, Spin, ExtCtrls, ULanguages;
    1010
    1111type
    … …  
    1414
    1515  TFormSettings = class(TForm)
     16    Bevel1: TBevel;
    1617    ButtonOk: TButton;
    1718    ButtonCancel: TButton;
Note: See TracChangeset for help on using the changeset viewer.