unit1.dfm

BarMenus230.zip

object Form1: TForm1
  Left = 339
  Top = 235
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'BarMenus Demo'
  ClientHeight = 335
  ClientWidth = 474
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = BcBarMainMenu1
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 368
    Top = 8
    Width = 105
    Height = 29
    AutoSize = False
    Caption = 'Last menu bar drawn to doublebuffer:'
    WordWrap = True
  end
  object Image1: TImage
    Left = 368
    Top = 44
    Width = 105
    Height = 288
    Anchors = [akLeft, akTop, akBottom]
  end
  object Label2: TLabel
    Left = 8
    Top = 316
    Width = 213
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Copyright (C) 2000-2001 Bluecave Software'
    Enabled = False
  end
  object Panel1: TPanel
    Left = 8
    Top = 108
    Width = 349
    Height = 33
    Alignment = taRightJustify
    Caption = 'sample toolmenu (right click here)   '
    PopupMenu = BcBarPopupMenu1
    TabOrder = 0
    object CheckBox7: TCheckBox
      Left = 12
      Top = 8
      Width = 97
      Height = 17
      Caption = 'Use DrawModule'
      TabOrder = 0
      OnClick = CheckBox7Click
    end
  end
  object Panel2: TPanel
    Left = 8
    Top = 148
    Width = 349
    Height = 33
    Alignment = taRightJustify
    Caption = 'sample custom drawn items (right click here)   '
    PopupMenu = BcBarPopupMenu2
    TabOrder = 1
    object CheckBox5: TCheckBox
      Left = 12
      Top = 8
      Width = 97
      Height = 17
      Caption = 'Use DrawModule'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = CheckBox5Click
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 188
    Width = 349
    Height = 89
    Alignment = taRightJustify
    Caption = 'sample custom drawn bar (right click here)   '
    PopupMenu = BcBarPopupMenu3
    TabOrder = 2
    object Button2: TButton
      Left = 120
      Top = 8
      Width = 65
      Height = 25
      Caption = 'MenuFont'
      TabOrder = 0
      OnClick = Button2Click
    end
    object CheckBox4: TCheckBox
      Left = 12
      Top = 12
      Width = 97
      Height = 17
      Caption = 'Use System Font'
      TabOrder = 1
      OnClick = CheckBox4Click
    end
    object CheckBox6: TCheckBox
      Left = 12
      Top = 32
      Width = 97
      Height = 17
      Caption = 'Use DrawModule'
      TabOrder = 2
      OnClick = CheckBox6Click
    end
  end
  object Button1: TButton
    Left = 8
    Top = 284
    Width = 349
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Free DoubleBuffer Resources'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Panel4: TPanel
    Left = 8
    Top = 8
    Width = 349
    Height = 93
    Alignment = taRightJustify
    Caption = 'MainMenu   '
    TabOrder = 4
    object CheckBox1: TCheckBox
      Left = 12
      Top = 8
      Width = 165
      Height = 17
      Caption = 'MainMenu menu bar visible'
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 12
      Top = 28
      Width = 69
      Height = 17
      Caption = 'File menu'
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 12
      Top = 48
      Width = 97
      Height = 17
      Caption = 'Remove "New.."'
      TabOrder = 2
      OnClick = CheckBox3Click
    end
    object CheckBox8: TCheckBox
      Left = 12
      Top = 68
      Width = 97
      Height = 17
      Caption = 'Use DrawModule'
      TabOrder = 3
      OnClick = CheckBox8Click
    end
  end
  object BcBarPopupMenu1: TBcBarPopupMenu
    AutoLineReduction = maManual
    Images = PopupMenuImages
    OwnerDraw = True
    Bar.Border = clBlack
    Bar.GradientStart = clBtnFace
    Bar.BarPicture.Picture.Data = {
      360C0000424D360C000000000000360000002800000020000000200000000100
      180000000000000C0000120B0000120B00000000000000000000979500979500
      9795009795009795009795009795009795009795009795009795009795009795
      009795009898989898988484848C8C8C98989897950097950097950097950097
      9500979500979500979500979500979500979500979500979500979500979500
      9795009795009795009795009795009795009795009795009898988380807D7D
      7D989898A7948DB79B97AB909097847F6C676798989897950097950097950097
      9500979500979500979500979500979500979500979500979500979500979500
      97950097950097950097950097950097950098989897847FC8A49EE0B4B36F64
      63B3968BCEA998F9C5C3FFCACAFFCACA947F7B93939398989898989897950097
      9500979500979500979500979500979500979500979500979500979500979500
      979500979500979500979500979500979500C6A696F2BDB9FFC7C7FFC7C7DCAA
      A9C6A696D4AB9CFDC4C4FFC7C7FFCDCD9377776C676797847FAC8D8C7465656A
      6A6A979500979500979500979500979500979500979500979500979500979500
      979500979500979500979500979500BEA499CEAD99EEB8B3FFC5C6FFC3C3FFC3
      C4E6B6ACE6B6ACFFC3C4FFC3C3FFC7C7C895949F8679E6B6ACFFC3C4EEB8B388
      7171676666979500979500979500979500979500979500979500979500979500
      9795009795009795009795008A85858D7A78C1A692DFAB9EFFC3C3FFC0C0FFC0
      C0FFC0C0FFC0C0FFC0C0FFC0C0FFC0C0FEC0BFEEB8B3FDBEBDFFC0C0FFC0C0FD
      BEBE8A7C7B979500979500979500979500979500979500979500979500979500
      979500979500979500B3988BDCAAA9B58B8BC6A696D4AB9CFFBABBFFBCBCFFBC
      BCFFBCBCFFBCBCFFBCBCFFBCBCFFBCBCFFBCBCFFBDBEFFBDBEFFBCBCFFBCBCE5
      ABAB9A9392979500979500979500979500979500979500979500979500979500
      979500979500C4A492E5ADA4FFB9BAFFBABBF8B7B5F6B3B1FFB9B9FFB9B9FFB9
      B9FFB9B9FFB9BAFFB9BAFFBABBFFB9BAFFB9B9FFB9B9FFB9B9FFB9B9FFB9B9B5
      8B8B8C8C8C979500979500979500979500979500979500979500979500979500
      979500C6A9A2D0AB98F9B3B0FFB6B6FFB5B5FFB6B6FFB6B6FFB5B5FFB5B5FFB6
      B6FFB4B4F6B3B1F0B3ADF0B3ADF9B3B0FFB6B6FFB5B6FFB5B5FFB5B5FFB5B5A8
      80805E5A5A8A7C7B937777666565979500979500979500979500979500979500
      979500C8ACA1D0AB98F2AAA6FFB4B4FFB2B2FFB2B2FFB2B2FFB2B2FFB2B2F6AD
      ADDDB9B9979500979500D0B4AACEA998DFAB9EF8AFACFFB2B2FFB2B2FFB2B2F6
      ADADDB9D9CEFA9A8FEB0B0796464848484979500979500979500979500979500
      979500979500C6A79ACDA794F2AAA6FFAFAFFFAEAEFFAEAEFFAEAEEDA4A4BAAC
      A9979500979500979500979500979500CAAFA4CDA794EEA9A3FFAFAFFFAEAEFF
      AEAEFFAEAEFFAFAFFFAEAEC89594676666979500979500979500979500979500