home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / ChipCD_1.03.iso / zkuste / delphi / kompon / d23456 / COOLTRAY.ZIP / demos / CustomHint1 / Main.dfm < prev    next >
Text File  |  2002-04-06  |  2KB  |  82 lines
  1. object Form1: TForm1
  2.   Left = 397
  3.   Top = 312
  4.   BorderStyle = bsDialog
  5.   Caption = 'Custom tooltip'
  6.   ClientHeight = 129
  7.   ClientWidth = 254
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label1: TLabel
  21.     Left = 8
  22.     Top = 8
  23.     Width = 223
  24.     Height = 26
  25.     Caption = 
  26.       'This simple app. demonstrates how to get the common tooltip wind' +
  27.       'ow shared by all tray icons.'
  28.     WordWrap = True
  29.   end
  30.   object Label2: TLabel
  31.     Left = 8
  32.     Top = 44
  33.     Width = 235
  34.     Height = 39
  35.     Caption = 
  36.       'The MouseEnter event changes the font and colors, while the Mous' +
  37.       'eExit event resets them, so the tooltip will look normal for oth' +
  38.       'er tray icons.'
  39.     WordWrap = True
  40.   end
  41.   object Button1: TButton
  42.     Left = 88
  43.     Top = 94
  44.     Width = 75
  45.     Height = 25
  46.     Caption = 'E&xit'
  47.     TabOrder = 0
  48.     OnClick = Button1Click
  49.   end
  50.   object CoolTrayIcon1: TCoolTrayIcon
  51.     CycleInterval = 500
  52.     Hint = 'This is a custom hint'
  53.     Icon.Data = {
  54.       0000010001001010040000000000280100001600000028000000100000002000
  55.       0000010004000000000080000000000000000000000010000000000000000000
  56.       0000000080000080000000808000800000008000800080800000C0C0C0008080
  57.       80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
  58.       000000000000000000000000000000000000000000000000000000000000000F
  59.       F00000FF000000FF00000FF0000000FF00000FF0000000FF00000FF0000000FF
  60.       FF000FFFF000000FF00000FF0000000000000000000000000000000000000000
  61.       000000000000000000000000000000000000000000000000000000000000FFFF
  62.       0000FFFF0000FFFF0000E7CF0000C38700008103000081030000810300008103
  63.       0000C3870000E7CF0000FFFF0000C3870000FFFF0000FFFF0000FFFF0000}
  64.     IconVisible = True
  65.     IconIndex = 0
  66.     PopupMenu = PopupMenu1
  67.     WantEnterExitEvents = True
  68.     OnMouseEnter = CoolTrayIcon1MouseEnter
  69.     OnMouseExit = CoolTrayIcon1MouseExit
  70.     Left = 208
  71.     Top = 92
  72.   end
  73.   object PopupMenu1: TPopupMenu
  74.     Left = 176
  75.     Top = 92
  76.     object Exit1: TMenuItem
  77.       Caption = '&Exit'
  78.       OnClick = Exit1Click
  79.     end
  80.   end
  81. end
  82.