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

Comparing ibx/trunk/examples/lookupcombobox/Unit1.lfm (file contents):
Revision 21 by tony, Thu Feb 26 10:33:34 2015 UTC vs.
Revision 27 by tony, Tue Apr 14 13:10:23 2015 UTC

# Line 8 | Line 8 | object Form1: TForm1
8    ClientWidth = 658
9    OnClose = FormClose
10    OnShow = FormShow
11 <  LCLVersion = '1.4.0.1'
11 >  LCLVersion = '1.4.0.3'
12    object Label1: TLabel
13      Left = 16
14      Height = 15
# Line 111 | Line 111 | object Form1: TForm1
111        Anchors = [akTop, akRight]
112        CharCase = ecNormal
113        MaxLength = 0
114 <      TabOrder = 4
114 >      TabOrder = 3
115      end
116      object Label6: TLabel
117        Left = 16
# Line 138 | Line 138 | object Form1: TForm1
138        DataSource = EmployeeSource
139        CharCase = ecNormal
140        MaxLength = 0
141 <      TabOrder = 5
141 >      TabOrder = 4
142      end
143      object Label8: TLabel
144        Left = 392
# Line 158 | Line 158 | object Form1: TForm1
158      end
159      object DBComboBox1: TDBComboBox
160        Left = 331
161 <      Height = 25
161 >      Height = 29
162        Top = 32
163        Width = 53
164        DataField = 'JOB_GRADE'
# Line 192 | Line 192 | object Form1: TForm1
192        Caption = 'Department'
193        ParentColor = False
194      end
195 –    object IBDateEdit1: TDBDateEdit
196 –      Left = 17
197 –      Height = 25
198 –      Top = 82
199 –      Width = 112
200 –      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
201 –      OKCaption = 'OK'
202 –      CancelCaption = 'Cancel'
203 –      DateOrder = doNone
204 –      ButtonWidth = 23
205 –      NumGlyphs = 1
206 –      MaxLength = 0
207 –      TabOrder = 3
208 –      DataField = 'HIRE_DATE'
209 –      DataSource = EmployeeSource
210 –    end
195      object DBEdit5: TDBEdit
196        Left = 17
197        Height = 25
# Line 219 | Line 203 | object Form1: TForm1
203        Anchors = [akTop, akLeft, akRight]
204        CharCase = ecNormal
205        MaxLength = 0
206 <      TabOrder = 6
206 >      TabOrder = 5
207      end
208      object SpeedButton1: TSpeedButton
209        Left = 516
# Line 245 | Line 229 | object Form1: TForm1
229        ListSource = CountriesSource
230        LookupCache = False
231        Style = csDropDownList
232 <      TabOrder = 7
232 >      TabOrder = 6
233        AutoInsert = False
234        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
235        ItemHeight = 0
# Line 264 | Line 248 | object Form1: TForm1
248        ListSource = JobCodeSource
249        LookupCache = False
250        Style = csDropDownList
251 <      TabOrder = 8
251 >      TabOrder = 7
252        AutoInsert = False
253        AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
254        ItemHeight = 0
255      end
256 +    object IBDateEdit1: TDBDateEdit
257 +      Left = 17
258 +      Height = 25
259 +      Top = 82
260 +      Width = 112
261 +      CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
262 +      OKCaption = 'OK'
263 +      CancelCaption = 'Cancel'
264 +      DateOrder = doNone
265 +      ButtonWidth = 23
266 +      AutoSelect = False
267 +      NumGlyphs = 1
268 +      MaxLength = 0
269 +      TabOrder = 8
270 +      DataField = 'HIRE_DATE'
271 +      DataSource = EmployeeSource
272 +    end
273    end
274    object CancelBtn: TButton
275      Left = 567
# Line 303 | Line 304 | object Form1: TForm1
304    object IBDatabase1: TIBDatabase
305      Connected = False
306      AllowStreamedConnected = False
307 <    DatabaseName = 'employee'
307 >    DatabaseName = 'localhost:employee'
308      Params.Strings = (
309        'lc_ctype=UTF-8'
310        'user_name=SYSDBA'
# Line 327 | Line 328 | object Form1: TForm1
328      AfterEdit = EmployeesAfterDelete
329      AfterInsert = EmployeesAfterInsert
330      AfterPost = EmployeesAfterPost
330 –    BeforeClose = EmployeesBeforeScroll
331 –    BeforeScroll = EmployeesBeforeScroll
331      BufferChunks = 1000
332      CachedUpdates = False
333      DeleteSQL.Strings = (
# Line 381 | Line 380 | object Form1: TForm1
380      GeneratorField.Field = 'EMP_NO'
381      GeneratorField.ApplyOnEvent = gaeOnNewRecord
382      GenerateParamNames = False
383 +    DataSetCloseAction = dcSaveChanges
384      AfterTransactionEnd = EmployeesAfterTransactionEnd
385      left = 496
386      top = 16
# Line 568 | Line 568 | object Form1: TForm1
568          Name = 'JOB_GRADE'
569          ParamType = ptInput
570        end>
571 +    DataSetCloseAction = dcDiscardChanges
572      left = 425
573      top = 56
574      ParamData = <    
# Line 606 | Line 607 | object Form1: TForm1
607          Name = 'JOB_GRADE'
608          ParamType = ptInput
609        end>
610 +    DataSetCloseAction = dcDiscardChanges
611      left = 425
612      top = 18
613      ParamData = <    

Diff Legend

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