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 80 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

# Line 1 | Line 1
1   object Form1: TForm1
2 <  Left = 306
2 >  Left = 489
3    Height = 438
4 <  Top = 192
4 >  Top = 219
5    Width = 722
6    Caption = 'TIBTreeView Example'
7    ClientHeight = 438
# Line 10 | Line 10 | object Form1: TForm1
10    OnClose = FormClose
11    OnShow = FormShow
12    Position = poScreenCenter
13 <  LCLVersion = '1.8.1.0'
13 >  LCLVersion = '1.6.4.0'
14    object Panel1: TPanel
15      Left = 11
16      Height = 367
# Line 29 | Line 29 | object Form1: TForm1
29        Align = alLeft
30        TextField = 'DEPARTMENT'
31        DataSource = DataSource1
32 +      DefaultItemHeight = 16
33        DragMode = dmAutomatic
34        Images = ImageList1
35        HasChildField = 'CHILDCOUNT'
36 +      ImageIndexField = 'IMAGEINDEX'
37 +      SelectedIndexField = 'IMAGEINDEX'
38        KeyField = 'DEPT_NO'
39        ParentField = 'HEAD_DEPT'
40        PopupMenu = PopupMenu1
41        RelationName = 'A'
42        ScrollBars = ssAutoBoth
43        TabOrder = 0
41 –      OnAddition = IBTreeView1Addition
44        OnDragDrop = IBTreeView1DragDrop
45        OnDragOver = IBTreeView1DragOver
46      end
# Line 71 | Line 73 | object Form1: TForm1
73          TabOrder = 0
74          object Label2: TLabel
75            Left = 11
76 <          Height = 14
76 >          Height = 13
77            Top = 16
78 <          Width = 25
78 >          Width = 20
79            Caption = 'Title'
80            ParentColor = False
81          end
82          object DBEdit1: TDBEdit
83            Left = 11
84 <          Height = 24
84 >          Height = 21
85            Top = 31
86            Width = 373
87            DataField = 'DEPARTMENT'
# Line 91 | Line 93 | object Form1: TForm1
93          end
94          object Label3: TLabel
95            Left = 13
96 <          Height = 14
96 >          Height = 13
97            Top = 71
98 <          Width = 51
98 >          Width = 40
99            Caption = 'Location'
100            ParentColor = False
101          end
102          object DBEdit4: TDBEdit
103            Left = 13
104 <          Height = 24
104 >          Height = 21
105            Top = 86
106            Width = 179
107            DataField = 'LOCATION'
# Line 110 | Line 112 | object Form1: TForm1
112          end
113          object Label4: TLabel
114            Left = 219
115 <          Height = 14
115 >          Height = 13
116            Top = 71
117 <          Width = 44
117 >          Width = 34
118            Caption = 'Budget'
119            ParentColor = False
120          end
121          object DBEdit2: TDBEdit
122            Left = 219
123 <          Height = 24
123 >          Height = 21
124            Top = 86
125            Width = 165
126            DataField = 'BUDGET'
# Line 130 | Line 132 | object Form1: TForm1
132          end
133          object Label5: TLabel
134            Left = 219
135 <          Height = 14
135 >          Height = 13
136            Top = 121
137 <          Width = 61
137 >          Width = 50
138            Caption = 'Phone No.'
139            ParentColor = False
140          end
141          object DBEdit3: TDBEdit
142            Left = 219
143 <          Height = 24
143 >          Height = 21
144            Top = 136
145            Width = 165
146            DataField = 'PHONE_NO'
# Line 150 | Line 152 | object Form1: TForm1
152          end
153          object Label6: TLabel
154            Left = 12
155 <          Height = 14
155 >          Height = 13
156            Top = 121
157 <          Width = 52
157 >          Width = 42
158            Caption = 'Manager'
159            ParentColor = False
160          end
161          object IBLookupComboEditBox1: TIBLookupComboEditBox
162            Left = 13
163 <          Height = 27
163 >          Height = 21
164            Top = 136
165            Width = 180
166            DataField = 'MNGR_NO'
# Line 171 | Line 173 | object Form1: TForm1
173            TabOrder = 4
174            AutoInsert = False
175            AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
176 <          ItemHeight = 0
176 >          ItemHeight = 13
177          end
178          object Label7: TLabel
179            Left = 12
180 <          Height = 14
180 >          Height = 13
181            Top = 172
182 <          Width = 115
182 >          Width = 92
183            Caption = 'Departmental Staff'
184            ParentColor = False
185          end
# Line 249 | Line 251 | object Form1: TForm1
251    end
252    object Label1: TLabel
253      Left = 11
254 <    Height = 14
254 >    Height = 13
255      Top = 17
256 <    Width = 79
256 >    Width = 62
257      Caption = 'Departments'
258      ParentColor = False
259    end
# Line 276 | Line 278 | object Form1: TForm1
278      TabOrder = 2
279    end
280    object IBDatabase1: TIBDatabase
281 <    Connected = False
281 >    Connected = True
282      CreateIfNotExists = False
283      AllowStreamedConnected = False
284      DatabaseName = 'localhost:employee'
# Line 321 | Line 323 | object Form1: TForm1
323      )
324      RefreshSQL.Strings = (
325        'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
326 <      'count(B.DEPT_NO) as ChildCount'
326 >      'count(B.DEPT_NO) as ChildCount,'
327 >      'case'
328 >      '  when A.Budget < 500000 then 0'
329 >      '  when A.Budget = 500000 then 2'
330 >      '  else 1 end as ImageIndex'
331        'From DEPARTMENT A'
332        'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
333        'Where A.DEPT_NO = :DEPT_NO'
# Line 330 | Line 336 | object Form1: TForm1
336      )
337      SelectSQL.Strings = (
338        'Select A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO,'
339 <      'count(B.DEPT_NO) as ChildCount'
339 >      'count(B.DEPT_NO) as ChildCount,'
340 >      'case'
341 >      '  when A.Budget < 500000 then 0'
342 >      '  when A.Budget = 500000 then 2'
343 >      '  else 1 end as ImageIndex'
344        'From DEPARTMENT A'
345        'Left Outer JOIN DEPARTMENT B On B.HEAD_DEPT = A.DEPT_NO'
346        'Group By A.DEPT_NO, A.DEPARTMENT, A.HEAD_DEPT, A.MNGR_NO, A.BUDGET, A.LOCATION, A.PHONE_NO'
# Line 400 | Line 410 | object Form1: TForm1
410        ProviderFlags = [pfInUpdate, pfInWhere]
411        ReadOnly = False
412        Required = False
403 –      OnChange = DepartmentsBUDGETChange
413        OnGetText = DepartmentsBUDGETGetText
414        Precision = 18
415        Currency = False
# Line 437 | Line 446 | object Form1: TForm1
446        LookupCache = False
447        ProviderFlags = [pfInUpdate, pfInWhere]
448        ReadOnly = False
449 +      Required = True
450 +    end
451 +    object DepartmentsIMAGEINDEX: TIBIntegerField
452 +      FieldKind = fkData
453 +      FieldName = 'IMAGEINDEX'
454 +      Index = 8
455 +      LookupCache = False
456 +      ProviderFlags = [pfInUpdate, pfInWhere]
457 +      ReadOnly = False
458        Required = True
459      end
460    end

Diff Legend

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