ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/examples/ibtreeview/Unit1.lfm
(Generate patch)

Comparing ibx/trunk/examples/ibtreeview/Unit1.lfm (file contents):
Revision 23 by tony, Fri Mar 13 10:26:52 2015 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 636
2 >  Left = 552
3    Height = 438
4    Top = 437
5    Width = 722
6    Caption = 'TIBTreeView Example'
7    ClientHeight = 438
8    ClientWidth = 722
9 +  DefaultMonitor = dmPrimary
10    OnClose = FormClose
11    OnShow = FormShow
12 <  LCLVersion = '1.4.0.2'
12 >  Position = poScreenCenter
13 >  LCLVersion = '1.8.0.4'
14    object Panel1: TPanel
15      Left = 11
16      Height = 367
# Line 27 | Line 29 | object Form1: TForm1
29        Align = alLeft
30        TextField = 'DEPARTMENT'
31        DataSource = DataSource1
30 –      DefaultItemHeight = 18
32        DragMode = dmAutomatic
33        Images = ImageList1
34        HasChildField = 'CHILDCOUNT'
# Line 70 | Line 71 | object Form1: TForm1
71          TabOrder = 0
72          object Label2: TLabel
73            Left = 11
74 <          Height = 15
74 >          Height = 14
75            Top = 16
76            Width = 25
77            Caption = 'Title'
# Line 78 | Line 79 | object Form1: TForm1
79          end
80          object DBEdit1: TDBEdit
81            Left = 11
82 <          Height = 25
82 >          Height = 24
83            Top = 31
84            Width = 373
85            DataField = 'DEPARTMENT'
# Line 90 | Line 91 | object Form1: TForm1
91          end
92          object Label3: TLabel
93            Left = 13
94 <          Height = 15
94 >          Height = 14
95            Top = 71
96            Width = 51
97            Caption = 'Location'
# Line 98 | Line 99 | object Form1: TForm1
99          end
100          object DBEdit4: TDBEdit
101            Left = 13
102 <          Height = 25
102 >          Height = 24
103            Top = 86
104            Width = 179
105            DataField = 'LOCATION'
# Line 109 | Line 110 | object Form1: TForm1
110          end
111          object Label4: TLabel
112            Left = 219
113 <          Height = 15
113 >          Height = 14
114            Top = 71
115            Width = 44
116            Caption = 'Budget'
# Line 117 | Line 118 | object Form1: TForm1
118          end
119          object DBEdit2: TDBEdit
120            Left = 219
121 <          Height = 25
121 >          Height = 24
122            Top = 86
123            Width = 165
124            DataField = 'BUDGET'
# Line 129 | Line 130 | object Form1: TForm1
130          end
131          object Label5: TLabel
132            Left = 219
133 <          Height = 15
133 >          Height = 14
134            Top = 121
135            Width = 61
136            Caption = 'Phone No.'
# Line 137 | Line 138 | object Form1: TForm1
138          end
139          object DBEdit3: TDBEdit
140            Left = 219
141 <          Height = 25
141 >          Height = 24
142            Top = 136
143            Width = 165
144            DataField = 'PHONE_NO'
# Line 149 | Line 150 | object Form1: TForm1
150          end
151          object Label6: TLabel
152            Left = 12
153 <          Height = 15
153 >          Height = 14
154            Top = 121
155            Width = 52
156            Caption = 'Manager'
# Line 174 | Line 175 | object Form1: TForm1
175          end
176          object Label7: TLabel
177            Left = 12
178 <          Height = 15
178 >          Height = 14
179            Top = 172
180            Width = 115
181            Caption = 'Departmental Staff'
# Line 248 | Line 249 | object Form1: TForm1
249    end
250    object Label1: TLabel
251      Left = 11
252 <    Height = 15
252 >    Height = 14
253      Top = 17
254      Width = 79
255      Caption = 'Departments'
# Line 276 | Line 277 | object Form1: TForm1
277    end
278    object IBDatabase1: TIBDatabase
279      Connected = False
280 +    CreateIfNotExists = False
281      AllowStreamedConnected = False
282 <    DatabaseName = 'employee'
282 >    DatabaseName = 'localhost:employee'
283      Params.Strings = (
284 <      'lc_ctype=UTF-8'
284 >      'lc_ctype=UTF8'
285        'user_name=SYSDBA'
286      )
287      DefaultTransaction = IBTransaction1
288      IdleTimer = 0
289      SQLHourGlass = False
290      TraceFlags = []
291 +    UseDefaultSystemCodePage = False
292      left = 24
293      top = 96
294    end
295    object IBTransaction1: TIBTransaction
296      Active = False
297 +    Params.Strings = (
298 +      'read_committed'
299 +      'rec_version'
300 +      'nowait'
301 +    )
302      left = 24
303      top = 136
304    end
305    object Departments: TIBDataSet
306 +    AllowAutoActivateTransaction = False
307      Database = IBDatabase1
308      Transaction = IBTransaction1
309      AfterDelete = DepartmentsAfterDelete
310      AfterEdit = DepartmentsAfterDelete
311      AfterInsert = DepartmentsAfterInsert
303 –    BeforeClose = DepartmentsBeforeScroll
304 –    BeforeScroll = DepartmentsBeforeScroll
312      BufferChunks = 1000
313      CachedUpdates = False
314      DeleteSQL.Strings = (
# Line 337 | Line 344 | object Form1: TForm1
344      GeneratorField.Field = 'DEPT_NO'
345      GeneratorField.ApplyOnEvent = gaeOnNewRecord
346      GenerateParamNames = False
347 +    DataSetCloseAction = dcSaveChanges
348      AfterTransactionEnd = DepartmentsAfterTransactionEnd
349      left = 64
350      top = 176
# Line 443 | Line 451 | object Form1: TForm1
451      top = 48
452    end
453    object Managers: TIBQuery
454 +    AllowAutoActivateTransaction = False
455      Database = IBDatabase1
456      Transaction = IBTransaction1
457      BufferChunks = 1000
# Line 454 | Line 463 | object Form1: TForm1
463        'order by 2'
464      )
465      Params = <>
466 +    DataSetCloseAction = dcDiscardChanges
467      left = 64
468      top = 221
469    end
# Line 463 | Line 473 | object Form1: TForm1
473      top = 221
474    end
475    object Staff: TIBQuery
476 +    AllowAutoActivateTransaction = False
477      Database = IBDatabase1
478      Transaction = IBTransaction1
479      BufferChunks = 1000
# Line 480 | Line 491 | object Form1: TForm1
491          Name = 'DEPT_NO'
492          ParamType = ptInput
493        end>
494 +    DataSetCloseAction = dcDiscardChanges
495      left = 64
496      top = 264
497      ParamData = <    

Diff Legend

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