File: Unit11.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 (289 lines) | stat: -rw-r--r-- 7,396 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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
object saisieespacetravail: Tsaisieespacetravail
  Left = 857
  Height = 561
  Top = 113
  Width = 389
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Dimensions de l''espace de travail'
  ClientHeight = 561
  ClientWidth = 389
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = saisiexxmin
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 57
    Top = 85
    Width = 177
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Abscisse maximale'
    ClientHeight = 35
    ClientWidth = 173
    TabOrder = 0
    object editxxmax: TEdit
      AnchorSideLeft.Control = GroupBox1
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox1
      AnchorSideTop.Side = asrCenter
      Left = 30
      Height = 25
      Top = 5
      Width = 113
      OnChange = editxxmaxChange
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = saisieyymin
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 57
    Top = 211
    Width = 177
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Ordonnées maximale'
    ClientHeight = 35
    ClientWidth = 173
    TabOrder = 1
    object edityymax: TEdit
      AnchorSideLeft.Control = GroupBox2
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox2
      AnchorSideTop.Side = asrCenter
      Left = 30
      Height = 25
      Top = 5
      Width = 113
      OnChange = edityymaxChange
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = rapporthl
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 65
    Top = 385
    Width = 360
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Repére orthonormé (approximativement)'
    ClientHeight = 43
    ClientWidth = 356
    TabOrder = 2
    object StaticText1: TLabel
      Left = 16
      Height = 17
      Top = 64
      Width = 308
      Caption = 'Remarque: le non respect du rapport implique que'
      ParentColor = False
    end
    object StaticText2: TLabel
      Left = 16
      Height = 17
      Top = 80
      Width = 252
      Caption = 'les angles à l''écran ne sont pas respectés.'
      ParentColor = False
    end
    object cocherespect: TCheckBox
      AnchorSideLeft.Control = GroupBox3
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox3
      AnchorSideTop.Side = asrCenter
      Left = 24
      Height = 21
      Top = 11
      Width = 309
      Caption = 'Respecter le rapport hauteur/largeur de l''écran'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
  end
  object rapporthl: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox2
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 97
    Top = 278
    Width = 359
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Rapport hauteur/largeur'
    ClientHeight = 75
    ClientWidth = 355
    Color = clAqua
    ParentColor = False
    TabOrder = 3
    object StaticText5: TLabel
      Left = 8
      Height = 17
      Top = 8
      Width = 60
      Caption = 'Rapport='
      ParentColor = False
    end
    object statrapportactuel: TLabel
      Left = 62
      Height = 17
      Top = 8
      Width = 32
      Caption = '        '
      ParentColor = False
    end
    object StaticText6: TLabel
      Left = 8
      Height = 17
      Top = 32
      Width = 301
      Caption = 'Rapport idéal (permettant d''occuper le maximum'
      ParentColor = False
    end
    object StaticText7: TLabel
      Left = 8
      Height = 17
      Top = 56
      Width = 281
      Caption = 'de surface d''écran avec repére orthonormé)='
      ParentColor = False
    end
    object statrapportideal: TLabel
      Left = 235
      Height = 17
      Top = 56
      Width = 36
      Caption = '         '
      ParentColor = False
    end
  end
  object radiounite: TRadioGroup
    AnchorSideLeft.Control = saisiexxmin
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = GroupBox2
    AnchorSideBottom.Side = asrBottom
    Left = 197
    Height = 258
    Top = 10
    Width = 171
    Anchors = [akTop, akLeft, akBottom]
    AutoFill = True
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Unité de longueur'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 236
    ClientWidth = 167
    ItemIndex = 6
    Items.Strings = (
      'km'
      'hm'
      'dam'
      'm'
      'dm'
      'cm'
      'mm'
      'µm'
      ''
    )
    TabOrder = 4
  end
  object saisiexxmin: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 10
    Height = 65
    Top = 10
    Width = 177
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Abscisse minimale'
    ClientHeight = 43
    ClientWidth = 173
    TabOrder = 5
    object editxxmin: TEdit
      AnchorSideLeft.Control = saisiexxmin
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = saisiexxmin
      AnchorSideTop.Side = asrCenter
      Left = 30
      Height = 25
      Top = 9
      Width = 113
      OnChange = editxxminChange
      TabOrder = 0
      Text = '0'
    end
  end
  object saisieyymin: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 10
    Height = 49
    Top = 152
    Width = 177
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    Caption = 'Ordonnée minimale'
    ClientHeight = 27
    ClientWidth = 173
    TabOrder = 6
    object edityymin: TEdit
      AnchorSideLeft.Control = saisieyymin
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = saisieyymin
      AnchorSideTop.Side = asrCenter
      Left = 30
      Height = 25
      Top = 1
      Width = 113
      OnChange = edityyminChange
      TabOrder = 0
      Text = '0'
    end
  end
  object BitBtn1: TBitBtn
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = GroupBox3
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 10
    Height = 91
    Top = 460
    Width = 369
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Right = 10
    BorderSpacing.Bottom = 10
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 7
  end
end