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 47 by tony, Mon Jan 9 15:31:51 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    OnShow = FormShow
10 <  LCLVersion = '1.4.4.0'
10 >  LCLVersion = '1.6.2.0'
11    object Label1: TLabel
12      Left = 14
13 <    Height = 15
13 >    Height = 17
14      Top = 16
15 <    Width = 99
15 >    Width = 94
16      Caption = 'Database Name:'
17      ParentColor = False
18    end
19    object Label2: TLabel
20      Left = 14
21 <    Height = 15
21 >    Height = 17
22      Top = 56
23 <    Width = 36
23 >    Width = 32
24      Caption = 'Script'
25      ParentColor = False
26    end
# Line 46 | Line 46 | object Form1: TForm1
46      TabOrder = 1
47    end
48    object Label3: TLabel
49 <    Left = 459
50 <    Height = 15
49 >    Left = 464
50 >    Height = 17
51      Top = 56
52 <    Width = 68
52 >    Width = 63
53      Anchors = [akTop, akRight]
54      Caption = 'Results Log'
55      ParentColor = False
# Line 85 | Line 85 | object Form1: TForm1
85    end
86    object DBName: TLabel
87      Left = 119
88 <    Height = 15
88 >    Height = 17
89      Top = 16
90 <    Width = 52
90 >    Width = 51
91      Caption = 'DBName'
92      ParentColor = False
93    end
# Line 95 | Line 95 | object Form1: TForm1
95      Left = 104
96      Height = 22
97      Top = 375
98 <    Width = 136
98 >    Width = 127
99      Caption = 'Stop On First Error'
100      OnChange = StopOnErrorChange
101      TabOrder = 5
# Line 104 | Line 104 | object Form1: TForm1
104      Left = 248
105      Height = 22
106      Top = 375
107 <    Width = 91
107 >    Width = 83
108      Caption = 'Echo Input'
109      OnChange = EchoInputChange
110      TabOrder = 6
111    end
112    object IBXScript1: TIBXScript
113      Database = IBDatabase1
114 +    IgnoreGrants = False
115      Transaction = IBTransaction1
116 +    ShowAffectedRows = False
117 +    ShowPerformanceStats = False
118      GetParamValue = IBXScript1GetParamValue
119      OnOutputLog = IBXScript1LogProc
120      OnErrorLog = IBXScript1LogProc
# Line 122 | Line 125 | object Form1: TForm1
125    end
126    object IBDatabase1: TIBDatabase
127      Connected = False
128 +    BeforeConnect = IBDatabase1BeforeConnect
129 +    CreateIfNotExists = False
130      AllowStreamedConnected = False
131      DatabaseName = 'employee'
132      Params.Strings = (
# Line 130 | Line 135 | object Form1: TForm1
135      )
136      IdleTimer = 0
137      TraceFlags = []
138 +    UseDefaultSystemCodePage = False
139      left = 24
140      top = 156
141    end

Diff Legend

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