-
Notifications
You must be signed in to change notification settings - Fork 0
/
unit1.lfm
146 lines (146 loc) · 2.69 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
object Form1: TForm1
Left = 1413
Height = 391
Top = 305
Width = 495
Caption = 'Taschenrechner'
ClientHeight = 391
ClientWidth = 495
Color = clSilver
OnCreate = FormCreate
LCLVersion = '2.2.4.0'
object Label1: TLabel
Left = 216
Height = 15
Top = 32
Width = 82
Caption = 'Taschenrechner'
ParentColor = False
OnClick = Label1Click
end
object e_1: TEdit
Left = 36
Height = 23
Hint = 'Hier die erste Zahl eingeben!'
Top = 89
Width = 156
NumbersOnly = True
OnChange = e_1Change
ParentShowHint = False
ShowHint = True
TabOrder = 0
TextHint = 'Hier erste Zahl eingeben'
end
object op_plus: TButton
Left = 216
Height = 30
Top = 89
Width = 30
Caption = '+'
OnClick = op_plusClick
TabOrder = 1
end
object op_minus: TButton
Left = 264
Height = 30
Top = 89
Width = 30
Caption = '-'
OnClick = op_minusClick
TabOrder = 2
end
object op_multiply: TButton
Left = 216
Height = 30
Top = 160
Width = 30
Caption = '*'
OnClick = op_multiplyClick
TabOrder = 3
end
object op_divide: TButton
Left = 264
Height = 30
Top = 160
Width = 30
Caption = '/'
OnClick = op_divideClick
TabOrder = 4
end
object e_2: TEdit
Left = 328
Height = 23
Hint = 'Hier zweite Zahl eingeben'
Top = 89
Width = 144
NumbersOnly = True
OnChange = e_2Change
ParentShowHint = False
ShowHint = True
TabOrder = 5
TextHint = 'Hier zweite Zahl eingeben'
end
object Label2: TLabel
Left = 232
Height = 15
Top = 264
Width = 48
Caption = 'Ergebnis:'
ParentColor = False
OnClick = Label2Click
end
object result: TLabel
Left = 221
Height = 15
Top = 296
Width = 77
Caption = 'Keine Eingabe!'
ParentColor = False
OnClick = resultClick
end
object confirmButton: TButton
Left = 216
Height = 25
Top = 224
Width = 78
Caption = 'Rechnen'
OnClick = confirmButtonClick
TabOrder = 6
end
object check_plus: TCheckBox
Left = 224
Height = 19
Top = 127
Width = 20
Enabled = False
OnChange = check_plusChange
TabOrder = 7
end
object check_minus: TCheckBox
Left = 272
Height = 19
Top = 127
Width = 20
Enabled = False
OnChange = check_plusChange
TabOrder = 8
end
object check_multiply: TCheckBox
Left = 224
Height = 19
Top = 192
Width = 20
Enabled = False
OnChange = check_plusChange
TabOrder = 9
end
object check_divide: TCheckBox
Left = 272
Height = 19
Top = 192
Width = 20
Enabled = False
OnChange = check_plusChange
TabOrder = 10
end
end