-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathglavni.lfm
217 lines (217 loc) · 4.52 KB
/
glavni.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
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
object x: Tx
Left = 162
Height = 994
Top = 34
Width = 882
Caption = 'Odbrojavanje'
ClientHeight = 994
ClientWidth = 882
Color = clSkyBlue
OnCreate = FormCreate
object GroupBox1: TGroupBox
Left = 0
Height = 123
Top = 557
Width = 984
Caption = 'Odaberi vrijeme'
ClientHeight = 96
ClientWidth = 974
ParentBackground = False
TabOrder = 0
object TimePicker: TTimeEdit
Left = 871
Height = 22
Top = 0
Width = 103
ButtonWidth = 23
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
end
object TimerIntervalTrackbar: TTrackBar
Left = 192
Height = 25
Top = 70
Width = 604
Frequency = 1000
Max = 50000000
Min = 1
Position = 300000
OnChange = TimerIntervalTrackbarChange
TabOrder = 1
end
object Button1: TButton
Left = 504
Height = 25
Top = 32
Width = 75
Caption = '>'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 0
Height = 25
Top = 32
Width = 75
Caption = '<'
TabOrder = 3
OnClick = Button2Click
end
end
object OdbrojavanjeLabel: TLabel
Left = 123
Height = 27
Top = 16
Width = 115
Anchors = []
BorderSpacing.Top = 40
Caption = '00:00:00'
Color = clHotLight
Font.CharSet = ANSI_CHARSET
Font.Height = -24
Font.Name = 'Andale Mono'
ParentColor = False
ParentFont = False
end
object TrenutnoVrijemeLabel: TLabel
Left = 123
Height = 21
Top = 61
Width = 91
Anchors = []
Caption = '10:00:00'
Font.CharSet = ANSI_CHARSET
Font.Height = -19
Font.Name = 'Andale Mono'
ParentFont = False
end
object GroupBox2: TGroupBox
Left = -8
Height = 1488
Top = 128
Width = 984
ParentBackground = False
TabOrder = 1
end
object StatusBar1: TStatusBar
Left = 304
Height = 18
Top = 168
Width = 443
Align = alNone
Anchors = []
Panels = <>
SimpleText = 'Plese select start time and date'
end
object DatePicker: TDateEdit
Left = 8
Height = 22
Top = 80
Width = 103
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
DateOrder = doNone
ButtonWidth = 23
NumGlyphs = 1
MaxLength = 0
TabOrder = 3
end
object ProgressBar1: TProgressBar
Left = 168
Height = 20
Top = 88
Width = 523
Max = -1
Min = -1
Position = -1
TabOrder = 4
end
object ExtendedNotebook1: TExtendedNotebook
Left = 0
Height = 721
Top = 208
Width = 901
ActivePage = TabSheet1
Anchors = [akLeft, akRight]
TabIndex = 0
TabOrder = 5
OnChange = ExtendedNotebook1Change
object TabSheet1: TTabSheet
Caption = 'Sun Times'
ClientHeight = 685
ClientWidth = 895
object SunGraphPaintBox: TPaintBox
Left = 8
Height = 200
Top = 48
Width = 840
Anchors = [akTop, akLeft, akRight, akBottom]
OnMouseDown = SunGraphPaintBoxMouseDown
OnMouseMove = SunGraphPaintBoxMouseMove
OnPaint = SunGraphPaintBoxPaint
end
object PaintBox1: TPaintBox
Left = 8
Height = 360
Top = 256
Width = 840
Anchors = [akTop, akLeft, akRight, akBottom]
OnMouseDown = PaintBox1MouseDown
OnMouseMove = PaintBox1MouseMove
OnMouseUp = PaintBox1MouseUp
OnMouseWheel = PaintBox1MouseWheel
OnPaint = PaintBox1Paint
end
object SunEvents: TComboBox
Left = 0
Height = 20
Top = 16
Width = 264
ItemHeight = 19
TabOrder = 0
Text = 'SunEvents'
OnChange = SunEventsChange
end
end
object TabSheet2: TTabSheet
Caption = 'Stocks'
end
object TabSheet3: TTabSheet
Caption = 'Logg'
ClientHeight = 685
ClientWidth = 895
object LogListView: TListView
Left = 0
Height = 447
Top = 8
Width = 974
Columns = <
item
Width = 220
end>
TabOrder = 0
end
end
end
object TimerIntervalLabel: TLabel
Left = 272
Height = 16
Top = 128
Width = 112
Caption = 'TimerIntervalLabel'
end
object CiljaniDateTimeLabel: TLabel
Left = 296
Height = 16
Top = 24
Width = 33
Caption = '07:31'
end
object OdbrojavanjeTimer: TTimer
Interval = 1
OnTimer = OdbrojavanjeTimerTimer
OnStartTimer = OdbrojavanjeTimerTimer
Left = 520
Top = 8
end
end