mytrayiconclick_mainform.dfm

source code for the Marco Cantu s book Delphi 2009 Handbook

object FormMyTrayIconClick: TFormMyTrayIconClick
  Left = 0
  Top = 0
  Caption = 'MyTrayIconClick'
  ClientHeight = 294
  ClientWidth = 467
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TrayIcon1: TTrayIcon
    Animate = True
    BalloonHint = 'sample balloon hint'
    BalloonTitle = 'hi'
    BalloonTimeout = 1000
    BalloonFlags = bfInfo
    Icon.Data = {
      0000010001002020100000000000E80200001600000028000000200000004000
      0000010004000000000080020000000000000000000000000000000000000000
      000000008000008000000080800080000000800080008080000080808000C0C0
      C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000008888800000000000000000000000008844444880000000000000000
      0000008447777744800000000000000000000844444444444800000000000000
      0000844444444444448000000000000000008444444444444480000000000000
      000844444E444444444800000000000000084444E44444444448000000000000
      0008444E6E44444444480000000000000008444CECECCCCC4448000000000000
      00084CCE6ECCCCCCCC4800000000000000008CCCE6ECCCCCCC80000000000000
      000088FCCECCCCCCF8800000000000000000088F8F8F8F8F8800000000000000
      00000088FFF8F8F88000000000000000000000088FFF8F880000000000000000
      0000000088FFF8800000000000000000000000007F8F8F700000000000000000
      0000000008FFF800000000000000000000000000088F88000000000000000000
      0000000008FFF800000000000000000000000000088F88000000000000000000
      0000000008FFF800000000000000000000000000088F88000000000000000000
      0000000008F87700000000000000000000000007888888870000000000000000
      0000000887777788000000000000000000000007788888770000000000000000
      000000000000000000000000000000000000000000000000000000000000FFFF
      FFFFFFF83FFFFFE00FFFFFC007FFFF8003FFFF0001FFFE0000FFFE0000FFFC00
      007FFC00007FFC00007FFC00007FFC00007FFE0000FFFE0000FFFF0001FFFF80
      03FFFFC007FFFFE00FFFFFE00FFFFFF01FFFFFF01FFFFFF01FFFFFF01FFFFFF0
      1FFFFFF01FFFFFE00FFFFFC007FFFFC007FFFFC007FFFFE00FFFFFFFFFFF}
    PopupMenu = PopupMenu1
    Visible = True
    OnBalloonClick = TrayIcon1BalloonClick
    OnMouseDown = TrayIcon1MouseDown
    Left = 104
    Top = 112
  end
  object PopupMenu1: TPopupMenu
    Left = 120
    Top = 176
    object one1: TMenuItem
      Caption = 'one'
      Default = True
      OnClick = one1Click
    end
    object two1: TMenuItem
      Caption = 'two'
    end
    object three1: TMenuItem
      Caption = 'three'
    end
    object four1: TMenuItem
      Caption = 'four'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Close1: TMenuItem
      Caption = 'Close'
      OnClick = Close1Click
    end
  end
end