home *** CD-ROM | disk | FTP | other *** search
- object FMForm: TFMForm
- Left = 555
- Top = 426
- Width = 435
- Height = 300
- Caption = 'File manager example'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Menu = MainMenu1
- Position = poDefault
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 16
- object StatusBar: TPanel
- Left = 0
- Top = 204
- Width = 427
- Height = 50
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object DirectoryPanel: TPanel
- Left = 0
- Top = 0
- Width = 228
- Height = 50
- Align = alLeft
- BevelInner = bvLowered
- BevelWidth = 2
- TabOrder = 0
- end
- object FilePanel: TPanel
- Left = 228
- Top = 0
- Width = 199
- Height = 50
- Align = alClient
- BevelInner = bvLowered
- BevelWidth = 2
- TabOrder = 1
- object Floppy: TImage
- Left = 30
- Top = 20
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object Fixed: TImage
- Left = 59
- Top = 20
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object Network: TImage
- Left = 89
- Top = 20
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- object CDRom: TImage
- Left = 121
- Top = 20
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image003.bmp>}
- Visible = False
- end
- object RamDisk: TImage
- Left = 145
- Top = 20
- Width = 16
- Height = 9
- AutoSize = True
- Picture.Data = {<image004.bmp>}
- Visible = False
- end
- end
- end
- object DriveTabSet: TTabSet
- Left = 0
- Top = 178
- Width = 427
- Height = 26
- Align = alBottom
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Style = tsOwnerDraw
- OnChange = DriveTabSetChange
- OnDrawTab = DriveTabSetDrawTab
- OnMeasureTab = DriveTabSetMeasureTab
- end
- object DirectoryOutline: TDirectoryOutline
- Left = 0
- Top = 0
- Width = 198
- Height = 178
- Align = alLeft
- ItemHeight = 16
- OnChange = DirectoryOutlineChange
- OnDragDrop = DirectoryOutlineDragDrop
- OnDragOver = DirectoryOutlineDragOver
- Options = [ooDrawFocusRect]
- PictureLeaf.Data = {<image005. BM� B ( � | � @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@ ��������� >}
-