-
Notifications
You must be signed in to change notification settings - Fork 2
/
maincode.dfm
145 lines (145 loc) · 4.01 KB
/
maincode.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
object Form1: TForm1
Left = 220
Top = 135
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'AHPacker v0.1 by FEUERRADER [AHTeam]'
ClientHeight = 298
ClientWidth = 542
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010001002020100000000000E80200001600000028000000200000004000
0000010004000000000080020000000000000000000000000000000000000000
0000000080000080000000808000800000008000800080800000C0C0C0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00CCC0
000CCCC0000000000CCCC7777CCCCCCC0000CCCC00000000CCCC7777CCCCCCCC
C0000CCCCCCCCCCCCCC7777CCCCC0CCCCC0000CCCCCCCCCCCC7777CCCCC700CC
C00CCCC0000000000CCCC77CCC77000C0000CCCC00000000CCCC7777C7770000
00000CCCC000000CCCC777777777C000C00000CCCC0000CCCC77777C777CCC00
CC00000CCCCCCCCCC77777CC77CCCCC0CCC000CCCCC00CCCCC777CCC7CCCCCCC
CCCC0CCCCCCCCCCCCCC7CCCCCCCCCCCC0CCCCCCCCCCCCCCCCCCCCCC7CCC70CCC
00CCCCCCCC0CC0CCCCCCCC77CC7700CC000CCCCCC000000CCCCCC777CC7700CC
0000CCCC00000000CCCC7777CC7700CC0000C0CCC000000CCC7C7777CC7700CC
0000C0CCC000000CCC7C7777CC7700CC0000CCCC00000000CCCC7777CC7700CC
000CCCCCC000000CCCCCC777CC7700CC00CCCCCCCC0CC0CCCCCCCC77CC770CCC
0CCCCCCCCCCCCCCCCCCCCCC7CCC7CCCCCCCC0CCCCCCCCCCCCCC7CCCCCCCCCCC0
CCC000CCCCC00CCCCC777CCC7CCCCC00CC00000CCCCCCCCCC77777CC77CCC000
C00000CCCC0000CCCC77777C777C000000000CCCC000000CCCC777777777000C
0000CCCC00000000CCCC7777C77700CCC00CCCC0000000000CCCC77CCC770CCC
CC0000CCCCCCCCCCCC7777CCCCC7CCCCC0000CCCCCCCCCCCCCC7777CCCCCCCCC
0000CCCC00000000CCCC7777CCCCCCC0000CCCC0000000000CCCC7777CCC0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000}
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 120
TextHeight = 16
object StatusBar1: TStatusBar
Left = 0
Top = 279
Width = 542
Height = 19
Panels = <
item
Text = 'Ready'
Width = 150
end
item
Alignment = taCenter
Text = 'Clock'
Width = 70
end
item
Width = 50
end>
end
object pb: TProgressBar
Left = 222
Top = 281
Width = 320
Height = 17
TabOrder = 0
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 529
Height = 65
Caption = ' File '
TabOrder = 2
object fileedit: TEdit
Left = 16
Top = 24
Width = 464
Height = 25
ReadOnly = True
TabOrder = 0
end
object XPButton1: TButton
Left = 488
Top = 24
Width = 33
Height = 24
Caption = '...'
TabOrder = 1
OnClick = XPButton1Click
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 80
Width = 529
Height = 161
Caption = ' Information '
TabOrder = 3
object log: TMemo
Left = 8
Top = 24
Width = 513
Height = 129
Font.Charset = RUSSIAN_CHARSET
Font.Color = 13652736
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Select a file...')
ParentFont = False
ReadOnly = True
TabOrder = 0
end
end
object packbutton: TButton
Left = 400
Top = 248
Width = 137
Height = 25
Caption = 'Pack'
TabOrder = 4
OnClick = packbuttonClick
end
object aPLib: TaPLib
Left = 48
Top = 152
end
object OpenFiler: TOpenDialog
DefaultExt = '*.exe'
Filter = 'EXE Files|*.exe'
Left = 80
Top = 152
end
object clocks: TTimer
Interval = 10
OnTimer = clocksTimer
Left = 112
Top = 152
end
end