File: saisiefant.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 (159 lines) | stat: -rw-r--r-- 4,635 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
object saisiefantomes: Tsaisiefantomes
  Left = 200
  Height = 330
  Top = 108
  Width = 818
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Pour cacher des segments de rayon'
  ClientHeight = 330
  ClientWidth = 818
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object GroupBox1: TGroupBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 10
    Height = 310
    Top = 10
    Width = 609
    Anchors = [akTop, akLeft, akBottom]
    BorderSpacing.Left = 10
    BorderSpacing.Top = 10
    BorderSpacing.Bottom = 10
    Caption = 'Saisie des fantomes'
    ClientHeight = 288
    ClientWidth = 605
    TabOrder = 0
    object StaticText1: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = GroupBox1
      Left = 10
      Height = 17
      Top = 10
      Width = 503
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      Caption = 'Pour des raisons de commodité, la possibilité vous est offerte de "cacher" certaines'
      ParentColor = False
    end
    object StaticText2: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText1
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 27
      Width = 537
      BorderSpacing.Left = 10
      Caption = 'parties des rayons lumineux calculés. Pour ce faire, cocher la case "Créer des fantomes",'
      ParentColor = False
    end
    object StaticText3: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText2
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 44
      Width = 529
      BorderSpacing.Left = 10
      Caption = 'et donner la liste des segments à cacher. Les numéros des segments sont actuellement'
      ParentColor = False
    end
    object StaticText4: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText3
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 61
      Width = 158
      BorderSpacing.Left = 10
      Caption = 'visualisés sur la simulation.'
      ParentColor = False
    end
    object StaticText5: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = cochefantomes
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 119
      Width = 555
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      Caption = 'Liste des fantomes (liste entre parenthéses, numéro des segments séparés par des virgules,'
      ParentColor = False
    end
    object StaticText6: TLabel
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText5
      AnchorSideTop.Side = asrBottom
      Left = 10
      Height = 17
      Top = 136
      Width = 223
      BorderSpacing.Left = 10
      Caption = 'sans espaces); exemple: (1,5,10,12)'
      ParentColor = False
    end
    object cochefantomes: TCheckBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = StaticText4
      AnchorSideTop.Side = asrBottom
      Left = 231
      Height = 21
      Top = 88
      Width = 143
      BorderSpacing.Top = 10
      Caption = 'Créer des fantomes'
      TabOrder = 0
    end
    object editfantomes: TEdit
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = StaticText6
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = GroupBox1
      AnchorSideRight.Side = asrBottom
      Left = 10
      Height = 25
      Top = 163
      Width = 585
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 10
      BorderSpacing.Top = 10
      BorderSpacing.Right = 10
      TabOrder = 1
    end
  end
  object BitBtn1: TBitBtn
    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 629
    Height = 310
    Top = 10
    Width = 179
    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 = 1
  end
end