1 |
object DBCreateForm: TDBCreateForm
|
2 |
Left = 1002
|
3 |
Height = 96
|
4 |
Top = 415
|
5 |
Width = 320
|
6 |
Caption = 'Please Wait'
|
7 |
ClientHeight = 96
|
8 |
ClientWidth = 320
|
9 |
FormStyle = fsSystemStayOnTop
|
10 |
OnShow = FormShow
|
11 |
Position = poScreenCenter
|
12 |
LCLVersion = '1.8.1.0'
|
13 |
object Panel1: TPanel
|
14 |
Left = 0
|
15 |
Height = 96
|
16 |
Top = 0
|
17 |
Width = 320
|
18 |
Align = alClient
|
19 |
BevelInner = bvLowered
|
20 |
Caption = 'Creating Database'
|
21 |
ClientHeight = 96
|
22 |
ClientWidth = 320
|
23 |
TabOrder = 0
|
24 |
object ProgressBar1: TProgressBar
|
25 |
Left = 40
|
26 |
Height = 20
|
27 |
Top = 64
|
28 |
Width = 232
|
29 |
Style = pbstMarquee
|
30 |
TabOrder = 0
|
31 |
end
|
32 |
end
|
33 |
object IBXScript1: TIBXScript
|
34 |
Database = Form1.IBDatabase1
|
35 |
IgnoreGrants = False
|
36 |
Transaction = Form1.IBTransaction1
|
37 |
ShowAffectedRows = False
|
38 |
ShowPerformanceStats = False
|
39 |
left = 264
|
40 |
top = 8
|
41 |
end
|
42 |
end
|