home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / filmanex.pak / FMXWIN.DFM / FMXWIN.txt next >
Encoding:
Text File  |  1995-08-24  |  3.6 KB  |  163 lines
  1. object FMForm: TFMForm
  2.   Left = 230
  3.   Top = 99
  4.   AutoScroll = False
  5.   Width = 435
  6.   Height = 300
  7.   ActiveControl = DirectoryOutline
  8.   Caption = 'File Manager Example'
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 96
  15.   Position = poDefault
  16.   OnCreate = FormCreate
  17.   TextHeight = 16
  18.   object StatusBar: TPanel
  19.     Left = 0
  20.     Top = 213
  21.     Width = 427
  22.     Height = 41
  23.     Align = alBottom
  24.     BevelOuter = bvNone
  25.     TabOrder = 0
  26.     object DirectoryPanel: TPanel
  27.       Left = 0
  28.       Top = 0
  29.       Width = 185
  30.       Height = 41
  31.       Align = alLeft
  32.       BevelInner = bvLowered
  33.       BevelWidth = 2
  34.       TabOrder = 0
  35.     end
  36.     object FilePanel: TPanel
  37.       Left = 185
  38.       Top = 0
  39.       Width = 242
  40.       Height = 41
  41.       Align = alClient
  42.       BevelInner = bvLowered
  43.       BevelWidth = 2
  44.       TabOrder = 1
  45.       object Floppy: TImage
  46.         Left = 80
  47.         Top = 16
  48.         Width = 16
  49.         Height = 9
  50.         AutoSize = True
  51.         Picture.Data = {<image000.bmp>}
  52.         Visible = False
  53.       end
  54.       object Fixed: TImage
  55.         Left = 104
  56.         Top = 16
  57.         Width = 16
  58.         Height = 9
  59.         AutoSize = True
  60.         Picture.Data = {<image001.bmp>}
  61.         Visible = False
  62.       end
  63.       object Network: TImage
  64.         Left = 128
  65.         Top = 16
  66.         Width = 16
  67.         Height = 9
  68.         AutoSize = True
  69.         Picture.Data = {<image002.bmp>}
  70.         Visible = False
  71.       end
  72.     end
  73.   end
  74.   object DriveTabSet: TTabSet
  75.     Left = 0
  76.     Top = 192
  77.     Width = 427
  78.     Height = 21
  79.     Align = alBottom
  80.     Font.Color = clWindowText
  81.     Font.Height = -11
  82.     Font.Name = 'MS Sans Serif'
  83.     Font.Style = []
  84.     Style = tsOwnerDraw
  85.     TabOrder = 1
  86.     OnClick = DriveTabSetClick
  87.     OnDrawTab = DriveTabSetDrawTab
  88.     OnMeasureTab = DriveTabSetMeasureTab
  89.   end
  90.   object DirectoryOutline: TDirectoryOutline
  91.     Left = 0
  92.     Top = 0
  93.     Width = 161
  94.     Height = 192
  95.     Align = alLeft
  96.     Options = [ooDrawTreeRoot, ooDrawFocusRect, ooStretchBitmaps]
  97.     TabOrder = 2
  98.     OnChange = DirectoryOutlineChange
  99.     OnDragDrop = DirectoryOutlineDragDrop
  100.     OnDragOver = DirectoryOutlineDragOver
  101.     Data = {10}
  102.   end
  103.   object FileList: TFileListBox
  104.     Left = 161
  105.     Top = 0
  106.     Width = 266
  107.     Height = 192
  108.     Align = alClient
  109.     FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
  110.     ItemHeight = 16
  111.     ShowGlyphs = True
  112.     TabOrder = 3
  113.     OnChange = FileListChange
  114.     OnDblClick = Open1Click
  115.     OnEndDrag = FileListEndDrag
  116.     OnMouseDown = FileListMouseDown
  117.   end
  118.   object MainMenu1: TMainMenu
  119.     Left = 217
  120.     Top = 216
  121.     object File1: TMenuItem
  122.       Caption = '&File'
  123.       OnClick = File1Click
  124.       object Open1: TMenuItem
  125.         Caption = '&Open'
  126.         OnClick = Open1Click
  127.         ShortCutText = 'Enter'
  128.       end
  129.       object Move1: TMenuItem
  130.         Caption = '&Move...'
  131.         OnClick = FileChange
  132.         ShortCutText = 'F7'
  133.       end
  134.       object Copy1: TMenuItem
  135.         Caption = '&Copy...'
  136.         OnClick = FileChange
  137.         ShortCutText = 'F8'
  138.       end
  139.       object Delete1: TMenuItem
  140.         Caption = '&Delete...'
  141.         OnClick = Delete1Click
  142.         ShortCutText = 'Del'
  143.       end
  144.       object Rename1: TMenuItem
  145.         Caption = '&Rename...'
  146.         OnClick = FileChange
  147.       end
  148.       object Properties1: TMenuItem
  149.         Caption = '&Properties...'
  150.         OnClick = Properties1Click
  151.         ShortCutText = 'Alt+Enter'
  152.       end
  153.       object N1: TMenuItem
  154.         Caption = '-'
  155.       end
  156.       object Exit1: TMenuItem
  157.         Caption = 'E&xit'
  158.         OnClick = Exit1Click
  159.       end
  160.     end
  161.   end
  162. end
  163.