object formMenu: TformMenu
  Left = 0
  Top = 0
  Width = 923
  Height = 899
  RenderInvisibleControls = False
  AllowPageAccess = True
  ConnectionMode = cmAny
  Title = 'TMS IntraWeb Components Demo'
  OnCreate = IWAppFormCreate
  Background.Fixed = False
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  StyleSheet.Filename = 'iw.css'
  ShowHint = True
  XPTheme = True
  DesignLeft = 8
  DesignTop = 8
  object IWLabel1: TIWLabel
    Left = 536
    Top = 136
    Width = 69
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabel1'
    Caption = 'Main menu'
    RawText = False
  end
  object TIWPopupMenuButton1: TTIWPopupMenuButton
    Left = 536
    Top = 352
    Width = 109
    Height = 24
    Cursor = crPointer
    ParentShowHint = False
    ShowHint = True
    ZIndex = 10
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    AutoHiding = False
    BackgroundImage.Stretch = False
    BackgroundImage.Frame = 0
    Border = True
    BorderColor = clWebBLACK
    Caption = 'Popup menu'
    ClientEvents = <
      item
        ItemName = 'menu1'
        ItemScript = 'alert('#39'It is IntraWeb !'#39');'
      end
      item
        ItemName = 'menu2'
        ItemScript = 'alert('#39'It is IntraWeb for Borland Delphi !'#39');'
      end
      item
        ItemName = 'menu3'
        ItemScript = 'alert('#39'It is IntraWeb from AtoZed software !'#39');'
      end
      item
        ItemName = 'menu4'
        ItemScript = 'alert('#39'It is IntraWeb standalone !'#39');'
      end
      item
        ItemName = 'menu5'
        ItemScript = 'alert('#39'It is IntraWeb with TMS components!'#39');'
      end>
    Color = clBtnFace
    Fade = fdNone
    Font.Color = clWindowText
    Font.FontName = 'Verdana'
    Font.Size = 10
    Font.Style = [fsBold]
    HoverBorderColor = clHighlight
    HoverColor = clHighlight
    HoverColorTo = clNone
    HoverFontColor = clHighlightText
    HoverGradientDirection = gdVertical
    IconBackgroundColor = clBtnFace
    IconBackgroundColorTo = clNone
    ItemColor = clWebWHITE
    ItemHeight = 20
    ItemSpacing = 3
    Menu = PopupMenu1
    Opacity = 100
    Open = moHover
    SeparatorColor = clBtnFace
    ShowIcons = True
    SubMenuGlyph.Stretch = False
    SubMenuGlyph.Frame = 0
    ItemCheckedGlyph.Stretch = False
    ItemCheckedGlyph.Frame = 0
    TextAlignment = taLeftJustify
    UseBorder = True
    ButtonFont.Color = clWebBLACK
    ButtonFont.FontName = 'Arial'
    ButtonFont.Size = 10
    ButtonFont.Style = []
    ButtonColor = clNone
  end
  object IWLabel3: TIWLabel
    Left = 263
    Top = 101
    Width = 265
    Height = 19
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 12
    Font.Style = [fsBold]
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabel3'
    Caption = 'Various TMS IntraWeb menus'
    RawText = False
  end
  object TIWMainMenu1: TTIWMainMenu
    Left = 536
    Top = 158
    Width = 297
    Height = 20
    Cursor = crPointer
    ParentShowHint = False
    ShowHint = True
    ZIndex = 10
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    AutoHiding = False
    BackgroundImage.Stretch = False
    BackgroundImage.Frame = 0
    Border = False
    BorderColor = clBtnFace
    Caption = 'TIWMainMenu1'
    ClientEvents = <>
    Color = clBtnFace
    Fade = fdNone
    Font.Color = clWindowText
    Font.FontName = 'Verdana'
    Font.Size = 10
    Font.Style = []
    HoverBorderColor = clHighlight
    HoverColor = clSkyBlue
    HoverColorTo = clNone
    HoverFontColor = clWebBLACK
    HoverGradientDirection = gdHorizontal
    IconBackgroundColor = clBtnFace
    IconBackgroundColorTo = clNone
    ItemColor = clWebWHITE
    ItemHeight = 20
    ItemSpacing = 3
    Menu = MainMenu1
    Opacity = 75
    Open = moHover
    RootItemBorderColor = clBtnFace
    RootItemBorderHoverColor = clNone
    RootItemBorderWidth = 1
    RootItemColor = clBtnFace
    RootItemColorTo = clBtnFace
    RootItemHoverColor = clNone
    RootItemHoverColorTo = clNone
    RootItemDownColor = clNone
    RootItemDownColorTo = clNone
    RootItemFont.Color = clWebBLACK
    RootItemFont.FontName = 'Verdana'
    RootItemFont.Size = 10
    RootItemFont.Style = []
    RootItemGradientDirection = gdHorizontal
    RootItemHoverFontColor = clWebBLACK
    SeparatorColor = clBtnFace
    ShowIcons = True
    SubMenuGlyph.Stretch = False
    SubMenuGlyph.Frame = 0
    ItemCheckedGlyph.Stretch = False
    ItemCheckedGlyph.Frame = 0
    TextAlignment = taLeftJustify
    UseBorder = True
  end
  object TIWStaticMenu1: TTIWStaticMenu
    Left = 263
    Top = 158
    Width = 225
    Height = 257
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    DesignLive = False
    BorderColor = clWebWHITE
    ColorGradientDirection = gdHorizontal
    Font.Color = clWebBLACK
    Font.Size = 10
    Font.Style = []
    HoverBorderColor = clWebGRAY
    HoverBorderShadow = True
    HoverColor = clWebLIGHTCYAN
    HoverColorTo = clWebNAVY
    HoverColorGradientDirection = gdHorizontal
    HoverFontColor = clWebBLACK
    ItemHeight = 24
    Items = <
      item
        Caption = 'Software companies'
        Fixed = True
      end
      item
        Caption = 'CodeGear'
        Fixed = False
      end
      item
        Caption = 'AtoZed'
        Fixed = False
      end
      item
        Caption = 'ESB Consult'
        Fixed = False
      end
      item
        Caption = 'TMS software'
        Fixed = False
      end
      item
        Caption = 'Falafel software'
        Fixed = False
      end
      item
        Caption = 'Products'
        Fixed = True
      end
      item
        Caption = 'Delphi'
        ClientClick = 'alert("Unlimited RAD power");'#13#10
        Fixed = False
      end
      item
        Caption = 'C#Builder'
        ClientClick = 'alert("No limits application life cycle management for .NET");'
        Fixed = False
      end
      item
        Caption = 'IntraWeb'
        ClientClick = 'alert("Unprecendent RAD web application development");'
        Fixed = False
      end>
    Layout = smlVertical
    OnClick = TIWStaticMenu1Click
    FixedColor = clWebLIGHTYELLOW
    FixedColorGradientDirection = gdVertical
  end
  object IWLabel4: TIWLabel
    Left = 552
    Top = 232
    Width = 265
    Height = 19
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 12
    Font.Style = [fsBold]
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabel3'
    Caption = 'Various TMS IntraWeb menus'
    RawText = False
  end
  object IWLabel2: TIWLabel
    Left = 263
    Top = 136
    Width = 74
    Height = 16
    Cursor = crAuto
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    StyleRenderOptions.RenderSize = True
    StyleRenderOptions.RenderPosition = True
    StyleRenderOptions.RenderFont = True
    StyleRenderOptions.RenderZIndex = True
    StyleRenderOptions.RenderVisibility = True
    StyleRenderOptions.RenderStatus = True
    StyleRenderOptions.RenderAbsolute = True
    Alignment = taLeftJustify
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    ConvertSpaces = False
    HasTabOrder = False
    FriendlyName = 'IWLabel2'
    Caption = 'Static menu'
    RawText = False
  end
  inline FrameTopFrame1: TFrameTopFrame
    Left = 0
    Top = 0
    Width = 951
    Height = 100
    Color = clWhite
    ParentColor = False
    TabOrder = 0
    ExplicitWidth = 951
    ExplicitHeight = 100
    inherited IWRegion1: TIWRegion
      Width = 951
      Height = 100
      TabOrder = 3
      ExplicitWidth = 951
      ExplicitHeight = 100
    end
  end
  inline FrameLeftFrame1: TFrameLeftFrame
    Left = 0
    Top = 100
    Width = 250
    Height = 737
    Color = clWhite
    ParentBackground = False
    ParentColor = False
    TabOrder = 1
    ExplicitTop = 100
    ExplicitHeight = 737
    inherited IWRegion1: TIWRegion
      Height = 737
      TabOrder = 4
      ExplicitHeight = 737
      inherited TIWStaticMenu1: TTIWStaticMenu
        Height = 737
      end
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 778
    Top = 192
    object File1: TMenuItem
      Caption = 'File'
      object Open1: TMenuItem
        Caption = 'Open'
        ImageIndex = 0
      end
      object Save1: TMenuItem
        Caption = 'Save'
        ImageIndex = 3
      end
      object SaveAs1: TMenuItem
        Caption = 'Save As ...'
        object est1: TMenuItem
          Caption = 'Test'
        end
        object One1: TMenuItem
          Caption = 'One'
        end
        object wo1: TMenuItem
          Caption = 'Two'
        end
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      object Cut1: TMenuItem
        Caption = 'Cut'
        ImageIndex = 4
      end
      object Copy1: TMenuItem
        Caption = 'Copy'
        ImageIndex = 5
      end
      object Paste1: TMenuItem
        Caption = 'Paste'
        ImageIndex = 6
      end
    end
    object View1: TMenuItem
      Caption = 'View'
      object ZoomIn1: TMenuItem
        Caption = 'Zoom In'
        ImageIndex = 2
      end
      object ZoomOut1: TMenuItem
        Caption = 'Zoom Out'
        ImageIndex = 1
      end
    end
    object Color1: TMenuItem
      Caption = 'Color'
      object Yellow1: TMenuItem
        Caption = 'Yellow'
        OnClick = Yellow1Click
      end
      object Green1: TMenuItem
        Caption = 'Green'
        OnClick = Green1Click
      end
      object Red1: TMenuItem
        Caption = 'Blue'
        OnClick = Red1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 658
    Top = 352
    object menu1: TMenuItem
      Caption = 'It is RAD'
    end
    object menu2: TMenuItem
      Caption = 'It is based on Delphi'
    end
    object menu3: TMenuItem
      Caption = 'It is flexible'
    end
    object menu4: TMenuItem
      Caption = 'Deployment is easy'
    end
    object menu5: TMenuItem
      Caption = 'It has lots of components'
    end
  end
  object ImageList1: TImageList
    Left = 824
    Top = 192
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
end
