-
Notifications
You must be signed in to change notification settings - Fork 0
/
uIOPortForm.dfm
218 lines (218 loc) · 7.71 KB
/
uIOPortForm.dfm
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
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
object IOPortForm: TIOPortForm
Left = 190
Top = 162
Width = 152
Height = 277
BorderStyle = bsSizeToolWin
Caption = 'i8008 Ports'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
ScreenSnap = True
OnCanResize = FormCanResize
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object gbPortFile: TGroupBox
Left = 0
Top = 163
Width = 144
Height = 87
Align = alBottom
Caption = ' Datei '
TabOrder = 0
DesignSize = (
144
87)
object iINClose: TImage
Left = 15
Top = 62
Width = 16
Height = 16
Picture.Data = {
07544269746D617076010000424D760100000000000076000000280000002000
000010000000010004000000000000010000120B0000120B0000100000000000
0000000000000000800000800000008080008000000080008000808000008080
8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00555555555555555555555555555555555995555555555995588F55555555
588509990000000599957888F77777758885009993333339995577888F777778
88F50B09993333999555787888F777888F550BB09993399930557887888F7888
F7550BBB09999993330578887888888F77750BBBB099990000007888878888F7
77770BBBBB99990555557888888888F555550BBBB9999995555578888888888F
55550BBB999BB99955557888888F8888F55500B999BB00999555778888F87788
8F55509990000559995557888F77755888F559995555555599955888F5555555
88855995555555555995588F5555555558855555555555555555555555555555
5555}
Transparent = True
end
object sbFile: TSpeedButton
Left = 30
Top = 38
Width = 91
Height = 22
Anchors = [akTop]
Caption = #214'ffnen'
Flat = True
OnClick = sbFileClick
end
object sbClose: TSpeedButton
Left = 30
Top = 60
Width = 91
Height = 22
Anchors = [akTop]
Caption = 'Schlie'#223'en'
Flat = True
NumGlyphs = 2
OnClick = sbCloseClick
end
object iIN: TImage
Left = 15
Top = 40
Width = 16
Height = 16
Picture.Data = {
07544269746D617076010000424D760100000000000076000000280000002000
000010000000010004000000000000010000120B0000120B0000100000000000
0000000000000000800000800000008080008000000080008000808000008080
8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00555555555555555555555555555555555555555555555555555555555555
5555000000000005555577777777777555550033333333305555777777777777
55550B0333333333055578777777777775550BB0333333333055788777777777
77550BBB03333333330578887777777777750BBBB00000000000788887777777
77770BBBBBBBBB05555578888888887555550BBBBBBBBB055555788888888875
55550BBBBBBBBB055555788888888875555500BBBBBB00055555778888887775
5555500000000555555557777777755555555555555555555555555555555555
5555555555555555555555555555555555555555555555555555555555555555
5555}
Transparent = True
end
object iOUT: TImage
Left = 7
Top = 40
Width = 16
Height = 16
Picture.Data = {
07544269746D617076010000424D760100000000000076000000280000002000
000010000000010004000000000000010000120B0000120B0000100000000000
0000000000000000800000800000008080008000000080008000808000008080
8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF005550000000000000555777777777777755000000008807705577777777FF
7887507000000000077057877777777778870770000000000770788777777777
7887077777777777777078888888888888870777777777777770788888888888
8887077777777777777078888888888888870777777777777770788888888888
8887077777777777777078888888888888870770000000000770788777777777
788707708888888807707887FFFFFFFF788707708888888807707887FFFFFFFF
788707708888888800007887FFFFFFFF777707708888888808807887FFFFFFFF
788707708888888808807887FFFFFFFF78870000000000000000777777777777
7777}
Transparent = True
end
object iOUTClose: TImage
Left = 7
Top = 62
Width = 16
Height = 16
Picture.Data = {
07544269746D617076010000424D760100000000000076000000280000002000
000010000000010004000000000000010000120B0000120B0000100000000000
0000000000000000800000800000008080008000000080008000808000008080
8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00555000000000000055577777777777775990000000880990588F777777FF
788759990000000099905888F77777778887079990000009997078888F777778
88F70779997777999770788888F888888F8707779997799977707888888F8888
F887077779999997777078888888888F888707777799997777707888888888F8
888707777799997777707888888888F88887077009999990077078877888888F
7887077099988999077078878887F888F88707799988889997707888887FFF88
8F870799988888899900788887FFFFF888F7099988888888999078887FFFFFFF
888709908888888809907887FFFFFFFF78870000000000000000777777777777
7777}
Transparent = True
end
object sbResetFile: TSpeedButton
Left = 98
Top = 14
Width = 23
Height = 22
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555559999995
5555555557777775555555559555555955555555755555575555009900000005
9955777777777775775500993333333099557777888888877755090393333339
059577777888888775759BB039333393305978878788887887579BBB03933933
330978887878878888779BBBB0099000000978888777777777779BBBBBB99B05
555978888887787555579BBBBB9BB905555978888878877555579BBBB9BBBB95
5559788887888875555709BB9BBB000955957788788877775575509900000555
9955577777777555775555995555555599555577555555557755555595555559
5555555575555557555555555999999555555555577777755555}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = sbResetFileClick
end
object cbPortActive: TCheckBox
Left = 17
Top = 16
Width = 71
Height = 17
Anchors = [akTop]
Caption = 'Aktivieren'
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
OnClick = cbPortActiveClick
end
end
object sgIOPort: TStringGrid
Left = 0
Top = 0
Width = 144
Height = 163
Align = alClient
BorderStyle = bsNone
Ctl3D = True
GridLineWidth = 0
ParentCtl3D = False
PopupMenu = PopupMenu
ScrollBars = ssVertical
TabOrder = 1
OnDblClick = sgIOPortDblClick
OnDrawCell = sgIOPortDrawCell
OnKeyUp = sgIOPortKeyUp
OnSelectCell = sgIOPortSelectCell
end
object PopupMenu: TPopupMenu
MenuAnimation = [maLeftToRight]
Left = 16
Top = 8
object miClose: TMenuItem
Caption = 'Beenden'
OnClick = miCloseClick
end
object N1: TMenuItem
Caption = '-'
end
object miStayOnTop: TMenuItem
Caption = 'immer im Vordergrund'
OnClick = miStayOnTopClick
end
end
object OpenDialog: TOpenDialog
Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 48
Top = 8
end
object SaveDialog: TSaveDialog
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
Left = 80
Top = 8
end
end