home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: Shareware for Win 95
/
Chip-Shareware-Win95.bin
/
ostatni
/
delphi
/
delphi2
/
seldlg.exe
/
16BIT
/
FSDDEMO.DFM
/
FSDDEMO.txt
Wrap
Text File
|
1996-10-16
|
17KB
|
429 lines
object FormSelectDialog: TFormSelectDialog
Left = 247
Top = 140
Width = 488
Height = 354
Caption = 'Select Dialog Demo'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
OnCreate = FormCreate
OnDestroy = FormDestroy
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 = 5
Top = 26
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 = 5
Top = 26
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 = 241
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'
Currency = True
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
