home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Demos / Doc / Filmanex / FMXWIN.DFM / FMXWIN.txt next >
Encoding:
Text File  |  1999-08-11  |  4.9 KB  |  196 lines
  1. object FMForm: TFMForm
  2.   Left = 555
  3.   Top = 426
  4.   Width = 435
  5.   Height = 300
  6.   Caption = 'File manager example'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   Position = poDefault
  14.   OnCreate = FormCreate
  15.   PixelsPerInch = 120
  16.   TextHeight = 16
  17.   object StatusBar: TPanel
  18.     Left = 0
  19.     Top = 204
  20.     Width = 427
  21.     Height = 50
  22.     Align = alBottom
  23.     BevelOuter = bvNone
  24.     TabOrder = 0
  25.     object DirectoryPanel: TPanel
  26.       Left = 0
  27.       Top = 0
  28.       Width = 228
  29.       Height = 50
  30.       Align = alLeft
  31.       BevelInner = bvLowered
  32.       BevelWidth = 2
  33.       TabOrder = 0
  34.     end
  35.     object FilePanel: TPanel
  36.       Left = 228
  37.       Top = 0
  38.       Width = 199
  39.       Height = 50
  40.       Align = alClient
  41.       BevelInner = bvLowered
  42.       BevelWidth = 2
  43.       TabOrder = 1
  44.       object Floppy: TImage
  45.         Left = 30
  46.         Top = 20
  47.         Width = 16
  48.         Height = 9
  49.         AutoSize = True
  50.         Picture.Data = {<image000.bmp>}
  51.         Visible = False
  52.       end
  53.       object Fixed: TImage
  54.         Left = 59
  55.         Top = 20
  56.         Width = 16
  57.         Height = 9
  58.         AutoSize = True
  59.         Picture.Data = {<image001.bmp>}
  60.         Visible = False
  61.       end
  62.       object Network: TImage
  63.         Left = 89
  64.         Top = 20
  65.         Width = 16
  66.         Height = 9
  67.         AutoSize = True
  68.         Picture.Data = {<image002.bmp>}
  69.         Visible = False
  70.       end
  71.       object CDRom: TImage
  72.         Left = 121
  73.         Top = 20
  74.         Width = 16
  75.         Height = 9
  76.         AutoSize = True
  77.         Picture.Data = {<image003.bmp>}
  78.         Visible = False
  79.       end
  80.       object RamDisk: TImage
  81.         Left = 145
  82.         Top = 20
  83.         Width = 16
  84.         Height = 9
  85.         AutoSize = True
  86.         Picture.Data = {<image004.bmp>}
  87.         Visible = False
  88.       end
  89.     end
  90.   end
  91.   object DriveTabSet: TTabSet
  92.     Left = 0
  93.     Top = 178
  94.     Width = 427
  95.     Height = 26
  96.     Align = alBottom
  97.     Font.Charset = DEFAULT_CHARSET
  98.     Font.Color = clWindowText
  99.     Font.Height = -15
  100.     Font.Name = 'MS Sans Serif'
  101.     Font.Style = []
  102.     Style = tsOwnerDraw
  103.     OnChange = DriveTabSetChange
  104.     OnDrawTab = DriveTabSetDrawTab
  105.     OnMeasureTab = DriveTabSetMeasureTab
  106.   end
  107.   object DirectoryOutline: TDirectoryOutline
  108.     Left = 0
  109.     Top = 0
  110.     Width = 198
  111.     Height = 178
  112.     Align = alLeft
  113.     ItemHeight = 16
  114.     OnChange = DirectoryOutlineChange
  115.     OnDragDrop = DirectoryOutlineDragDrop
  116.     OnDragOver = DirectoryOutlineDragOver
  117.     Options = [ooDrawFocusRect]
  118.     PictureLeaf.Data = {
  119.       CA010000424DCA0100000000000042000000280000000E0000000E0000000100
  120.       1000030000008801000000000000000000000000000000000000007C0000E003
  121.       00001F0000001040104010401040104010401040104010401040104010401040
  122.       1040104010401040104010401040104010401040104010401040104010401040
  123.       1040104010401040104010401040104010401040104010401040104000000000
  124.       000000000000000000000000000000001040104010400000E07FFF7FE07FFF7F
  125.       E07FFF7FE07FFF7FE07F00001040104010400000FF7FE07FFF7FE07FFF7FE07F
  126.       FF7FE07FFF7F00001040104010400000E07FFF7FE07FFF7FE07FFF7FE07FFF7F
  127.       E07F00001040104010400000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F0000
  128.       1040104010400000E07FFF7FE07FFF7FE07FFF7FE07FFF7FE07F000010401040
  129.       10400000FF7FE07FFF7FE07FFF7FE07FFF7FE07FFF7F00001040104010400000
  130.       000000000000000000000000000000000000104010401040104010400000FF7F
  131.       E07FFF7FE07F0000104010401040104010401040104010401042000000000000
  132.       0000104210401040104010401040104010401040104010401040104010401040
  133.       1040104010401040104010401040}
  134.     TabOrder = 2
  135.     Data = {10}
  136.   end
  137.   object FileList: TFileListBox
  138.     Left = 198
  139.     Top = 0
  140.     Width = 229
  141.     Height = 178
  142.     Align = alClient
  143.     FileType = [ftReadOnly, ftDirectory, ftArchive, ftNormal]
  144.     ItemHeight = 16
  145.     ShowGlyphs = True
  146.     TabOrder = 3
  147.     OnChange = FileListChange
  148.     OnEndDrag = FileListEndDrag
  149.     OnMouseDown = FileListMouseDown
  150.   end
  151.   object MainMenu1: TMainMenu
  152.     Left = 337
  153.     Top = 251
  154.     object File1: TMenuItem
  155.       Caption = '&File'
  156.       OnClick = File1Click
  157.       object Open1: TMenuItem
  158.         Caption = '&Open'
  159.         ShortCut = 13
  160.         OnClick = Open1Click
  161.       end
  162.       object Move1: TMenuItem
  163.         Caption = '&Move...'
  164.         ShortCut = 118
  165.         OnClick = FileChange
  166.       end
  167.       object Copy1: TMenuItem
  168.         Caption = '&Copy...'
  169.         ShortCut = 119
  170.         OnClick = FileChange
  171.       end
  172.       object Delete1: TMenuItem
  173.         Caption = '&Delete...'
  174.         ShortCut = 46
  175.         OnClick = Delete1Click
  176.       end
  177.       object Rename1: TMenuItem
  178.         Caption = '&Rename...'
  179.         OnClick = FileChange
  180.       end
  181.       object Properties1: TMenuItem
  182.         Caption = '&Properties...'
  183.         ShortCut = 32781
  184.         OnClick = Properties1Click
  185.       end
  186.       object N1: TMenuItem
  187.         Caption = '-'
  188.       end
  189.       object Exit1: TMenuItem
  190.         Caption = 'E&xit'
  191.         OnClick = Exit1Click
  192.       end
  193.     end
  194.   end
  195. end
  196.