File: Unit15.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 (51 lines) | stat: -rw-r--r-- 1,257 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
object saisiejoindre: Tsaisiejoindre
  Left = 200
  Height = 96
  Top = 108
  Width = 317
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Relier les points'
  ClientHeight = 96
  ClientWidth = 317
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object RadioGroup1: TRadioGroup
    Left = 8
    Height = 89
    Top = 0
    Width = 193
    AutoFill = True
    Caption = 'Joindre les points par:'
    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 = 67
    ClientWidth = 189
    ItemIndex = 0
    Items.Strings = (
      'Un arc de cercle'
      'Un segment de droite'
    )
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 216
    Height = 80
    Top = 8
    Width = 90
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 1
  end
end