-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathTimedShutdown.dfm
234 lines (234 loc) · 8.6 KB
/
TimedShutdown.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
object TimedShutdownForm: TTimedShutdownForm
Left = 333
Top = 418
AlphaBlend = True
BorderStyle = bsToolWindow
Caption = 'Tidsindstillet nedlukning'
ClientHeight = 173
ClientWidth = 214
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object UrLabel: TLabel
Left = 8
Top = 8
Width = 89
Height = 13
Caption = 'Klokken er nu: '
Transparent = True
end
object Ur: TLabel
Left = 100
Top = 8
Width = 4
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = [fsBold]
ParentFont = False
end
object Status: TLabel
Left = 8
Top = 128
Width = 4
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 8
Top = 80
Width = 54
Height = 13
Caption = 'Handling:'
end
object TimerLabel: TLabel
Left = 48
Top = 32
Width = 38
Height = 13
Caption = 'Timer:'
Transparent = True
end
object Label3: TLabel
Left = 112
Top = 32
Width = 51
Height = 13
Caption = 'Minutter:'
Transparent = True
end
object StartBtn: TBitBtn
Left = 8
Top = 144
Width = 97
Height = 25
Hint = 'Start nedluknings-t'#230'lleren'
Caption = '&Start t'#230'ller'
Glyph.Data = {
36050000424D3605000000000000360400002800000010000000100000000100
0800000000000001000000000000000000000001000000010000000000000101
0100020202000303030004040400050505000606060007070700080808000909
09000A0A0A000B0B0B000C0C0C000D0D0D000E0E0E000F0F0F00141312001918
16001E1C190023201C0027241F002B2721002F2A2400322D26003A3228004135
2A0047392C004C3C2D0052413100574534005A4837005D4B39005F4D3A00604F
3C0061503D0063503C00654F3B00684F39006E4E3500754C3000804B28008C49
1F0094481A009C481500A2471100A8480F00AB470C00AE480D00B04A0E00AF48
0B00AF460900AF450700AF440600AF440500AF440500AE430500AD420400AC40
0400AA3F0300A93D0300A83C0300A63B0300A3390300A03703009E3503009C34
03009A320300952D0200912A01008C2601008A24000089230000892300008923
00008923010089240100892503008926050088290900872B0E007E2E21007332
380065375700593C70004C428C003F49A7003150C5002753D5001B53E8001553
F2001350F4001453F2001556F200175AF000185CEF00195EED001A60EB001C63
E9001E66E600216AE200246DDD002771D6002970D2002A6FCC002D6EC6002F6C
BF00326BB8003669AF003B68A50041679A0047668F004F6686005B677D006969
72007E6C670092705C00A6745100B2785000B77A4E00BC7B4D00C07C4C00C37D
4B00C77E4A00C97F4900CB804900CD814A00CF824A00D0834900D2834900D484
4900D5854900D7864A00D9884B00DB8A4D00DB8C5000DC8D5100DC8D5100DC8C
4F00DD8C4E00DD8C4E00DD8C4E00DD8B4E00DC8B4D00DC8A4C00DB894B00D987
4900D8854700D7844600D5824400D5814400D27E4200D07C4000CE7A3E00CC78
3D00C9753C00C6723900C4703700C36E3600C26D3500C06F3900BE713E00BB75
4600B9784E00B77B5400B67D5900B5815E00B4846400B48B6F00B5917900B495
7E00B6988400B49B8A00B29E9100B2A29800B1A69F00B0ABA700B0B0B000B1B1
B100B2B2B200B3B3B300B4B4B400B5B5B500B8B8B700BBBBB700BEBEB800C0C0
B900C3C3BA00C5C5BB00C7C7BC00C9C9BC00CBCBBD00CCCCBD00CFCFBE00D2D1
BE00D5D3BE00D7D4BF00D9D6BF00DBD7BF00DDD8C000DCD8BF00DCD8BE00DCD8
BD00DCD8BC00DBD7BB00DDD7BB00DED8BB00DED8BE00DED9C100DFDAC400DFDC
C600E1DFCC00E3E2D300E4E6D900E6E9DE00E8ECE400EAEFE800ECF1EB00F1F4
F000F4F7F200F7F9F400F9FBF500FBFBF600FDFCF200FDFBEE00FDFAE800FCF8
E200FBF4DB00FAEFD300F9ECCD00F8E6C300F6E0B800F2D7AC00EFD0A500ECCB
A000E9C49A00E5BD9300E0B89000DEB38C00DFAE8800E0AA8600E1A68500E1A1
8A00E4939600EA71AE00F14BCA00F725E400FC0DF400FD05FA00FE02FD00FE00
FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FCFCFCFCFC41
303A3E3F3FFCFCFCFCFCFCFCFC4A9E9B8E5AA69730344AFCFCFCFCFC4A9895F0
E25AB7E0CE9E3846FCFCFCFC9E8BF0E3EAEBEFEDE4D53042FCFCFC418879E1E4
E5E4E6EFF0E2F03C45FCFC3088F1DAE2E3CDC0E6EFEBEC3845FCFC9E886363DD
E1721CCFE85A5A3546FCFC3088EEDDDDDECA7122EAEAEC3A45FCFC428888DFDD
DDDDDFAA21E7883B47FCFCFC3088EDDDDDDDDDDDBAED303FFCFCFCFC479B8BF0
E263D6D9ED303847FCFCFCFCFC479E9292A6A599303247FCFCFCFCFCFCFC4747
3030302E4647FCFCFCFCFCFCFCFCFCFC44444447FCFCFCFCFCFCFCFCFCFCFC47
309E3B4045FCFCFCFCFCFCFCFCFCFC464747474747FCFCFCFCFC}
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = StartBtnClick
end
object StopBtn: TBitBtn
Left = 112
Top = 144
Width = 97
Height = 25
Hint = 'Stop nedluknings-t'#230'lleren'
Caption = 'St&op t'#230'ller'
Glyph.Data = {
36050000424D3605000000000000360400002800000010000000100000000100
08000000000000010000000000000000000000010000000100000523F5000320
F4000220F3000320F000031FED000320EA00031FE700031EE300031FDD00031F
D600031ED200031ECD00031EC800041EC300031DBF00031CBB00011CB800011C
B600011CB500011DB300011CB200011CB200011BB100011AB0000119AF000115
AC000113A9000111A500010B9A000006910000038B0000028900000288000002
88000002890000038B0000048C0001058F0002089300050D9A000B16A6001322
B7001B30C900253DD6002E4AE400314FE8003453EB003857ED003656EF003655
EE003454EF003352EF002F4EEF002F4DE9002D4AE2002C47DA002D47D0002E45
C1003144AA003443960035438A0037427C0039426D003C415C003F414A004141
4100424242004343430044444400454545004646460047474700484848004949
49004A4A4A004B4B4B004C4C4C004D4D4D004E4E4E004F4F4F00505050005151
5100525252005353530054545400555555005656560057575700585858005959
59005A5A5A005B5B5B005C5C5C005D5D5D005E5E5E005F5F5F00606060006161
6100626262006363630064646400656565006666660067676700686868006969
69006A6A6A006B6B6B006C6C6C006D6D6D006E6E6E006F6F6F00707070007171
7100727272007373730074747400757575007676760077777700787878007979
79007A7A7A007B7B7B007C7C7C007D7D7D007E7E7E007F7F7F00808080008181
8100828282008383830084848400858585008686860087878700888888008989
89008A8A8A008B8B8B008C8C8C008D8D8D008E8E8E008F8F8F00909090009191
9100929292009393930094949400959595009696960097979700989898009999
99009A9A9A009B9B9B009C9C9C009D9D9D009E9E9E009F9F9F00A0A0A000A1A1
A100A2A2A200A3A3A300A4A4A400A5A5A500A6A6A600A7A7A700A8A8A800A9A9
A900AAAAAA00ABABAB00ACACAC00ADADAD00AEAEAE00AFAFAF00B0B0B000B1B1
B100B2B2B200B3B3B300B4B4B400B5B5B500B6B6B600B7B7B700B8B8B800B9B9
B900BABABA00BBBBBB00BCBCBC00BDBDBD00BEBEBE00BFBFBF00C4C4C400C8C8
C800CCCCCC00D0D0D000D6D6D600DCDCDC00E0E0E000E7E7E700ECECEC00F0F0
F000F4F4F400F7F7F700FAFAFA00FAFBFB00FBFCFC00FBFBFC00FBFBFC00F9FA
FD00F8F9FD00F7F8FD00F5F6FD00F2F4FC00EEF1FC00EAEEFC00E6EAFC00E1E6
FC00DBE2FB00D6DDFB00D3DBFB00D0D9FB00C7D1F900BAC6F800B0BFF800AABA
F800A6B7F800A0B2F8009BAEF80095A9F70092A6F6008FA4F6008EA2F7008B9F
F800899CFA008798F9008695F9008291F900818DF9008288F9008881F9009277
F900A567FA00BA4EFA00DA2BFB00EB16FD00FC03FE00FE00FE00FE00FE00FE00
FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FBFBFBFBFB21
261C1C2622FBFBFBFBFBFBFBFB201C1513121213151B21FBFBFBFBFB23181113
1313131313131824FBFBFB200F0B0E19171313151916131721FBFB1B080A0B2F
29181813382916121BFB2008040831CEE20F18E9CE38191315221C02010607EE
CEE3E6CEE713161313261A0000010407EECECEE512181313121C193400010104
E8CECEE20D111313121C1C2F340100E9CEE7EDCEE30C101313261F34ED0032CE
E60206EECE2F0E0E1521FB0FEBEE0030000101042E080A0B1BFBFB1F2CE2EB34
000101010406070E20FBFBFB252CE5E1EE2F303334000B23FBFBFBFBFB1F0E2F
EFEEF02F051220FBFBFBFBFBFBFBFB1F1B19191C20FBFBFBFBFB}
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = StopBtnClick
end
object HandlingsType: TComboBox
Left = 8
Top = 96
Width = 193
Height = 21
TabOrder = 2
Items.Strings = (
'Sluk computeren'
'Genstart'
'Log af'
'Standby'
'Dvale')
end
object Timer: TSpinEdit
Left = 48
Top = 48
Width = 41
Height = 22
MaxLength = 2
MaxValue = 23
MinValue = 0
ParentShowHint = False
ShowHint = False
TabOrder = 3
Value = 0
end
object Min: TSpinEdit
Left = 112
Top = 48
Width = 41
Height = 22
MaxLength = 2
MaxValue = 59
MinValue = 0
TabOrder = 4
Value = 0
end
object Timer1: TTimer
Enabled = False
Interval = 100
OnTimer = Timer1Timer
Left = 176
Top = 80
end
object Timer2: TTimer
OnTimer = Timer2Timer
Left = 184
Top = 64
end
end