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

Comparing ibx/trunk/examples/dbcontrolgrid/unit1.lfm (file contents):
Revision 46 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 47 by tony, Mon Jan 9 15:31:51 2017 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 1026
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '1.6.0.4'
11 >  LCLVersion = '1.6.2.0'
12    object Button1: TButton
13      Left = 939
14      Height = 25
# Line 29 | Line 29 | object Form1: TForm1
29    end
30    object Label1: TLabel
31      Left = 17
32 <    Height = 15
32 >    Height = 17
33      Top = 14
34 <    Width = 87
34 >    Width = 82
35      Caption = 'Started Before'
36      ParentColor = False
37    end
38    object BeforeDate: TDateEdit
39      Left = 112
40 <    Height = 25
40 >    Height = 27
41      Top = 8
42      Width = 96
43      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
44    OKCaption = 'OK'
45    CancelCaption = 'Cancel'
44      DateOrder = doNone
45      ButtonWidth = 23
46      NumGlyphs = 1
# Line 52 | Line 50 | object Form1: TForm1
50    end
51    object Label2: TLabel
52      Left = 241
53 <    Height = 15
53 >    Height = 17
54      Top = 14
55 <    Width = 78
55 >    Width = 72
56      Caption = 'Started After'
57      ParentColor = False
58    end
59    object AfterDate: TDateEdit
60      Left = 333
61 <    Height = 25
61 >    Height = 27
62      Top = 8
63      Width = 91
64      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
67    OKCaption = 'OK'
68    CancelCaption = 'Cancel'
65      DateOrder = doNone
66      ButtonWidth = 23
67      NumGlyphs = 1
# Line 104 | Line 100 | object Form1: TForm1
100        )
101        object EmployeeEditorPanel: TPanel
102          Left = 12
103 <        Height = 80
103 >        Height = 84
104          Top = 0
105          Width = 890
106          Anchors = []
107          BevelOuter = bvNone
108          BorderWidth = 2
109          BorderStyle = bsSingle
110 <        ClientHeight = 78
110 >        ClientHeight = 82
111          ClientWidth = 888
112          Color = clWhite
113          ParentColor = False
# Line 119 | Line 115 | object Form1: TForm1
115          Visible = False
116          object Label3: TLabel
117            Left = 0
118 <          Height = 15
118 >          Height = 17
119            Top = 7
120 <          Width = 83
120 >          Width = 77
121            Caption = 'Employee No.'
122            ParentColor = False
123          end
124          object DBEdit1: TDBEdit
125            Left = 90
126 <          Height = 25
126 >          Height = 27
127            Top = 2
128            Width = 120
129            DataField = 'EMP_NO'
# Line 138 | Line 134 | object Form1: TForm1
134          end
135          object Label4: TLabel
136            Left = 12
137 <          Height = 15
137 >          Height = 17
138            Top = 32
139 <          Width = 64
139 >          Width = 61
140            Caption = 'First Name'
141            ParentColor = False
142          end
143          object DBEdit2: TDBEdit
144            Left = 90
145 <          Height = 25
146 <          Top = 24
145 >          Height = 27
146 >          Top = 28
147            Width = 120
148            DataField = 'FIRST_NAME'
149            DataSource = EmployeeSource
# Line 157 | Line 153 | object Form1: TForm1
153          end
154          object Label5: TLabel
155            Left = 12
156 <          Height = 15
156 >          Height = 17
157            Top = 56
158 <          Width = 64
158 >          Width = 60
159            Caption = 'Last Name'
160            ParentColor = False
161          end
162          object DBEdit3: TDBEdit
163            Left = 90
164 <          Height = 25
165 <          Top = 46
164 >          Height = 27
165 >          Top = 54
166            Width = 120
167            DataField = 'LAST_NAME'
168            DataSource = EmployeeSource
# Line 176 | Line 172 | object Form1: TForm1
172          end
173          object Label6: TLabel
174            Left = 216
175 <          Height = 15
175 >          Height = 17
176            Top = 7
177 <          Width = 77
177 >          Width = 71
178            Caption = 'Date Started'
179            ParentColor = False
180          end
181          object IBDateEdit1: TDBDateEdit
182            Left = 300
183 <          Height = 25
183 >          Height = 27
184            Top = 2
185            Width = 100
186            CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
191          OKCaption = 'OK'
192          CancelCaption = 'Cancel'
187            DateOrder = doNone
188            ButtonWidth = 23
189            AutoSelect = False
# Line 201 | Line 195 | object Form1: TForm1
195          end
196          object Label7: TLabel
197            Left = 252
198 <          Height = 15
198 >          Height = 17
199            Top = 32
200 <          Width = 37
200 >          Width = 35
201            Caption = 'Salary'
202            ParentColor = False
203          end
204          object DBEdit4: TDBEdit
205            Left = 300
206 <          Height = 25
207 <          Top = 24
206 >          Height = 27
207 >          Top = 28
208            Width = 104
209            DataField = 'SALARY'
210            DataSource = EmployeeSource
# Line 219 | Line 213 | object Form1: TForm1
213            TabOrder = 5
214          end
215          object Label8: TLabel
216 <          Left = 814
217 <          Height = 15
218 <          Top = 54
219 <          Width = 24
216 >          Left = 818
217 >          Height = 17
218 >          Top = 58
219 >          Width = 20
220            Anchors = [akTop, akRight]
221            Caption = 'Ext.'
222            ParentColor = False
223          end
224          object DBEdit5: TDBEdit
225            Left = 838
226 <          Height = 25
227 <          Top = 48
226 >          Height = 27
227 >          Top = 54
228            Width = 40
229            DataField = 'PHONE_EXT'
230            DataSource = EmployeeSource
# Line 241 | Line 235 | object Form1: TForm1
235          end
236          object Label9: TLabel
237            Left = 536
238 <          Height = 15
238 >          Height = 17
239            Top = 7
240 <          Width = 51
240 >          Width = 47
241            Caption = 'Location'
242            ParentColor = False
243          end
244          object Label10: TLabel
245            Left = 413
246 <          Height = 15
246 >          Height = 17
247            Top = 9
248 <          Width = 59
248 >          Width = 55
249            Caption = 'Job Grade'
250            ParentColor = False
251          end
# Line 278 | Line 272 | object Form1: TForm1
272          end
273          object Label11: TLabel
274            Left = 536
275 <          Height = 15
275 >          Height = 17
276            Top = 32
277 <          Width = 48
277 >          Width = 44
278            Caption = 'Job Title'
279            ParentColor = False
280          end
281          object Label12: TLabel
282            Left = 256
283 <          Height = 15
284 <          Top = 54
285 <          Width = 33
283 >          Height = 17
284 >          Top = 58
285 >          Width = 30
286            Caption = 'Dept.'
287            ParentColor = False
288          end
289          object SpeedButton1: TSpeedButton
290            Left = 786
291            Height = 25
292 <          Top = 48
292 >          Top = 54
293            Width = 23
294            Action = SelectDept
295            Anchors = [akTop, akRight]
296          end
297          object DBEdit6: TDBEdit
298            Left = 300
299 <          Height = 25
300 <          Top = 48
299 >          Height = 27
300 >          Top = 54
301            Width = 478
302            DataField = 'DEPT_PATH'
303            DataSource = EmployeeSource
# Line 315 | Line 309 | object Form1: TForm1
309          end
310          object DBEdit7: TDBEdit
311            Left = 592
312 <          Height = 25
312 >          Height = 27
313            Top = 0
314            Width = 246
315            DataField = 'JOB_COUNTRY'
# Line 327 | Line 321 | object Form1: TForm1
321          end
322          object DBEdit8: TDBEdit
323            Left = 592
324 <          Height = 25
325 <          Top = 24
324 >          Height = 27
325 >          Top = 28
326            Width = 246
327            DataField = 'JOB_TITLE'
328            DataSource = EmployeeSource
# Line 339 | Line 333 | object Form1: TForm1
333          object SpeedButton2: TSpeedButton
334            Left = 847
335            Height = 22
336 <          Top = 0
336 >          Top = 3
337            Width = 23
338            Action = EditLocationAction
339          end
340          object SpeedButton3: TSpeedButton
341            Left = 847
342            Height = 22
343 <          Top = 24
343 >          Top = 30
344            Width = 23
345            Action = EditJobCodeAction
346          end
# Line 382 | Line 376 | object Form1: TForm1
376          TabOrder = 1
377        end
378        object DBText1: TDBText
379 <        Left = 832
379 >        Left = 833
380          Height = 27
381          Top = 16
382 <        Width = 49
382 >        Width = 48
383          Alignment = taRightJustify
384          Anchors = [akTop, akRight, akBottom]
385          DataField = 'TOTALSALARIES'
# Line 396 | Line 390 | object Form1: TForm1
390    end
391    object Label13: TLabel
392      Left = 456
393 <    Height = 15
393 >    Height = 17
394      Top = 14
395 <    Width = 79
395 >    Width = 73
396      Caption = 'Salary Range'
397      ParentColor = False
398    end
399    object SalaryRange: TComboBox
400      Left = 544
401 <    Height = 25
401 >    Height = 27
402      Top = 8
403      Width = 272
404      ItemHeight = 0
# Line 496 | Line 490 | object Form1: TForm1
490      end
491    end
492    object TotalsQuery: TIBQuery
493 +    AllowAutoActivateTransaction = False
494      Database = IBDatabase1
495      Transaction = IBTransaction1
496      BeforeOpen = EmployeesBeforeOpen
# Line 534 | Line 529 | object Form1: TForm1
529      top = 376
530    end
531    object Employees: TIBDataSet
532 +    AllowAutoActivateTransaction = False
533      Database = IBDatabase1
534      Transaction = IBTransaction1
535      AfterDelete = EmployeesAfterDelete

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines