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
|
object AdminBackupProgressForm: TAdminBackupProgressForm
Left = 684
Top = 349
BorderIcons = [biMinimize]
BorderStyle = bsSingle
Caption = 'Backup Progress ...'
ClientHeight = 277
ClientWidth = 423
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
Scaled = False
Visible = True
PixelsPerInch = 96
TextHeight = 13
object StoppingLbl: TTntLabel
Left = 16
Top = 246
Width = 133
Height = 13
Caption = 'Stopping backup process ...'
Visible = False
end
object ProgressGBox: TTntGroupBox
Left = 16
Top = 12
Width = 391
Height = 213
Caption = 'Backup Progress'
TabOrder = 0
object Label1: TTntLabel
Left = 18
Top = 44
Width = 118
Height = 13
Caption = 'Total Number of Objects:'
end
object TablesLbl: TTntLabel
Left = 156
Top = 44
Width = 8
Height = 13
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TTntLabel
Left = 18
Top = 116
Width = 71
Height = 13
Caption = 'Current Object:'
end
object Label3: TTntLabel
Left = 18
Top = 60
Width = 67
Height = 13
Caption = 'Current Table:'
end
object CurrentTableLbl: TTntLabel
Left = 156
Top = 60
Width = 8
Height = 13
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object CurrentTableNameLbl: TTntLabel
Left = 156
Top = 116
Width = 5
Height = 13
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TTntLabel
Left = 18
Top = 132
Width = 109
Height = 13
Caption = 'Total Number of Rows:'
end
object TotalRowsLbl: TTntLabel
Left = 156
Top = 132
Width = 8
Height = 13
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TTntLabel
Left = 18
Top = 148
Width = 62
Height = 13
Caption = 'Current Row:'
end
object CurrentRowLbl: TTntLabel
Left = 156
Top = 148
Width = 8
Height = 13
Caption = '0'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ProjectCaptionLbl: TTntLabel
Left = 18
Top = 28
Width = 76
Height = 13
Caption = 'Backup Project:'
end
object ProjectLbl: TTntLabel
Left = 156
Top = 28
Width = 213
Height = 13
AutoSize = False
Caption = '-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object TablesProgressBar: TTntProgressBar
Left = 18
Top = 82
Width = 351
Height = 17
TabOrder = 0
end
object RowProgressBar: TTntProgressBar
Left = 18
Top = 168
Width = 351
Height = 17
TabOrder = 1
end
end
object StopBtn: TTntButton
Left = 332
Top = 238
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 1
OnClick = StopBtnClick
end
end
|
