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 317 by tony, Tue Oct 17 10:07:58 2017 UTC vs.
Revision 318 by tony, Thu Feb 25 12:03:26 2021 UTC

# Line 9 | Line 9 | object Form1: TForm1
9    DefaultMonitor = dmPrimary
10    OnShow = FormShow
11    Position = poScreenCenter
12 <  LCLVersion = '1.8.0.4'
12 >  LCLVersion = '2.0.11.0'
13    object Label1: TLabel
14      Left = 14
15 <    Height = 14
15 >    Height = 13
16      Top = 16
17      Width = 99
18      Caption = 'Database Name:'
# Line 20 | Line 20 | object Form1: TForm1
20    end
21    object Label2: TLabel
22      Left = 14
23 <    Height = 14
23 >    Height = 13
24      Top = 56
25      Width = 36
26      Caption = 'Script'
# Line 49 | Line 49 | object Form1: TForm1
49    end
50    object Label3: TLabel
51      Left = 459
52 <    Height = 14
52 >    Height = 13
53      Top = 56
54      Width = 68
55      Anchors = [akTop, akRight]
# Line 87 | Line 87 | object Form1: TForm1
87    end
88    object DBName: TLabel
89      Left = 119
90 <    Height = 14
90 >    Height = 13
91      Top = 16
92      Width = 52
93      Caption = 'DBName'
# Line 114 | Line 114 | object Form1: TForm1
114    object IBXScript1: TIBXScript
115      Database = IBDatabase1
116      IgnoreGrants = False
117 +    IgnoreCreateDatabase = False
118      Transaction = IBTransaction1
119      ShowAffectedRows = False
120      ShowPerformanceStats = False
# Line 122 | Line 123 | object Form1: TForm1
123      OnErrorLog = IBXScript1LogProc
124      OnProgressEvent = IBXScript1ProgressEvent
125      OnSelectSQL = IBXScript1SelectSQL
126 <    left = 24
127 <    top = 104
126 >    Left = 24
127 >    Top = 104
128    end
129    object IBDatabase1: TIBDatabase
130      Connected = False
131      BeforeConnect = IBDatabase1BeforeConnect
132      CreateIfNotExists = False
133      AllowStreamedConnected = False
134 <    DatabaseName = 'employee'
134 >    DatabaseName = 'localhost:employee'
135      Params.Strings = (
136        'lc_ctype=UTF8                           '
137        'user_name=SYSDBA'
# Line 138 | Line 139 | object Form1: TForm1
139      IdleTimer = 0
140      TraceFlags = []
141      UseDefaultSystemCodePage = False
142 <    left = 24
143 <    top = 156
142 >    Left = 24
143 >    Top = 156
144    end
145    object IBTransaction1: TIBTransaction
146      Active = False
# Line 148 | Line 149 | object Form1: TForm1
149        'concurrency'
150        'nowait'
151      )
152 <    left = 24
153 <    top = 208
152 >    Left = 24
153 >    Top = 208
154    end
155    object ActionList1: TActionList
156 <    left = 75
157 <    top = 104
156 >    Left = 75
157 >    Top = 104
158      object LoadScript: TAction
159        Caption = 'Load Script'
160        OnExecute = LoadScriptExecute
# Line 169 | Line 170 | object Form1: TForm1
170      DefaultExt = '.sql'
171      Filter = 'SQL FIles|*.sql|All Files|*.*'
172      Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
173 <    left = 75
174 <    top = 156
173 >    Left = 75
174 >    Top = 156
175    end
176    object OpenBlobDialog: TOpenDialog
177      Filter = 'All Files|*.*'
178      Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
179 <    left = 75
180 <    top = 208
179 >    Left = 75
180 >    Top = 208
181    end
182    object Timer1: TTimer
183      Interval = 0
184      OnTimer = Timer1Timer
185 <    left = 127
186 <    top = 112
185 >    Left = 127
186 >    Top = 112
187    end
188   end

Diff Legend

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