home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Help / Examples / Menu / MENUFORM.DFM / MENUFORM.txt
Encoding:
Text File  |  1999-08-11  |  3.8 KB  |  157 lines
  1. object Form1: TForm1
  2.   Left = 134
  3.   Top = 226
  4.   Width = 696
  5.   Height = 480
  6.   Caption = 'Form1'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu
  13.   Visible = True
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object DisplayPanel: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 688
  20.     Height = 434
  21.     Align = alClient
  22.     BevelInner = bvLowered
  23.     BevelOuter = bvLowered
  24.     Caption = 'DisplayPanel'
  25.     PopupMenu = PopupMenu
  26.     TabOrder = 0
  27.     OnResize = DisplayPanelResize
  28.     object DemoShape: TShape
  29.       Left = 120
  30.       Top = 8
  31.       Width = 193
  32.       Height = 217
  33.       Shape = stCircle
  34.     end
  35.   end
  36.   object MainMenu: TMainMenu
  37.     Left = 16
  38.     Top = 56
  39.     object Application1: TMenuItem
  40.       Caption = '&Application'
  41.       Hint = 'Simple command menu item'
  42.       object Exit1: TMenuItem
  43.         Caption = 'E&xit'
  44.         OnClick = Exit1Click
  45.       end
  46.     end
  47.     object Color1: TMenuItem
  48.       Caption = '&Color'
  49.       Hint = 'Submenus'
  50.       object Outline1: TMenuItem
  51.         Caption = '&Outline'
  52.         Hint = 'Adjust shape outline color'
  53.         object Randomize1: TMenuItem
  54.           Caption = '&Randomize'
  55.           Hint = 'Set shape outline to a random color'
  56.         end
  57.         object Select1: TMenuItem
  58.           Caption = '&Select...'
  59.           Hint = 'Select shape outline color'
  60.         end
  61.       end
  62.       object Inside1: TMenuItem
  63.         Caption = '&Inside'
  64.         Hint = 'Adjust shape inside color'
  65.         object Randomize2: TMenuItem
  66.           Caption = '&Randomize'
  67.           Hint = 'Set shape inside to a random color'
  68.         end
  69.         object Select2: TMenuItem
  70.           Caption = '&Select...'
  71.           Hint = 'Select a color for the shape filling'
  72.         end
  73.       end
  74.     end
  75.     object Shape1: TMenuItem
  76.       Caption = '&Shape'
  77.       GroupIndex = 1
  78.       Hint = 'Mutually-exclusive toggle group'
  79.       object Circle1: TMenuItem
  80.         Caption = '&Circle'
  81.         Checked = True
  82.         GroupIndex = 1
  83.         Hint = 'Make the shape a circle'
  84.         RadioItem = True
  85.       end
  86.       object Ellipse1: TMenuItem
  87.         Caption = '&Ellipse'
  88.         GroupIndex = 1
  89.         Hint = 'Make the shape an ellipse'
  90.         RadioItem = True
  91.       end
  92.       object Rectangle1: TMenuItem
  93.         Caption = '&Rectangle'
  94.         GroupIndex = 1
  95.         Hint = 'Make the shape a rectangle'
  96.         RadioItem = True
  97.       end
  98.       object Square1: TMenuItem
  99.         Caption = '&Square'
  100.         GroupIndex = 1
  101.         Hint = 'Make the shape a square'
  102.         RadioItem = True
  103.       end
  104.     end
  105.     object Misc1: TMenuItem
  106.       Caption = '&Misc'
  107.       GroupIndex = 1
  108.       Hint = 
  109.         'Simple checkable menu items with a superfluous bar break in betw' +
  110.         'een'
  111.       object ThickOutline1: TMenuItem
  112.         Caption = '&Thick Outline'
  113.         Hint = 'Controls whether or not the outline is thick'
  114.       end
  115.       object RoundedShape1: TMenuItem
  116.         Break = mbBarBreak
  117.         Caption = '&Rounded Shape'
  118.         Hint = 'Makes rectangle or square have rounded corners'
  119.       end
  120.     end
  121.     object Help1: TMenuItem
  122.       Caption = '&Help'
  123.       GroupIndex = 1
  124.       Hint = 'Simple command menu item'
  125.       object About1: TMenuItem
  126.         Caption = '&About...'
  127.         Hint = 'Summons an About box'
  128.       end
  129.     end
  130.   end
  131.   object SolidColorDialog: TColorDialog
  132.     Ctl3D = True
  133.     Options = [cdSolidColor]
  134.     Left = 48
  135.     Top = 56
  136.   end
  137.   object AnyColorDialog: TColorDialog
  138.     Ctl3D = True
  139.     Options = [cdAnyColor]
  140.     Left = 80
  141.     Top = 56
  142.   end
  143.   object PopupMenu: TPopupMenu
  144.     Left = 16
  145.     Top = 88
  146.     object Random1: TMenuItem
  147.       Caption = 'Randomize &Shape'
  148.     end
  149.     object RandomizeColors1: TMenuItem
  150.       Caption = 'Randomize &Colors'
  151.     end
  152.     object InvertColors1: TMenuItem
  153.       Caption = '&Invert Inside Color'
  154.     end
  155.   end
  156. end
  157.