File: encloseifdef.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (183 lines) | stat: -rw-r--r-- 4,309 bytes parent folder | download | duplicates (8)
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
object EncloseIfDefForm: TEncloseIfDefForm
  Left = 415
  Height = 384
  Top = 298
  Width = 374
  ActiveControl = FirstTest
  BorderIcons = [biSystemMenu]
  Caption = 'Conditional Defines'
  ClientHeight = 384
  ClientWidth = 374
  OnCreate = CondFormCREATE
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.5'
  object NewTestGroupBox: TGroupBox
    Left = 6
    Height = 163
    Top = 6
    Width = 362
    Align = alTop
    AutoSize = True
    BorderSpacing.Around = 6
    Caption = 'NewTestGroupBox'
    ClientHeight = 147
    ClientWidth = 360
    TabOrder = 0
    object FirstLabel: TLabel
      Left = 6
      Height = 15
      Top = 6
      Width = 348
      Align = alTop
      BorderSpacing.Around = 6
      Caption = '&First test'
      ParentColor = False
    end
    object SecondLabel: TLabel
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 15
      Top = 60
      Width = 348
      Align = alTop
      BorderSpacing.Around = 6
      Caption = '&Second test'
      ParentColor = False
    end
    object FirstTest: TComboBox
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 27
      Top = 27
      Width = 348
      Align = alTop
      BorderSpacing.Around = 6
      ItemHeight = 0
      ItemIndex = 0
      Items.Strings = (
        'MSWINDOWS'
        'UNIX'
        'LINUX'
        'WIN32'
        'CLX_'
        'LCL_'
        'VCL_'
        'FPC'
        'KYLIX'
        'VER1_0'
      )
      OnChange = TestEditChange
      TabOrder = 0
      Text = 'MSWINDOWS'
    end
    object SecondTest: TComboBox
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 27
      Top = 81
      Width = 348
      Align = alTop
      BorderSpacing.Around = 6
      ItemHeight = 0
      ItemIndex = 0
      Items.Strings = (
        'NONE'
        'ELSE'
      )
      OnChange = TestEditChange
      TabOrder = 1
      Text = 'NONE'
    end
    object AddBtn: TBitBtn
      AnchorSideTop.Control = SecondTest
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = AddInverse
      Left = 108
      Height = 27
      Top = 114
      Width = 75
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = '&Add'
      Constraints.MinHeight = 25
      Constraints.MinWidth = 75
      OnClick = AddBtnClick
      TabOrder = 2
    end
    object RemoveBtn: TBitBtn
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = SecondTest
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = NewTestGroupBox
      AnchorSideRight.Side = asrBottom
      Left = 279
      Height = 27
      Top = 114
      Width = 75
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = '&Remove'
      Constraints.MinHeight = 25
      Constraints.MinWidth = 75
      OnClick = RemoveBtnClick
      TabOrder = 4
    end
    object AddInverse: TBitBtn
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = SecondTest
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = RemoveBtn
      Left = 189
      Height = 27
      Top = 114
      Width = 84
      HelpType = htKeyword
      Anchors = [akTop, akRight]
      AutoSize = True
      BorderSpacing.Around = 6
      Caption = 'Add Inverse'
      Constraints.MinHeight = 25
      Constraints.MinWidth = 75
      OnClick = AddInverseCLICK
      TabOrder = 3
    end
  end
  object ListBox: TListBox
    Left = 6
    Height = 163
    Top = 175
    Width = 362
    Align = alClient
    Anchors = [akTop]
    BorderSpacing.Around = 6
    ItemHeight = 0
    OnClick = ListBoxClick
    OnDblClick = ListBoxDblClick
    OnKeyDown = ListBoxKeyDown
    ScrollWidth = 360
    TabOrder = 1
    TopIndex = -1
  end
  object ButtonPanel1: TButtonPanel
    Left = 6
    Height = 34
    Top = 344
    Width = 362
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    OKButton.OnClick = OKButtonClick
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    HelpButton.OnClick = HelpButtonClick
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CloseButton.OnClick = btnSaveClick
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 2
    ShowBevel = False
  end
end