home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 May
/
VPR9705A.ISO
/
VPR_DATA
/
PROGRAM
/
CBTRIAL
/
SETUP
/
DATA.Z
/
FMXWIN.DFM
/
FMXWIN.txt
next >
Wrap
Text File
|
1997-02-14
|
3KB
|
114 lines
object FormMain: TFormMain
Left = 214
Top = 128
Width = 544
Height = 399
Caption = 'File Manager Example'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object StatusPanel: TPanel
Left = 0
Top = 306
Width = 536
Height = 41
Align = alBottom
TabOrder = 0
object DirectoryPanel: TPanel
Left = 1
Top = 1
Width = 320
Height = 39
Align = alLeft
BevelInner = bvLowered
TabOrder = 0
end
object FilePanel: TPanel
Left = 321
Top = 1
Width = 214
Height = 39
Align = alClient
BevelInner = bvLowered
TabOrder = 1
object Floppy: TImage
Left = 8
Top = 16
Width = 16
Height = 9
AutoSize = True
Picture.Data = {<image000.bmp>}
Visible = False
end
object Fixed: TImage
Left = 32
Top = 16
Width = 16
Height = 9
AutoSize = True
Picture.Data = {<image001.bmp>}
Visible = False
end
object Network: TImage
Left = 56
Top = 16
Width = 16
Height = 9
AutoSize = True
Picture.Data = {<image002.bmp>}
Visible = False
end
end
end
object DriveTabSet: TTabSet
Left = 0
Top = 285
Width = 536
Height = 21
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OnClick = DriveTabSetClick
OnDrawTab = DriveTabSetDrawTab
OnMeasureTab = DriveTabSetMeasureTab
end
object FileList: TFileListBox
Left = 193
Top = 0
Width = 343
Height = 285
Align = alClient
FileType = [ftReadOnly, ftArchive, ftNormal]
ItemHeight = 16
ShowGlyphs = True
TabOrder = 3
OnChange = FileListChange
OnDblClick = FileListDblClick
OnEndDrag = FileListEndDrag
OnMouseDown = FileListMouseDown
end
object DirectoryOutline: TDirectoryOutline
Left = 0
Top = 0
Width = 193
Height = 285
TabStop = True
OnChange = DirectoryOutlineChange
Align = alLeft
ItemHeight = 13
OnDragDrop = DirectoryOutlineDragDrop
OnDragOver = DirectoryOutlineDragOver
Options = [ooDrawFocusRect, ooStretchBitmaps]
ParentColor = False
PictureLeaf.Data = {<image003. BM 6 ( >}