home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitFormEntityBase.dfm < prev    next >
Encoding:
Text File  |  2000-05-19  |  1.8 KB  |  84 lines
  1. inherited FormEntityBase: TFormEntityBase
  2.   Left = 283
  3.   Top = 152
  4.   Caption = 'FormEntityBase'
  5.   OldCreateOrder = True
  6.   PopupMenu = PopupMenuEntity
  7.   PixelsPerInch = 96
  8.   TextHeight = 13
  9.   object StatusBarEntity: TStatusBar [0]
  10.     Left = 0
  11.     Top = 434
  12.     Width = 632
  13.     Height = 19
  14.     AutoHint = True
  15.     Panels = <
  16.       item
  17.         Width = 50
  18.       end>
  19.     SimplePanel = False
  20.   end
  21.   object ToolBarEntityAbstract: TToolBar [1]
  22.     Left = 0
  23.     Top = 0
  24.     Width = 632
  25.     Height = 29
  26.     Caption = 'ToolBarAbstract'
  27.     EdgeBorders = [ebBottom]
  28.     Images = ImageListBase
  29.     ParentShowHint = False
  30.     ShowHint = True
  31.     TabOrder = 1
  32.     object ToolButtonEntityAbstractSeparator: TToolButton
  33.       Left = 0
  34.       Top = 2
  35.       Width = 8
  36.       Caption = 'ToolButtonEntityAbstractSeparator'
  37.       ImageIndex = 0
  38.       Style = tbsSeparator
  39.     end
  40.     object ToolButtonSaveAbstract: TToolButton
  41.       Left = 8
  42.       Top = 2
  43.       Action = ActionSave
  44.     end
  45.   end
  46.   inherited ImageListBase: TImageList
  47.     Left = 76
  48.     Top = 20
  49.   end
  50.   object ActionListEntity: TActionList
  51.     Images = ImageListBase
  52.     Left = 104
  53.     Top = 68
  54.     object ActionSave: TAction
  55.       Caption = 'Save'
  56.       Hint = 'Save'
  57.       ImageIndex = 4
  58.       ShortCut = 16467
  59.       OnExecute = ActionSaveExecute
  60.       OnUpdate = ActionSaveUpdate
  61.     end
  62.     object ActionShowHints: TAction
  63.       Caption = 'Show Hints'
  64.       Hint = 'Show hints'
  65.       OnExecute = ActionShowHintsExecute
  66.       OnUpdate = ActionShowHintsUpdate
  67.     end
  68.   end
  69.   object PopupMenuEntity: TPopupMenu
  70.     Images = ImageListBase
  71.     Left = 68
  72.     Top = 108
  73.     object Save1: TMenuItem
  74.       Action = ActionSave
  75.     end
  76.     object N1: TMenuItem
  77.       Caption = '-'
  78.     end
  79.     object ShowHints1: TMenuItem
  80.       Action = ActionShowHints
  81.     end
  82.   end
  83. end
  84.