jvmenusexamplemainform.dfm

jvcl driver development envionment

object JvMenusExampleMainFrm: TJvMenusExampleMainFrm
  Left = 198
  Top = 148
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'JvMenus Example'
  ClientHeight = 273
  ClientWidth = 453
  Color = clBtnFace
  Constraints.MinHeight = 300
  Constraints.MinWidth = 400
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = jmnMain
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object pnlPopup: TPanel
    Left = 20
    Top = 219
    Width = 201
    Height = 41
    Anchors = [akLeft, akBottom]
    Caption = 'Right click here for XP Style popup'
    PopupMenu = jpmPopup
    TabOrder = 0
  end
  object jtbMenus: TJvToolBar
    Left = 0
    Top = 0
    Width = 453
    Height = 29
    ButtonHeight = 21
    ButtonWidth = 39
    Caption = 'JvToolBar'
    Flat = True
    Menu = jmnMain
    ShowCaptions = True
    TabOrder = 1
  end
  object btnAddItems: TButton
    Left = 240
    Top = 40
    Width = 129
    Height = 25
    Caption = 'Add items to menu'
    TabOrder = 2
    OnClick = btnAddItemsClick
  end
  object btnChangeCaption: TButton
    Left = 84
    Top = 40
    Width = 129
    Height = 25
    Caption = 'Change caption'
    TabOrder = 3
    OnClick = btnChangeCaptionClick
  end
  object pnlMarginPopup: TPanel
    Left = 232
    Top = 219
    Width = 201
    Height = 41
    Anchors = [akLeft, akBottom]
    Caption = 'Right click here for popup with margin'
    PopupMenu = jpmMarginPopup
    TabOrder = 4
  end
  object memExplanation: TMemo
    Left = 16
    Top = 76
    Width = 417
    Height = 125
    Lines.Strings = (
      'This is the demo for TJvMainMenu and TJvMenu.'
      'It shows the interaction between TJvMainMenu and TJvToolbar.'
      
        'It also shows the concept of Item Painters introduced in the JVC' +
        'L 3. By default, a JVCL '
      
        'menu will use the Style property to create an internal painter a' +
        'nd use it.'
      
        'However, you cannot access the properties of the painter at desi' +
        'gntime. To do that, '
      
        'use a Painter component and associate it with the menu you wish ' +
        'it to paint. '
      
        'This also allows you to write your own Item Painter to suit your' +
        ' needs. To see an '
      'example of this, please have a look at the TJvRichedit demo')
    ReadOnly = True
    TabOrder = 5
  end
  object jmnMain: TJvMainMenu
    Images = imlImages
    Style = msOffice
    ImageMargin.Left = 1
    ImageMargin.Top = 1
    ImageMargin.Right = 1
    ImageMargin.Bottom = 1
    ImageSize.Height = 0
    ImageSize.Width = 0
    Left = 12
    Top = 28
    object File1: TMenuItem
      Caption = '&File'
      object Try1: TMenuItem
        Caption = '&Try'
        OnClick = Try1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        ImageIndex = 5
        OnClick = Exit1Click
      end
    end
    object Other1: TMenuItem
      Caption = '&Other'
      ImageIndex = 1
      object Sub11: TMenuItem
        Caption = 'Sub1'
        object Hello1: TMenuItem
          Caption = 'Hello'
        end
        object Plaf1: TMenuItem
          Caption = 'Plaf'
          Checked = True
        end
      end
      object Yop1: TMenuItem
        Caption = 'Yop'
        ShortCut = 16451
      end
    end
    object Nice1: TMenuItem
      Caption = 'Nice'
      object Checked1: TMenuItem
        Caption = 'Checked'
        Checked = True
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Radio11: TMenuItem
        Caption = 'Radio1'
        Checked = True
        GroupIndex = 1
        RadioItem = True
      end
      object Radio21: TMenuItem
        Caption = 'Radio2'
        GroupIndex = 1
        RadioItem = True
      end
      object Radio31: TMenuItem
        Caption = 'Radio3'
        GroupIndex = 1
        RadioItem = True
      end
      object N2: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object SUb1: TMenuItem
        Caption = 'Sub'
        SubMenuImages = imlSubImages
        GroupIndex = 1
        ImageIndex = 4
        object SubAgain1: TMenuItem
          Caption = 'SubAgain'
          ImageIndex = 0
        end
      end
    end
  end
  object imlImages: TImageList
    Left = 40
    Top = 28
    Bitmap = {
      494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000