-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmain.dfm
159 lines (159 loc) · 3.08 KB
/
main.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
object Okno: TOkno
Left = 277
Top = 187
Width = 1044
Height = 540
Caption = 'Okno'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
PixelsPerInch = 96
TextHeight = 13
object ObszarObrazu: TPaintBox
Left = 193
Top = 0
Width = 835
Height = 501
Align = alClient
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 193
Height = 501
Align = alLeft
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 200
Width = 42
Height = 13
Caption = 'Ruszaj X'
end
object Label2: TLabel
Left = 16
Top = 280
Width = 42
Height = 13
Caption = 'Ruszaj Y'
end
object Label3: TLabel
Left = 16
Top = 8
Width = 83
Height = 13
Caption = 'Osrodek pierwszy'
end
object Label4: TLabel
Left = 16
Top = 64
Width = 66
Height = 13
Caption = 'Osrodek drugi'
end
object Label5: TLabel
Left = 16
Top = 112
Width = 56
Height = 13
Caption = 'k'#261't padania'
end
object Label6: TLabel
Left = 16
Top = 152
Width = 67
Height = 13
Caption = 'k'#261't za'#322'amania'
end
object CBOsrodkiN1: TComboBox
Left = 16
Top = 32
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = 'powietrze'
OnChange = CBOsrodkiN1Change
Items.Strings = (
'powietrze'
'woda'
'typowe szk'#322'o'
'diament')
end
object CBOsrodkiN2: TComboBox
Left = 16
Top = 80
Width = 145
Height = 21
ItemHeight = 13
ItemIndex = 1
TabOrder = 1
Text = 'woda'
OnChange = CBOsrodkiN2Change
Items.Strings = (
'powietrze'
'woda'
'typowe szk'#322'o'
'diament')
end
object TBZmianaPozycjiX: TTrackBar
Left = 8
Top = 232
Width = 150
Height = 45
Orientation = trHorizontal
Frequency = 1
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 2
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBZmianaPozycjiXChange
end
object TBZmianaPozycjiY: TTrackBar
Left = 8
Top = 304
Width = 150
Height = 45
Orientation = trHorizontal
Frequency = 1
Position = 1
SelEnd = 0
SelStart = 0
TabOrder = 3
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TBZmianaPozycjiYChange
end
object EDKatPadania: TEdit
Left = 16
Top = 128
Width = 121
Height = 21
Enabled = False
TabOrder = 4
end
object EDKatZalamania: TEdit
Left = 16
Top = 176
Width = 121
Height = 21
Enabled = False
TabOrder = 5
end
end
object TimerStart: TTimer
Enabled = False
Interval = 100
OnTimer = TimerStartTimer
Left = 216
Top = 16
end
end