-
Notifications
You must be signed in to change notification settings - Fork 7
/
Copy pathUnit1.lfm
173 lines (173 loc) · 4.1 KB
/
Unit1.lfm
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
object Form1: TForm1
Left = 364
Height = 305
Top = 114
Width = 410
ActiveControl = Button1
Caption = 'Form1'
ClientHeight = 305
ClientWidth = 410
Font.Height = -11
Font.Name = 'MS Sans Serif'
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnPaint = FormPaint
OnResize = FormResize
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object GroupBox1: TGroupBox
Left = 0
Height = 57
Top = 0
Width = 410
Align = alTop
Caption = ' Enter Formel '
ClientHeight = 39
ClientWidth = 406
TabOrder = 0
object Button1: TButton
Left = 112
Height = 25
Top = 4
Width = 75
Caption = '&Get'
OnClick = Button1Click
PopupMenu = PopupMenu2
TabOrder = 0
end
object ComboBox1: TComboBox
Left = 8
Height = 21
Hint = 'Warning : No Syntax checking !'
Top = 4
Width = 73
ItemHeight = 13
ItemIndex = 6
Items.Strings = (
'A'
'not A'
'not not A'
'A and 1'
'A or 0'
'A or B'
'A and B'
'A xor B'
'A <-> B'
'A -> B'
'not ( A and B )'
)
OnKeyPress = ComboBox1KeyPress
ParentShowHint = False
ShowHint = True
TabOrder = 1
Text = 'A and B'
end
object Button2: TButton
Left = 200
Height = 25
Top = 4
Width = 75
Caption = '&Close'
OnClick = Button2Click
TabOrder = 2
end
end
object StringGrid1: TStringGrid
Left = 0
Height = 248
Top = 57
Width = 410
Align = alClient
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColMoving, goRowSelect]
PopupMenu = PopupMenu1
TabOrder = 1
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
OnDrawCell = StringGrid1DrawCell
OnSelectCell = StringGrid1SelectCell
end
object PopupMenu1: TPopupMenu
Left = 8
Top = 72
object Colourize1: TMenuItem
Caption = '&Colourize'
Checked = True
OnClick = Colourize1Click
end
object ShowOnlyResult11: TMenuItem
Caption = 'Show Only Result = &1'
OnClick = ShowOnlyResult11Click
end
object ShowonlyResult01: TMenuItem
Caption = 'Show only Result = &0'
OnClick = ShowonlyResult01Click
end
object Resortlist1: TMenuItem
Caption = '&Resort list'
OnClick = Resortlist1Click
end
object MakeKVDiagram1: TMenuItem
Caption = '&Make K-V-Diagram'
OnClick = MakeKVDiagram1Click
end
object Load1: TMenuItem
Caption = '&Load'
OnClick = Load1Click
end
object Save1: TMenuItem
Caption = '&Save'
OnClick = Save1Click
end
object SavewithoutValues1: TMenuItem
Caption = 'S&ave without Values'
OnClick = SavewithoutValues1Click
end
object ExtracttoLimboole1: TMenuItem
Caption = '&Extract to Limboole'
OnClick = ExtracttoLimboole1Click
end
object ImportfromLimboole1: TMenuItem
Caption = '&Import from Limboole'
OnClick = ImportfromLimboole1Click
end
object Help1: TMenuItem
Caption = '&Help'
OnClick = Help1Click
end
object Support1: TMenuItem
Caption = 'Suppor&t'
OnClick = Support1Click
end
end
object OpenDialog1: TOpenDialog
DefaultExt = '.bfk'
Filter = 'Bit convention|*.bfk|All|*.*'
Left = 40
Top = 72
end
object SaveDialog1: TSaveDialog
DefaultExt = '.bfk'
Filter = 'Bit convention|*.bfk|All|*.*'
Left = 72
Top = 72
end
object PopupMenu2: TPopupMenu
Left = 8
Top = 104
object GetonlyResult11: TMenuItem
Caption = 'Get only Result = &1'
OnClick = GetonlyResult11Click
end
object GetonlyResult01: TMenuItem
Caption = 'Get only Result = &0'
OnClick = GetonlyResult01Click
end
end
object OpenDialog2: TOpenDialog
DefaultExt = '.*'
Filter = 'All|*.*'
Left = 40
Top = 104
end
end