ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/scriptengine/unit1.lfm
(Generate patch)

Comparing ibx/trunk/examples/scriptengine/unit1.lfm (file contents):
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 577
2 >  Left = 413
3    Height = 402
4 <  Top = 339
4 >  Top = 367
5    Width = 773
6    Caption = 'IBX Script Example'
7    ClientHeight = 402
8    ClientWidth = 773
9 +  DefaultMonitor = dmPrimary
10    OnShow = FormShow
11 <  LCLVersion = '1.4.4.0'
11 >  Position = poScreenCenter
12 >  LCLVersion = '1.8.0.4'
13    object Label1: TLabel
14      Left = 14
15 <    Height = 15
15 >    Height = 14
16      Top = 16
17      Width = 99
18      Caption = 'Database Name:'
# Line 18 | Line 20 | object Form1: TForm1
20    end
21    object Label2: TLabel
22      Left = 14
23 <    Height = 15
23 >    Height = 14
24      Top = 56
25      Width = 36
26      Caption = 'Script'
# Line 47 | Line 49 | object Form1: TForm1
49    end
50    object Label3: TLabel
51      Left = 459
52 <    Height = 15
52 >    Height = 14
53      Top = 56
54      Width = 68
55      Anchors = [akTop, akRight]
# Line 85 | Line 87 | object Form1: TForm1
87    end
88    object DBName: TLabel
89      Left = 119
90 <    Height = 15
90 >    Height = 14
91      Top = 16
92      Width = 52
93      Caption = 'DBName'
# Line 111 | Line 113 | object Form1: TForm1
113    end
114    object IBXScript1: TIBXScript
115      Database = IBDatabase1
116 +    IgnoreGrants = False
117      Transaction = IBTransaction1
118 +    ShowAffectedRows = False
119 +    ShowPerformanceStats = False
120      GetParamValue = IBXScript1GetParamValue
121      OnOutputLog = IBXScript1LogProc
122      OnErrorLog = IBXScript1LogProc
# Line 122 | Line 127 | object Form1: TForm1
127    end
128    object IBDatabase1: TIBDatabase
129      Connected = False
130 +    BeforeConnect = IBDatabase1BeforeConnect
131 +    CreateIfNotExists = False
132      AllowStreamedConnected = False
133      DatabaseName = 'employee'
134      Params.Strings = (
# Line 130 | Line 137 | object Form1: TForm1
137      )
138      IdleTimer = 0
139      TraceFlags = []
140 +    UseDefaultSystemCodePage = False
141      left = 24
142      top = 156
143    end

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines