Ignore:
Timestamp:
Jun 29, 2024, 7:58:36 AM (3 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from units names.
  • Modified: Use TFormEx for all forms.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormConnect.lfm

    r31 r32  
    11object FormConnect: TFormConnect
    2   Left = 795
    3   Height = 542
    4   Top = 509
    5   Width = 739
     2  Left = 590
     3  Height = 470
     4  Top = 269
     5  Width = 641
    66  Caption = 'Connection parameters'
    7   ClientHeight = 542
    8   ClientWidth = 739
    9   DesignTimePPI = 144
    10   OnCreate = FormCreate
    11   LCLVersion = '2.2.2.0'
     7  ClientHeight = 470
     8  ClientWidth = 641
     9  DesignTimePPI = 125
     10  LCLVersion = '3.2.0.0'
    1211  object EditName: TEdit
    13     Left = 256
    14     Height = 43
    15     Top = 25
    16     Width = 310
     12    Left = 222
     13    Height = 39
     14    Top = 22
     15    Width = 269
    1716    TabOrder = 0
    1817  end
    1918  object Label1: TLabel
    20     Left = 18
    21     Height = 26
    22     Top = 32
    23     Width = 56
     19    Left = 16
     20    Height = 22
     21    Top = 28
     22    Width = 49
    2423    Caption = 'Name:'
    2524    ParentColor = False
    2625  end
    2726  object Label2: TLabel
    28     Left = 18
    29     Height = 26
    30     Top = 80
    31     Width = 147
     27    Left = 16
     28    Height = 22
     29    Top = 69
     30    Width = 130
    3231    Caption = 'Database engine:'
    3332    ParentColor = False
    3433  end
    3534  object ComboBoxDbEngines: TComboBox
    36     Left = 256
    37     Height = 42
    38     Top = 72
    39     Width = 310
     35    Left = 222
     36    Height = 38
     37    Top = 62
     38    Width = 269
    4039    ItemHeight = 0
    41     OnChange = ComboBoxDbEnginesChange
    4240    Style = csDropDownList
    4341    TabOrder = 1
     42    OnChange = ComboBoxDbEnginesChange
    4443  end
    4544  object ButtonOk: TButton
    46     Left = 624
    47     Height = 30
    48     Top = 496
    49     Width = 90
     45    Left = 541
     46    Height = 26
     47    Top = 430
     48    Width = 78
    5049    Anchors = [akRight, akBottom]
    5150    Caption = 'Ok'
    … …  
    5453  end
    5554  object ButtonCancel: TButton
    56     Left = 488
    57     Height = 30
    58     Top = 496
    59     Width = 90
     55    Left = 423
     56    Height = 26
     57    Top = 430
     58    Width = 78
    6059    Anchors = [akRight, akBottom]
    6160    Caption = 'Cancel'
    … …  
    6463  end
    6564  object PageControl1: TPageControl
    66     Left = 18
    67     Height = 340
    68     Top = 139
    69     Width = 703
     65    Left = 16
     66    Height = 295
     67    Top = 121
     68    Width = 609
    7069    ActivePage = TabSheetRegistry
    7170    Anchors = [akTop, akLeft, akRight]
    … …  
    7473    TabOrder = 4
    7574    object TabSheetXml: TTabSheet
    76       ClientHeight = 336
    77       ClientWidth = 693
     75      ClientHeight = 291
     76      ClientWidth = 599
    7877      object Label3: TLabel
    79         Left = 17
    80         Height = 26
    81         Top = 24
    82         Width = 69
     78        Left = 15
     79        Height = 22
     80        Top = 21
     81        Width = 58
    8382        Caption = 'Xml file:'
    8483        ParentColor = False
    8584      end
    8685      object EditXml: TEdit
    87         Left = 110
    88         Height = 43
    89         Top = 16
    90         Width = 446
     86        Left = 95
     87        Height = 39
     88        Top = 14
     89        Width = 385
    9190        Anchors = [akTop, akLeft, akRight]
    9291        TabOrder = 0
    9392      end
    9493      object ButtonXmlBrowse: TButton
    95         Left = 566
    96         Height = 37
    97         Top = 19
    98         Width = 113
     94        Left = 489
     95        Height = 32
     96        Top = 16
     97        Width = 98
    9998        Anchors = [akTop, akRight]
    10099        Caption = 'Browse'
     100        TabOrder = 1
    101101        OnClick = ButtonXmlBrowseClick
    102         TabOrder = 1
    103102      end
    104103    end
    105104    object TabSheetSql: TTabSheet
    106       ClientHeight = 336
    107       ClientWidth = 693
     105      ClientHeight = 291
     106      ClientWidth = 599
    108107      object Label4: TLabel
    109         Left = 19
    110         Height = 26
    111         Top = 19
    112         Width = 44
     108        Left = 16
     109        Height = 22
     110        Top = 16
     111        Width = 38
    113112        Caption = 'Host:'
    114113        ParentColor = False
    115114      end
    116115      object EditHost: TEdit
    117         Left = 150
    118         Height = 43
    119         Top = 14
    120         Width = 312
     116        Left = 130
     117        Height = 39
     118        Top = 12
     119        Width = 271
    121120        TabOrder = 0
    122121      end
    123122      object Label5: TLabel
    124         Left = 19
    125         Height = 26
    126         Top = 72
    127         Width = 40
     123        Left = 16
     124        Height = 22
     125        Top = 62
     126        Width = 34
    128127        Caption = 'Port:'
    129128        ParentColor = False
    130129      end
    131130      object SpinEditPort: TSpinEdit
    132         Left = 152
    133         Height = 43
    134         Top = 64
    135         Width = 133
     131        Left = 132
     132        Height = 39
     133        Top = 56
     134        Width = 115
    136135        MaxValue = 65535
    137136        TabOrder = 1
    … …  
    144143  end
    145144  object OpenDialog1: TOpenDialog
    146     Left = 632
    147     Top = 32
     145    Left = 549
     146    Top = 28
    148147  end
    149148end
Note: See TracChangeset for help on using the changeset viewer.