home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / dskfile / main.txt < prev   
Encoding:
Text File  |  1995-03-21  |  2.6 KB  |  120 lines
  1. object Form1: TForm1
  2.   Left = 84
  3.   Top = 64
  4.   AutoScroll = False
  5.   Caption = 'Desk File Manager'
  6.   ClientHeight = 400
  7.   ClientWidth = 659
  8.   Color = clSilver
  9.   Font.Color = clBlack
  10.   Font.Height = -17
  11.   Font.Name = 'Times New Roman'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 120
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   TextHeight = 19
  18.   object Label2: TLabel
  19.     Left = 11
  20.     Top = 79
  21.     Width = 156
  22.     Height = 19
  23.     Caption = 'SECTION CONTENTS'
  24.   end
  25.   object Label3: TLabel
  26.     Left = 11
  27.     Top = 238
  28.     Width = 171
  29.     Height = 19
  30.     Caption = 'AVAILABLE SECTIONS'
  31.   end
  32.   object Label1: TLabel
  33.     Left = 11
  34.     Top = 21
  35.     Width = 233
  36.     Height = 19
  37.     Caption = 'CURRENT ITEM (F2 TO WRITE)'
  38.   end
  39.   object ListBox1: TListBox
  40.     Left = 11
  41.     Top = 96
  42.     Width = 639
  43.     Height = 129
  44.     Color = clWhite
  45.     Font.Color = clBlack
  46.     Font.Height = -17
  47.     Font.Name = 'Arial'
  48.     Font.Style = []
  49.     ItemHeight = 19
  50.     ParentFont = False
  51.     TabOrder = 0
  52.     OnClick = ListBox1Click
  53.   end
  54.   object ECurItem: TEdit
  55.     Left = 11
  56.     Top = 38
  57.     Width = 639
  58.     Height = 27
  59.     Color = clWhite
  60.     Font.Color = clBlack
  61.     Font.Height = -17
  62.     Font.Name = 'Arial'
  63.     Font.Style = []
  64.     ParentFont = False
  65.     TabOrder = 1
  66.     OnKeyDown = ECurItemKeyDown
  67.   end
  68.   object SectionBox: TListBox
  69.     Left = 11
  70.     Top = 256
  71.     Width = 639
  72.     Height = 129
  73.     Color = clWhite
  74.     Font.Color = clBlack
  75.     Font.Height = -17
  76.     Font.Name = 'Arial'
  77.     Font.Style = []
  78.     ItemHeight = 19
  79.     ParentFont = False
  80.     TabOrder = 2
  81.     OnClick = CurSectionClick
  82.   end
  83.   object MainMenu1: TMainMenu
  84.     Left = 176
  85.     object File1: TMenuItem
  86.       Caption = 'File'
  87.       object Select1: TMenuItem
  88.         Caption = 'Select'
  89.         OnClick = Select1Click
  90.       end
  91.       object N1: TMenuItem
  92.         Caption = '-'
  93.       end
  94.       object Exit1: TMenuItem
  95.         Caption = 'E&xit'
  96.         OnClick = OnExit
  97.       end
  98.     end
  99.     object DSKFiles1: TMenuItem
  100.       Caption = 'DSK Files'
  101.       object SetWatch1: TMenuItem
  102.         Caption = 'Watch'
  103.         OnClick = BSetWatchClick
  104.       end
  105.       object SetPropInspector1: TMenuItem
  106.         Caption = 'Property Inspector'
  107.         OnClick = bSetPropInspectClick
  108.       end
  109.       object SetEditWindow1: TMenuItem
  110.         Caption = 'Edit Window'
  111.         OnClick = bSetEditWindowClick
  112.       end
  113.     end
  114.   end
  115.   object OpenDialog1: TOpenDialog
  116.     Filter = '(*.dsk,*.ini)|*.dsk;*.ini|(*.ini)|*.ini|(*.dsk)|*.dsk'
  117.     Left = 208
  118.   end
  119. end
  120.