ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/ibstoredproc/Unit2.lfm
Revision: 158
Committed: Thu Mar 1 11:23:33 2018 UTC (6 years ago) by tony
File size: 876 byte(s)
Log Message:
Repository resync

File Contents

# Content
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