--- ibx/trunk/examples/employee/unit1.lfm 2016/02/15 14:44:25 37 +++ ibx/trunk/examples/employee/unit1.lfm 2016/05/17 08:14:52 39 @@ -2,15 +2,15 @@ object Form1: TForm1 Left = 439 Height = 482 Top = 350 - Width = 1002 + Width = 932 Caption = 'Employee List' ClientHeight = 482 - ClientWidth = 1002 + ClientWidth = 932 OnClose = FormClose OnShow = FormShow - LCLVersion = '1.4.4.0' + LCLVersion = '1.6.0.4' object Button1: TButton - Left = 915 + Left = 845 Height = 25 Top = 48 Width = 75 @@ -19,7 +19,7 @@ object Form1: TForm1 TabOrder = 0 end object Button2: TButton - Left = 915 + Left = 845 Height = 25 Top = 86 Width = 75 @@ -28,7 +28,7 @@ object Form1: TForm1 TabOrder = 1 end object Button3: TButton - Left = 915 + Left = 845 Height = 25 Top = 125 Width = 75 @@ -40,13 +40,13 @@ object Form1: TForm1 Left = 17 Height = 15 Top = 14 - Width = 74 + Width = 87 Caption = 'Started Before' ParentColor = False end object BeforeDate: TDateEdit Left = 112 - Height = 23 + Height = 25 Top = 8 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -63,13 +63,13 @@ object Form1: TForm1 Left = 241 Height = 15 Top = 14 - Width = 66 + Width = 78 Caption = 'Started After' ParentColor = False end object AfterDate: TDateEdit Left = 333 - Height = 23 + Height = 25 Top = 8 Width = 80 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -86,11 +86,11 @@ object Form1: TForm1 Left = 12 Height = 434 Top = 42 - Width = 880 + Width = 810 Anchors = [akTop, akLeft, akRight, akBottom] BevelOuter = bvNone ClientHeight = 434 - ClientWidth = 880 + ClientWidth = 810 Color = clBackground ParentColor = False TabOrder = 5 @@ -98,7 +98,7 @@ object Form1: TForm1 Left = 0 Height = 384 Top = 0 - Width = 880 + Width = 810 Align = alClient Color = clWindow Columns = < @@ -200,11 +200,11 @@ object Form1: TForm1 Left = 0 Height = 50 Top = 384 - Width = 880 + Width = 810 Align = alBottom BevelOuter = bvNone ClientHeight = 50 - ClientWidth = 880 + ClientWidth = 810 ParentColor = False TabOrder = 1 object Button5: TButton @@ -229,7 +229,7 @@ object Form1: TForm1 Left = 688 Height = 27 Top = 16 - Width = 43 + Width = 49 Alignment = taRightJustify Anchors = [akTop, akLeft, akBottom] DataField = 'TOTALSALARIES' @@ -245,8 +245,8 @@ object Form1: TForm1 BevelOuter = bvNone BorderWidth = 2 BorderStyle = bsSingle - ClientHeight = 76 - ClientWidth = 780 + ClientHeight = 78 + ClientWidth = 782 Color = clWindow ParentColor = False TabOrder = 2 @@ -255,13 +255,13 @@ object Form1: TForm1 Left = 0 Height = 15 Top = 7 - Width = 74 + Width = 83 Caption = 'Employee No.' ParentColor = False end object DBEdit1: TDBEdit Left = 90 - Height = 23 + Height = 25 Top = 2 Width = 120 DataField = 'EMP_NO' @@ -274,13 +274,13 @@ object Form1: TForm1 Left = 12 Height = 15 Top = 32 - Width = 57 + Width = 64 Caption = 'First Name' ParentColor = False end object DBEdit2: TDBEdit Left = 90 - Height = 23 + Height = 25 Top = 24 Width = 120 DataField = 'FIRST_NAME' @@ -293,13 +293,13 @@ object Form1: TForm1 Left = 12 Height = 15 Top = 56 - Width = 56 + Width = 64 Caption = 'Last Name' ParentColor = False end object DBEdit3: TDBEdit Left = 90 - Height = 23 + Height = 25 Top = 46 Width = 120 DataField = 'LAST_NAME' @@ -312,13 +312,13 @@ object Form1: TForm1 Left = 216 Height = 15 Top = 7 - Width = 64 + Width = 77 Caption = 'Date Started' ParentColor = False end object IBDateEdit1: TDBDateEdit Left = 300 - Height = 23 + Height = 25 Top = 2 Width = 104 CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames] @@ -337,13 +337,13 @@ object Form1: TForm1 Left = 252 Height = 15 Top = 32 - Width = 31 + Width = 37 Caption = 'Salary' ParentColor = False end object DBEdit4: TDBEdit Left = 300 - Height = 23 + Height = 25 Top = 24 Width = 104 DataField = 'SALARY' @@ -353,17 +353,17 @@ object Form1: TForm1 TabOrder = 5 end object Label8: TLabel - Left = 712 + Left = 708 Height = 15 Top = 54 - Width = 18 + Width = 24 Anchors = [akTop, akRight] Caption = 'Ext.' ParentColor = False end object DBEdit5: TDBEdit - Left = 730 - Height = 23 + Left = 732 + Height = 25 Top = 48 Width = 40 DataField = 'PHONE_EXT' @@ -377,7 +377,7 @@ object Form1: TForm1 Left = 536 Height = 15 Top = 7 - Width = 46 + Width = 51 Caption = 'Location' ParentColor = False end @@ -385,7 +385,7 @@ object Form1: TForm1 Left = 413 Height = 15 Top = 9 - Width = 52 + Width = 59 Caption = 'Job Grade' ParentColor = False end @@ -397,7 +397,7 @@ object Form1: TForm1 AutoSize = False DataField = 'JOB_GRADE' DataSource = EmployeeSource - ItemHeight = 15 + ItemHeight = 0 Items.Strings = ( '1' '2' @@ -414,7 +414,7 @@ object Form1: TForm1 Left = 536 Height = 15 Top = 32 - Width = 44 + Width = 48 Caption = 'Job Title' ParentColor = False end @@ -422,12 +422,12 @@ object Form1: TForm1 Left = 256 Height = 15 Top = 54 - Width = 28 + Width = 33 Caption = 'Dept.' ParentColor = False end object SpeedButton1: TSpeedButton - Left = 678 + Left = 680 Height = 25 Top = 48 Width = 23 @@ -436,9 +436,9 @@ object Form1: TForm1 end object DBEdit6: TDBEdit Left = 300 - Height = 23 + Height = 25 Top = 48 - Width = 370 + Width = 372 DataField = 'DEPT_PATH' DataSource = EmployeeSource ReadOnly = True @@ -451,7 +451,7 @@ object Form1: TForm1 Left = 600 Height = 23 Top = 0 - Width = 170 + Width = 172 Anchors = [akTop, akLeft, akRight] AutoSize = False DataField = 'JOB_COUNTRY' @@ -465,13 +465,13 @@ object Form1: TForm1 TabOrder = 8 AutoInsert = False AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] - ItemHeight = 15 + ItemHeight = 0 end object IBLookupComboEditBox1: TIBLookupComboEditBox Left = 600 Height = 23 Top = 24 - Width = 170 + Width = 172 Anchors = [akTop, akLeft, akRight] AutoSize = False DataField = 'JOB_CODE' @@ -485,7 +485,7 @@ object Form1: TForm1 TabOrder = 9 AutoInsert = False AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] - ItemHeight = 15 + ItemHeight = 0 end end end @@ -493,16 +493,16 @@ object Form1: TForm1 Left = 456 Height = 15 Top = 14 - Width = 67 + Width = 79 Caption = 'Salary Range' ParentColor = False end object SalaryRange: TComboBox Left = 544 - Height = 23 + Height = 25 Top = 8 Width = 272 - ItemHeight = 15 + ItemHeight = 0 ItemIndex = 0 Items.Strings = ( 'None Specified' @@ -526,6 +526,7 @@ object Form1: TForm1 DefaultTransaction = IBTransaction1 IdleTimer = 0 TraceFlags = [] + UseDefaultSystemCodePage = True left = 832 top = 168 end @@ -946,13 +947,13 @@ object Form1: TForm1 object JobGradeChangeTimer: TTimer Interval = 0 OnTimer = JobGradeChangeTimerTimer - left = 928 - top = 175 + left = 777 + top = 304 end object JobCodeChangeTimer: TTimer Interval = 0 OnTimer = JobCodeChangeTimerTimer - left = 927 - top = 224 + left = 776 + top = 353 end end