File: Unit16.lfm

package info (click to toggle)
optgeo 2.25-1
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 6,948 kB
  • sloc: pascal: 58,877; xml: 63; makefile: 58
file content (140 lines) | stat: -rw-r--r-- 3,508 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
object Form16: TForm16
  Left = 818
  Height = 412
  Top = 389
  Width = 617
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Configuration primaire d''OptGeo'
  ClientHeight = 412
  ClientWidth = 617
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object GroupBox1: TGroupBox
    Left = 16
    Height = 57
    Top = 8
    Width = 577
    Caption = 'Répertoire d''installation d''OptGeo'
    ClientHeight = 35
    ClientWidth = 573
    TabOrder = 0
    object rep1: TEdit
      AnchorSideLeft.Control = GroupBox1
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox1
      AnchorSideTop.Side = asrCenter
      Left = 36
      Height = 25
      Top = 5
      Width = 500
      ReadOnly = True
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 69
    Top = 75
    Width = 577
    BorderSpacing.Top = 10
    Caption = 'Répertoire des exemples'
    ClientHeight = 47
    ClientWidth = 573
    TabOrder = 1
    object DirectoryEdit1: TDirectoryEdit
      AnchorSideLeft.Control = GroupBox2
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox2
      AnchorSideTop.Side = asrCenter
      Left = 36
      Height = 25
      Top = 11
      Width = 500
      ShowHidden = False
      ButtonWidth = 23
      NumGlyphs = 1
      MaxLength = 0
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    AnchorSideTop.Control = GroupBox4
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 81
    Top = 234
    Width = 577
    BorderSpacing.Top = 10
    Caption = 'Répertoire devant recevoir vos simulations personnelles'
    ClientHeight = 59
    ClientWidth = 573
    TabOrder = 2
    object DirectoryEdit3: TDirectoryEdit
      AnchorSideLeft.Control = GroupBox3
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox3
      AnchorSideTop.Side = asrCenter
      Left = 36
      Height = 25
      Top = 17
      Width = 500
      ShowHidden = False
      ButtonWidth = 23
      NumGlyphs = 1
      MaxLength = 0
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    AnchorSideTop.Control = GroupBox2
    AnchorSideTop.Side = asrBottom
    Left = 15
    Height = 70
    Top = 154
    Width = 577
    BorderSpacing.Top = 10
    Caption = 'Répertoire devant contenir votre configuration personnelle d''OptGeo'
    ClientHeight = 48
    ClientWidth = 573
    TabOrder = 3
    object DirectoryEdit2: TDirectoryEdit
      AnchorSideLeft.Control = GroupBox4
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox4
      AnchorSideTop.Side = asrCenter
      Left = 36
      Height = 25
      Top = 12
      Width = 500
      ShowHidden = False
      ButtonWidth = 23
      NumGlyphs = 1
      MaxLength = 0
      TabOrder = 0
    end
  end
  object BitBtn1: TBitBtn
    AnchorSideTop.Control = GroupBox3
    AnchorSideTop.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 16
    Height = 77
    Top = 325
    Width = 577
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Top = 10
    BorderSpacing.Bottom = 10
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 4
  end
end