object FormSelectDialog: TFormSelectDialog Left = 250 Top = 159 Width = 488 Height = 354 Caption = 'Select Dialog Demo' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 16 object TabbedNotebook1: TTabbedNotebook Left = 0 Top = 41 Width = 480 Height = 286 Align = alClient TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 0 object TTabPage Left = 4 Top = 27 Caption = 'TSelectDialog' object Label1: TLabel Left = 20 Top = 148 Width = 209 Height = 16 Caption = 'Customise the buttons and size:' end object Label2: TLabel Left = 16 Top = 16 Width = 101 Height = 16 Caption = 'Select a record:' end object Label4: TLabel Left = 16 Top = 72 Width = 105 Height = 16 Caption = 'Edit the dataset:' end object Panel2: TPanel Left = 320 Top = 32 Width = 129 Height = 81 TabOrder = 0 object Label12: TLabel Left = 20 Top = 36 Width = 89 Height = 16 Caption = 'mode for help' end object Label13: TLabel Left = 24 Top = 20 Width = 80 Height = 16 Caption = 'F1 in design' end end object SelectDialog1: TSelectDialog Left = 16 Top = 32 Width = 229 Height = 26 Hint = 'Current Enployee' ParentShowHint = False ShowHint = True TabOrder = 1 DisplayField = 'LastName' LookupSource = DSPersonnel BtnCaption = '...' NumGlyphs = 1 BtnHint = 'Click here to browse employee' DialogCaption = 'Current Employee Browser' end object SelectDialog2: TSelectDialog Left = 16 Top = 88 Width = 229 Height = 26 TabOrder = 2 DisplayField = 'FirstName' LookupSource = DSPersonnel BtnCaption = '...' NumGlyphs = 1 BtnHint = 'Click here to select employee' DialogCaption = 'Select/Edit Employee' NavigatorButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh] GridOptions = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] end object SelectDialog3: TSelectDialog Left = 20 Top = 164 Width = 429 Height = 65 Font.Color = clPurple Font.Height = -48 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 3 DisplayField = 'LastName' LookupSource = DSPersonnel BtnGlyph.Data = { 160F0000424D160F000000000000360000002800000025000000220000000100 180000000000E00E000000000000000000000000000000000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 0000000000000000000000000000000000000000000000000000000000000000 000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF7F7F7F7F7F7FBFBFBF7F7F 7FBFBFBF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBF00000000000000 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF7F 7F7F7F7F7F7F7F7FBFBFBF7F7F7F7F7F7F7F7F7FBFBFBF7F7F7F7F7F7FBFBFBF 7F7F7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF0000007F7F7F7F7F7FBFBFBF7F7F7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7F7F7F7F7F7F7FBFBFBF7F 7F7FBFBFBF7F7F7F000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF7F 7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBF7F7F7FBFBFBF7F7F7F7F7F7F7F7F7F7F7F7FBFBFBF000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBFBF BFBF7F7F7FBFBFBF7F7F7FBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BF BFBF000000000000000000000000000000000000000000000000000000000000 000000000000BFBFBFBFBFBFBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7F0000 00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF0000007F7F7FFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFBFBFBFFFFFFF000000000000BFBFBF7F7F7FBF BFBFBFBFBFBFBFBF7F7F7FBFBFBF7F7F7F000000000000FFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BF BFBF000000FFFFFFFFFFFFFFFFFFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBF7F7F7F 7F7F7F000000000000BFBFBFBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7F7F7F 7F000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF0000007F7F7FBFBFBF000000000000FFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFBFBFBF7F7F7FBF BFBFBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF00000000007F000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BF BFBF7F7F7FBFBFBFBFBFBF000000000000000000000000000000000000000000 000000BFBFBFBFBFBF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBF0000 000000000000FF00007F000000FFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF0000000000007F7F7FBFBFBF7F7F7F7F7F7FBFBFBF7F7F 7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBFBFBFBF7F7F7F7F7F7FBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBFBFBFBF0000000000FF000000FFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBF7F 7F7FBFBFBF7F7F7F7F7F7F7F7F7FBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF7F7F7F 7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBFBFBF BF7F7F7F0000000000FF00007F000000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000FFFFFFBFBFBF000000000000BFBFBF0000000000 007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FBF BFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBF7F7F7FBFBFBF00000000007F000000 FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFFF FFFF000000BFBFBFFFFFFFBFBFBFBFBFBF7F7F7FBFBFBFBFBFBF000000000000 0000000000007F7F7F7F7F7FBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7F7F7F7F0000000000FF000000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFBFBFBFFFFFFFBFBF BFBFBFBFBFBFBF000000FF0000FF0000000000000000000000000000FFFFFFBF BFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7FBFBFBF00000000007F000000 FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF0000FF 0000FF0000000000FFFFFFBFBFBFBFBFBFBFBFBF000000FF0000FF0000FF0000 FF0000000000000000000000BFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BF7F7F7FBFBFBF00000000007F000000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFF000000FF0000FF0000FF0000FF0000000000BFBFBFBFBFBFBFBF BF7F7F7F000000000000000000000000000000000000000000000000BFBFBFBF BFBFBFBFBFBFBFBFBFBFBF000000000000BFBFBFBFBFBF00000000007F000000 FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000 0000000000000000FFFFFFBFBFBF7F7F7F7F7F7F000000000000000000000000 000000000000000000000000000000000000000000BFBFBFBFBFBF0000000000 7F0000000000000000FF00007F000000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFF0000000000000000000000000000007F7F7F7F7F7F7F7F7F0000 00000000000000000000000000000000000000000000000000BFBFBFBFBFBFBF BFBFBFBFBF00000000000000007F0000FF00007F0000FF00007F0000FF000000 FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000BF BFBFBFBFBF0000000000000000007F7F7F7F7F7FBFBFBFBFBFBF000000000000 000000000000000000000000BFBFBFBFBFBFBFBFBF7F7F7F00000000007F0000 7F00007F0000FF0000FF0000FF000000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000000000000000BFBFBF7F7F7F7F7F7FBFBF BF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBF00000000007F00007F0000FF0000FF0000FF00007F000000000000 FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF FFFFBFBFBFFFFFFFBFBFBF7F7F7FBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFFFFFFF BFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00000000007F0000FF0000 7F000000000000000000000000000000FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000FFFFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBFBFBF BFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBF00000000000000000000000000000000007F00007F00007F000000FFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF FFFFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFFFFFFF BFBFBFFFFFFFBFBFBFBFBFBFBFBFBF7F7F7F00000000007F00007F0000000000 7F0000FF00007F00007F000000FFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF000000000000BFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF00 000000000000007F0000FF0000FF00007F00007F00007F000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFF00000000007F0000FF00 00007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFFFFFFF BFBFBFBFBFBFBFBFBFBFBFBF00000000000000007F00007F00007F0000000000 7F000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFF00000000007F00000000007F0000007F7F7FBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00000000000000000000 000000000000000000000000000000000000007F00007F000000FFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000 00FF00007F0000007F7F7F7F7F7F0000000000007F7F7F0000007F7F7F000000 00000000000000007F00007F00007F00007F0000FF00007F00007F0000FF0000 7F000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFF00000000007F00000000007F0000000000000000 7F00007F00000000007F00000000007F0000FF00007F0000000000FF00007F00 000000007F00000000007F00007F000000000000FFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 000000000000000000007F0000FF00007F0000000000000000FF000000000000 00007F00007F00007F00000000000000007F000000000000000000000000FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00} NumGlyphs = 1 BtnHint = 'Click here to browse' DialogCaption = 'Emplyee Browser' end end object TTabPage Left = 4 Top = 27 Caption = 'TLookupSelect' object Label10: TLabel Left = 8 Top = 8 Width = 278 Height = 16 Caption = 'All of the properties of TDateTimeDlg and...' end object Label11: TLabel Left = 272 Top = 32 Width = 158 Height = 16 Caption = 'A data aware capability !' end object DBNavigator1: TDBNavigator Left = 8 Top = 88 Width = 240 Height = 25 DataSource = DSDept TabOrder = 1 end object DBGrid1: TDBGrid Left = 8 Top = 120 Width = 449 Height = 129 DataSource = DSDept TabOrder = 0 TitleFont.Color = clWindowText TitleFont.Height = -13 TitleFont.Name = 'System' TitleFont.Style = [] end object LookupDialog1: TLookupDialog Left = 8 Top = 32 Width = 197 Height = 26 TabOrder = 2 DisplayField = 'LastName' LookupSource = DSPersonnel BtnCaption = '...' NumGlyphs = 1 BtnHint = 'Click here to browse' DialogCaption = 'Manager Browser' DataSource = DSDept Joins.LeftList.Strings = ( 'DEPARTMENTID' 'MANAGERID' 'DESCRIPTION' 'OPERATINGCOST' 'STAFFTURNOVER' 'STAFFSIZE' 'DATEESTABLISHED' 'OWNERDEPT') Joins.RightList.Strings = ( 'LASTNAME' 'FIRSTNAME' 'HIREDATE' 'EMPNO' 'PHONEEXT' 'SALARY' 'BOSS') Joins.LeftSelectedJoins.Strings = ( 'MANAGERID') Joins.RightSelectedJoins.Strings = ( 'EMPNO') Joins.CanSelect = True Joins.DuplicateNames = True Joins.LeftText = 'Fields' Joins.RightText = 'Lookup Fields' end end end object Panel1: TPanel Left = 0 Top = 0 Width = 480 Height = 41 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label5: TLabel Left = 8 Top = 8 Width = 377 Height = 24 Caption = 'When a combo box is just a little too small:' Font.Color = clPurple Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False end end object TablePersonnel: TTable DatabaseName = 'DBDEMOS' TableName = 'PERSONEL.DB' Left = 373 Top = 36 object TablePersonnelLastName: TStringField DisplayLabel = 'Last Name' DisplayWidth = 18 FieldName = 'LastName' end object TablePersonnelFirstName: TStringField DisplayLabel = 'First Name' DisplayWidth = 14 FieldName = 'FirstName' Size = 15 end object TablePersonnelHireDate: TDateTimeField DisplayLabel = 'Hire Date' DisplayWidth = 18 FieldName = 'HireDate' end object TablePersonnelEmpNo: TStringField FieldName = 'EmpNo' Size = 10 end object TablePersonnelPhoneExt: TStringField FieldName = 'PhoneExt' Size = 4 end object TablePersonnelSalary: TFloatField FieldName = 'Salary' end object TablePersonnelBoss: TStringField FieldName = 'Boss' Size = 10 end end object DSPersonnel: TDataSource DataSet = TablePersonnel Left = 405 Top = 36 end object TableDept: TTable DatabaseName = 'DBDEMOS' TableName = 'DEPT.DB' Left = 373 Top = 67 object TableDeptDepartmentID: TStringField FieldName = 'DepartmentID' Required = True Size = 10 end object TableDeptManagerID: TStringField FieldName = 'ManagerID' Required = True Size = 10 end object TableDeptDescription: TStringField FieldName = 'Description' Required = True Size = 50 end object TableDeptOperatingCost: TCurrencyField FieldName = 'OperatingCost' end object TableDeptStaffTurnover: TFloatField FieldName = 'StaffTurnover' end object TableDeptStaffSize: TSmallintField FieldName = 'StaffSize' end object TableDeptDateEstablished: TDateField FieldName = 'DateEstablished' end object TableDeptOwnerDept: TStringField FieldName = 'OwnerDept' Size = 10 end end object DSDept: TDataSource DataSet = TableDept Left = 405 Top = 67 end end