-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathUnit1.dfm
115 lines (115 loc) · 3.5 KB
/
Unit1.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
object Form1: TForm1
Left = 221
Top = 137
Width = 536
Height = 522
Caption = 'Work with Services'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020040000000000E80200001600000028000000200000004000
0000010004000000000000020000000000000000000000000000000000000000
000000008000008000000080800080000000800080008080000080808000C0C0
C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00CCC0
000CCCC0000000000CCCC8888CCCCCCC0000CCCC00000000CCCC8888CCCCCCCC
C0000CCCCCCCCCCCCCC8888CCCCC0CCCCC0000CCCCCCCCCCCC8888CCCCC800CC
C00CCCC0000000000CCCC88CCC88000C0000CCCC00000000CCCC8888C8880000
00000CCCC000000CCCC888888888C000C00000CCCC0000CCCC88888C888CCC00
CC00000CCCCCCCCCC88888CC88CCCCC0CCC000CCCCC00CCCCC888CCC8CCCCCCC
CCCC0CCCCCCCCCCCCCC8CCCCCCCCCCCC0CCCCCCCCCCCCCCCCCCCCCC8CCC80CCC
00CCCCCCCC0CC0CCCCCCCC88CC8800CC000CCCCCC000000CCCCCC888CC8800CC
0000CCCC00000000CCCC8888CC8800CC0000C0CCC000000CCC8C8888CC8800CC
0000C0CCC000000CCC8C8888CC8800CC0000CCCC00000000CCCC8888CC8800CC
000CCCCCC000000CCCCCC888CC8800CC00CCCCCCCC0CC0CCCCCCCC88CC880CCC
0CCCCCCCCCCCCCCCCCCCCCC8CCC8CCCCCCCC0CCCCCCCCCCCCCC8CCCCCCCCCCC0
CCC000CCCCC00CCCCC888CCC8CCCCC00CC00000CCCCCCCCCC88888CC88CCC000
C00000CCCC0000CCCC88888C888C000000000CCCC000000CCCC888888888000C
0000CCCC00000000CCCC8888C88800CCC00CCCC0000000000CCCC88CCC880CCC
CC0000CCCCCCCCCCCC8888CCCCC8CCCCC0000CCCCCCCCCCCCCC8888CCCCCCCCC
0000CCCC00000000CCCC8888CCCCCCC0000CCCC0000000000CCCC8888CCC0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000}
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 120
TextHeight = 16
object ListView1: TListView
Left = 0
Top = 0
Width = 528
Height = 470
Align = alClient
Columns = <
item
Caption = 'Display name'
Width = 260
end
item
Caption = 'Sevice name'
Width = 170
end
item
Alignment = taCenter
Caption = 'Status'
Width = 70
end>
MultiSelect = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
end
object Memo1: TMemo
Left = 49
Top = 30
Width = 139
Height = 296
TabOrder = 1
Visible = False
WordWrap = False
end
object MainMenu1: TMainMenu
Left = 8
Top = 56
object Start1: TMenuItem
Caption = 'Start'
OnClick = ChgEtatService
end
object Stop1: TMenuItem
Caption = 'Stop'
OnClick = ChgEtatService
end
object Pause1: TMenuItem
Caption = 'Pause'
OnClick = ChgEtatService
end
object Continue1: TMenuItem
Caption = 'Continue'
OnClick = ChgEtatService
end
object Refresh1: TMenuItem
Caption = 'Refresh'
ShortCut = 116
OnClick = Rafraichir
end
object Recreate1: TMenuItem
Caption = 'Recreate'
OnClick = Recreate1Click
end
end
object Timer1: TTimer
Enabled = False
Interval = 5000
OnTimer = Rafraichir
Left = 8
Top = 24
end
end