unit1.dfm

TMS.AdvToolBar

object Form1: TForm1
  Left = 292
  Top = 143
  Width = 580
  Height = 423
  Caption = 'TMS Advanced Menus demo'
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = 13620723
  Font.Height = -20
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Menu = AdvMainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 24
  object Panel1: TPanel
    Left = 256
    Top = 64
    Width = 233
    Height = 113
    Caption = 'Right Click Here'
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -20
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    ParentFont = False
    PopupMenu = AdvPopupMenu1
    TabOrder = 0
  end
  object Button1: TButton
    Left = 16
    Top = 80
    Width = 89
    Height = 25
    Caption = 'Add menu'
    Font.Charset = ANSI_CHARSET
    Font.Color = 13620723
    Font.Height = -13
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object AdvMainMenu1: TAdvMainMenu
    Images = ImageList1
    MenuStyler = AdvMenuOfficeStyler1
    Version = '1.3.0.0'
    Left = 8
    Top = 24
    object FIle1: TMenuItem
      Caption = 'File'
      object New1: TMenuItem
        Caption = 'New'
        ImageIndex = 0
      end
      object Open1: TMenuItem
        Caption = 'Open'
        ImageIndex = 18
      end
      object Sace1: TMenuItem
        Caption = 'Save'
        ImageIndex = 10
      end
      object SQaveas1: TMenuItem
        Caption = 'Save All'
        ImageIndex = 8
      end
      object Close1: TMenuItem
        Caption = 'Close'
        ImageIndex = 1
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        ImageIndex = 14
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Undo1: TMenuItem
        Caption = 'Undo'
        ImageIndex = 11
      end
      object Redo1: TMenuItem
        Caption = 'Redo'
        ImageIndex = 6
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object cut1: TMenuItem
        Caption = 'Cut'
        ImageIndex = 3
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ImageIndex = 2
      end
      object paste1: TMenuItem
        Caption = 'Paste'
        Enabled = False
        ImageIndex = 7
      end
      object Clear1: TMenuItem
        Caption = 'Clear'
        Enabled = False
        ImageIndex = 9
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object More1: TMenuItem
        Caption = 'View'
        SubMenuImages = ImageList1
        object zoomin1: TMenuItem
          Caption = 'Zoom Out'
          Checked = True
          RadioItem = True
          OnClick = zoomin1Click
        end
        object zoomin2: TMenuItem
          Caption = 'Zoom In'
          RadioItem = True
          OnClick = zoomin1Click
        end
        object N6: TMenuItem
          Caption = '-'
        end
        object Window1: TMenuItem
          Caption = 'Status Bar'
          Checked = True
          OnClick = zoomin1Click
        end
      end
    end
    object Styles1: TMenuItem
      Caption = 'Styles'
      object Office1: TMenuItem
        Caption = 'Office'
        Checked = True
        RadioItem = True
        object Office2003Blue1: TMenuItem
          Caption = 'Office 2003 Blue'
          Checked = True
          RadioItem = True
          OnClick = Office2003Olive1Click
        end
        object Office2003Olive1: TMenuItem
          Tag = 1
          Caption = 'Office 2003 Olive'
          RadioItem = True
          OnClick = Office2003Olive1Click
        end
        object Office2003Silver1: TMenuItem
          Tag = 2
          Caption = 'Office 2003 Silver'
          RadioItem = True
          OnClick = Office2003Olive1Click
        end
        object OfficeXP1: TMenuItem
          Tag = 3
          Caption = 'Office XP'
          RadioItem = True
          OnClick = Office2003Olive1Click
        end
      end
      object Fantasy1: TMenuItem
        Caption = 'Fantasy'
        RadioItem = True
        object Arctic1: TMenuItem
          Caption = 'Arctic'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object AquaBlue1: TMenuItem
          Tag = 1
          Caption = 'Aqua Blue'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object Chocolate1: TMenuItem
          Tag = 2
          Caption = 'Chocolate'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object MacOS1: TMenuItem
          Tag = 3
          Caption = 'Mac OS'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object SoftSand1: TMenuItem
          Tag = 4
          Caption = 'Silver Fox'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object SoftSand2: TMenuItem
          Tag = 5
          Caption = 'Soft Sand'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object erminalGreen1: TMenuItem
          Tag = 6
          Caption = 'Terminal Green'
          RadioItem = True
          OnClick = Arctic1Click
        end
        object extured1: TMenuItem
          Tag = 7
          Caption = 'Textured'
          RadioItem = True
          OnClick = Arctic1Click
        end