arrowbuttonmainformu.xfm

East make Tray Icon in delphi

object ArrowButtonMainForm: TArrowButtonMainForm
  Left = 489
  Top = 354
  Width = 352
  Height = 165
  VertScrollBar.Range = 116
  HorzScrollBar.Range = 121
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = fbsSingle
  Caption = 'ArrowButton Demo'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  ParentFont = False
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object ArrowButton1: TJvArrowButton
    Left = 32
    Top = 72
    Width = 89
    Height = 44
    AllowAllUp = True
    GroupIndex = 1
    DropDown = PopupMenu1
    Caption = 'Both + Down'
    Font.Color = clBlack
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    FillFont.Color = clText
    FillFont.Height = 11
    FillFont.Name = 'MS Sans Serif'
    FillFont.Pitch = fpVariable
    FillFont.Style = []
    FillFont.Weight = 40
    Glyph.Data = {
      FA000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000008484
      000084848400C6C6C600FF00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00444400444444
      4444444011004444444444403FF1004444444401FFF3310044444403F33332F1
      0044401FFF3332FFF100403F33332FFFF33001FFF3332FF3333003F33332FFFF
      330440FF3332FF3000044400FF2FFF2333044444000FF2FFFF3044444440F2FF
      00304444444400FF0F3044444444440FFF044444444444400044}
    Layout = blGlyphTop
    ParentFont = False
  end
  object ArrowButton2: TJvArrowButton
    Left = 32
    Top = 16
    Width = 89
    Height = 40
    AllowAllUp = True
    DropDown = PopupMenu1
    Caption = 'One'
    Flat = True
    Font.Color = clWhite
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    FillFont.Color = clText
    FillFont.Height = 11
    FillFont.Name = 'MS Sans Serif'
    FillFont.Pitch = fpVariable
    FillFont.Style = []
    FillFont.Weight = 40
    Glyph.Data = {
      FA000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000008484
      000084848400C6C6C600FF00FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00444400444444
      4444444011004444444444403FF1004444444401FFF3310044444403F33332F1
      0044401FFF3332FFF100403F33332FFFF33001FFF3332FF3333003F33332FFFF
      330440FF3332FF3000044400FF2FFF2333044444000FF2FFFF3044444440F2FF
      00304444444400FF0F3044444444440FFF044444444444400044}
    ParentFont = False
    PressBoth = False
    Spacing = 9
  end
  object PopupMenu1: TPopupMenu
    Left = 216
    Top = 24
    object Add1: TMenuItem
      Caption = 'Add'
    end
    object Delete1: TMenuItem
      Caption = 'Delete'
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
    end
    object Replace1: TMenuItem
      Caption = 'Replace'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Close1: TMenuItem
      Caption = 'Close'
      OnClick = Close1Click
    end
  end
  object ImageList1: TImageList
    Left = 168
    Top = 24
    Bitmap = {
      494D474C0100010010000000100000000E000000424D36300000000000003600
      0000280000004000000040000000010018000000000000300000120B0000120B
      00000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF84848484848484848484848484
      8484848484848484848484848484848484848484848484FFFFFFFFFFFFFFFFFF
      FFFFFF8484848484848484848484848484848484848484848484848484848484
      84848484848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6848484FFFFFFFFFFFFFFFFFF
      FFFFFF848484C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484C6C6C6C6C6C6C6C6C6C6
      C6C6BD00BDBD00BDC6C6C6C6C6C6C6C6C6C6C6C6848484FFFFFFFFFFFFFFFFFF
      FFFFFF848484C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6848484FFFFFFFFFFFFFFFFFF
      FFFFFF848484C6C6C6C6C6C6C6C6C6BD0000C6C6C6C6C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484C6C6C6C6C6C6C6C6C6C6
      C6C6BD00BDBD00BDC6C6C6C6C6C6C6C6C6C6C6C6848484FFFFFFFFFFFFFFFFFF
      FFFFFF848484C6C6C6C6C6C6BD0000BD0000BD0000C6C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484C6C6C6C6C6C6C6C6C6C6
      C6C6BD00BDBD00BDC6C6C6C6C6C6C6C6C6C6C6C6848484FFFFFFFFFFFFFFFFFF
      FFFFFF848484C6C6C6BD0000BD0000BD0000BD0000BD0000C6C6C6C6C6C6C6C6
      C6C6C6C6848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF848484C6C6C6C6C6C6C6C6C6C6
      C6C6C6C6C6BD00BDBD00BDC6C6C6C6C6C6C6C6C6848484FFFFFFFFFFFFFFFFFF
      FFFFFF848484C6C6C6C6C6C6BD0000C6C6C6BD0000BD0000BD0000C6C6C6C6C6
      C6C6C6C6848484FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF