home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Powerdrive 1997 June
/
POWERDRIVE0697.ISO
/
share
/
win95
/
anwend
/
qcopy
/
_setup.1
/
Qcwin.exe
/
0
/
RCDATA
/
TDIRSELECTDLG
/
TDIRSELECTDLG.txt
< prev
Wrap
Text File
|
1997-03-24
|
4KB
|
179 lines
object DirSelectDlg: TDirSelectDlg
Left = 73
Top = 36
Width = 483
Height = 300
HelpContext = 68
ActiveControl = Edit1
BorderIcons = [biSystemMenu]
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
Icon.Data = {<image000.ico>}
OnCreate = FormCreate
OnHide = FormHide
OnShow = DirectoryListBox1Click
PixelsPerInch = 96
TextHeight = 14
object Bevel2: TBevel
Left = 0
Top = 0
Width = 455
Height = 268
ParentShowHint = False
ShowHint = True
end
object Bevel1: TBevel
Left = 8
Top = 40
Width = 337
Height = 220
Shape = bsFrame
IsControl = True
end
object Label1: TLabel
Left = 19
Top = 48
Width = 133
Height = 14
AutoSize = False
FocusControl = DirectoryListBox1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 216
Top = 48
Width = 110
Height = 14
AutoSize = False
FocusControl = DriveComboBox1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 16
Width = 89
Height = 14
AutoSize = False
FocusControl = Edit1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 240
Top = 112
Width = 157
Height = 14
Caption = 'C:\Delphi 2.0 Programme\QCW95'
Visible = False
end
object OKBtn: TBitBtn
Left = 358
Top = 48
Width = 85
Height = 22
Caption = 'OK'
Default = True
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 3
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333377F3333333333000033334224333333333333
337337F3333333330000333422224333333333333733337F3333333300003342
222224333333333373333337F3333333000034222A22224333333337F337F333
7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
33333337F73337F337F33333000033A33333A222433333337333337F337F3333
0000333333333A222433333333333337F337F33300003333333333A222433333
333333337F337F33000033333333333A222433333333333337F337F300003333
33333333A222433333333333337F337F00003333333333333A22433333333333
3337F37F000033333333333333A223333333333333337F730000333333333333
333A333333333333333337330000333333333333333333333333333333333333
0000}
Margin = 2
NumGlyphs = 2
Style = bsNew
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 358
Top = 80
Width = 85
Height = 22
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
Kind = bkCancel
Margin = 2
Style = bsNew
Spacing = -1
IsControl = True
end
object DriveComboBox1: TDriveComboBox
Left = 216
Top = 68
Width = 121
Height = 19
DirList = DirectoryListBox1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DirectoryListBox1: TDirectoryListBox
Left = 16
Top = 68
Width = 193
Height = 185
DirLabel = Label4
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
OnChange = DirectoryListBox1Click
OnDblClick = DirectoryListBox1DblClick
end
object Edit1: TEdit
Left = 112
Top = 13
Width = 331
Height = 21
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = Edit1Change
end
end