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

Comparing ibx/trunk/examples/ibtreeview/Unit1.lfm (file contents):
Revision 67 by tony, Tue Dec 6 10:33:46 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 = 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.6.0.4'
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 = 'localhost:employee'
283      Params.Strings = (
# Line 301 | Line 303 | object Form1: TForm1
303      top = 136
304    end
305    object Departments: TIBDataSet
306 +    AllowAutoActivateTransaction = False
307      Database = IBDatabase1
308      Transaction = IBTransaction1
309      AfterDelete = DepartmentsAfterDelete
# Line 448 | 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 469 | 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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines