-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathRestart.dfm
434 lines (434 loc) · 10.6 KB
/
Restart.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
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
object Form1: TForm1
Left = 722
Top = 546
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'Restarter'
ClientHeight = 362
ClientWidth = 599
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Versione: TLabel
Left = 16
Top = 328
Width = 111
Height = 14
Cursor = crHandPoint
Hint = 'Click here to download the Restarter'
Caption = 'Checking Version..'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Lucida Sans'
Font.Style = [fsBold, fsItalic]
ParentFont = False
OnClick = VersioneClick
end
object Timers: TStringGrid
Left = 14
Top = 155
Width = 547
Height = 128
Hint = 'you can order fields clicking on first row'
ColCount = 7
RowCount = 1
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goRowMoving]
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = TimersClick
OnMouseUp = TimersMouseUp
OnRowMoved = TimersRowMoved
OnSelectCell = TimersSelectCell
ColWidths = (
65
89
64
64
64
64
123)
end
object SecCount: TComboBox
Left = 520
Top = 296
Width = 73
Height = 21
ItemHeight = 13
TabOrder = 1
Visible = False
end
object SaveBtn: TBitBtn
Left = 200
Top = 288
Width = 73
Height = 25
Cursor = crHandPoint
Hint = 'Save permanently the processes'
Caption = '&Save'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = SaveBtnClick
Kind = bkAll
end
object RestoreBtn: TBitBtn
Left = 280
Top = 288
Width = 73
Height = 25
Cursor = crHandPoint
Hint = 'Restore the last saved state'
Caption = '&Restore'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = RestoreBtnClick
Kind = bkRetry
end
object WebBrowser: TWebBrowser
Left = 376
Top = 0
Width = 640
Height = 0
TabOrder = 4
ControlData = {
4C00000025420000000000000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E12620A000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
object ProcName: TGroupBox
Left = 16
Top = 40
Width = 497
Height = 105
Caption = 'ProcName'
TabOrder = 5
object Timer: TLabel
Left = 147
Top = 24
Width = 70
Height = 22
Caption = '0.00.00'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = 'Lucida Sans'
Font.Style = [fsBold]
ParentFont = False
end
object giorni: TLabel
Left = 8
Top = 24
Width = 46
Height = 20
Caption = 'Days:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object STOP: TButton
Left = 320
Top = 24
Width = 65
Height = 20
Cursor = crHandPoint
Hint = 'Start/Stop the checking on the selected process'
Caption = 'STOP'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'Impact'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = STOPClick
end
object GroupBox1: TGroupBox
Left = 400
Top = 19
Width = 89
Height = 78
Caption = 'Clean:'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial Black'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Clean: TButton
Left = 8
Top = 24
Width = 49
Height = 17
Cursor = crHandPoint
Hint = 'Clean the restart counter of the selected process'
Caption = 'restart'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CleanClick
end
object uptime: TButton
Left = 8
Top = 48
Width = 49
Height = 17
Cursor = crHandPoint
Hint = 'Clean the uptime of the selected process'
Caption = 'uptime'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = uptimeClick
end
end
object Del: TBitBtn
Left = 80
Top = 72
Width = 65
Height = 20
Cursor = crHandPoint
Hint = 'Delete the selected process from the grid'
Caption = 'Delete'
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = DelClick
Kind = bkCancel
Layout = blGlyphRight
end
object Edit: TButton
Left = 8
Top = 72
Width = 65
Height = 20
Cursor = crHandPoint
Hint = 'edit the selected process'
Caption = 'Edit'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = EditClick
end
object Hide: TButton
Left = 320
Top = 48
Width = 65
Height = 20
Cursor = crHandPoint
Hint = 'hide/show only console applications'
Caption = 'HIDE'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'Impact'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = HideClick
end
end
object Add: TBitBtn
Left = 515
Top = 112
Width = 30
Height = 33
Cursor = crHandPoint
Hint = 'Add a new process in the grid'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = AddClick
Glyph.Data = {
16020000424D160200000000000076000000280000001A0000001A0000000100
040000000000A001000000000000000000001000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777700000077777777777777777777777777000000777777777777
77777777777777000000777777777778888877777777770000007777777777FA
AAAA87777777770000007777777777FAAAAA87777777770000007777777777FA
AAAA87777777770000007777777777FAAAAA87777777770000007777777777FA
AAAA87777777770000007777777777FAAAAA877777777700000077778888888A
AAAA8888888777000000777FAAAAAAAAAAAAAAAAAAA877000000777FAAAAAAAA
AAAAAAAAAAA877000000777FAAAAAAAAAAAAAAAAAAA877000000777FAAAAAAAA
AAAAAAAAAAA8770000007777FFFFFFFAAAAA8FFFFFF7770000007777777777FA
AAAA87777777770000007777777777FAAAAA87777777770000007777777777FA
AAAA87777777770000007777777777FAAAAA87777777770000007777777777FA
AAAA87777777770000007777777777FAAAAA877777777700000077777777777F
FFFF777777777700000077777777777777777777777777000000777777777777
7777777777777700000077777777777777777777777777000000}
Layout = blGlyphRight
end
object StopAll: TButton
Left = 515
Top = 48
Width = 57
Height = 25
Cursor = crHandPoint
Hint = 'Start/Stop the cheking on all processes'
Caption = 'STOP ALL'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Impact'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = StopAllClick
end
object Tray: TBitBtn
Left = 496
Top = 328
Width = 91
Height = 17
Hint = 'Minimize the restarter to your tray'
Caption = 'Minimize To Tray'
TabOrder = 8
OnClick = TrayClick
end
object ActionMainMenuBar1: TActionMainMenuBar
Left = 0
Top = 0
Width = 599
Height = 24
UseSystemFont = False
ActionManager = ActionManager1
Caption = 'ActionMainMenuBar1'
ColorMap.HighlightColor = 16579837
ColorMap.BtnSelectedColor = clBtnFace
ColorMap.UnusedColor = 16579837
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Spacing = 0
end
object HideAll: TButton
Left = 515
Top = 80
Width = 81
Height = 25
Cursor = crHandPoint
Hint = 'Hide/Show all console applications'
Caption = 'HIDE/SHOW ALL'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Impact'
Font.Style = []
ParentFont = False
TabOrder = 10
OnClick = HideAllClick
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Left = 416
Top = 288
end
object Timer2: TTimer
Enabled = False
Interval = 10000
OnTimer = Timer2Timer
Left = 440
Top = 288
end
object Timer3: TTimer
Interval = 600000
OnTimer = Timer3Timer
Left = 464
Top = 288
end
object PopupMenu1: TPopupMenu
Left = 488
Top = 288
object hideallmenu: TMenuItem
Caption = 'HIDE/SHOW ALL'
Hint = 'hideall'
OnClick = HideAllClick
end
object stopallmenu: TMenuItem
Caption = 'STOP ALL'
Hint = 'stopall'
OnClick = StopAllClick
end
object AddMenu: TMenuItem
Caption = 'Add Process'
Hint = 'add'
OnClick = AddClick
end
object SaveMenu: TMenuItem
Caption = 'Save'
Hint = 'save'
OnClick = SaveBtnClick
end
object ExitMenu: TMenuItem
Caption = 'Exit'
Hint = 'exit'
OnClick = ExitMenuClick
end
end
object ActionManager1: TActionManager
ActionBars = <
item
Items = <
item
Items = <
item
Action = BugSection
Caption = '&Help && Bug Section'
end
item
Action = About
Caption = '&About..'
end>
Caption = '&Help'
end>
ActionBar = ActionMainMenuBar1
end>
Left = 392
Top = 288
StyleName = 'XP Style'
object BugSection: TAction
Category = 'Help'
Caption = 'Help && Bug Section'
OnExecute = BugSectionExecute
end
object About: TAction
Category = 'Help'
Caption = 'About..'
OnExecute = AboutExecute
end
end
end