object MessageTicker: TMessageTicker
  Left = 333
  Top = 173
  BorderStyle = bsNone
  ClientHeight = 54
  ClientWidth = 528
  Color = clBlack
  Font.Color = clBlack
  Font.Height = -8
  Font.Name = 'Small Fonts'
  Font.Style = []
  FormStyle = fsStayOnTop
  PopupMenu = PopupMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnHide = FormHide
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 10
  object bImage: TDrawPanel
    Left = 0
    Top = 0
    Width = 528
    Height = 54
    Align = alClient
    BevelOuter = bvNone
    Color = clBlack
    Font.Color = clBlack
    Font.Height = -8
    Font.Name = 'Lucida Sans Unicode'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnDblClick = bImageDblClick
    OnMouseDown = bImageMouseDown
    OnMouseMove = bImageMouseMove
    OnMouseUp = bImageMouseUp
    OnResize = bImageResize
    OnRepaint = bImageRepaint
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 202
    Top = 18
    object mHide: TMenuItem
      Caption = '&Hide'
      ShortCut = 0
      OnClick = mHideClick
    end
    object mOnTop: TMenuItem
      Caption = '&Always on top'
      Checked = True
      ShortCut = 0
      OnClick = mOnTopClick
    end
    object mZoom: TMenuItem
      Caption = 'Auto-&Zoom'
      Checked = True
      ShortCut = 0
      OnClick = mZoomClick
    end
    object mShort: TMenuItem
      Caption = '&Thin view'
      Checked = True
      ShortCut = 0
      OnClick = mShortClick
    end
    object Messages1: TMenuItem
      Caption = '&Messages'
      GroupIndex = 11
      ShortCut = 0
      object mNormal: TMenuItem
        Caption = '&Normal priority'
        Checked = True
        ShortCut = 0
        OnClick = mNormalClick
      end
      object mHigh: TMenuItem
        Caption = '&High priority'
        Checked = True
        ShortCut = 0
        OnClick = mNormalClick
      end
      object mLow: TMenuItem
        Caption = '&Low priority'
        Checked = True
        ShortCut = 0
        OnClick = mNormalClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mAgeLimits: TMenuItem
        Caption = '&Age Limits...'
        ShortCut = 0
        OnClick = mAgeLimitsClick
      end
      object mmHideAll: TMenuItem
        Caption = 'Hide &all'
        ShortCut = 0
        Visible = False
        OnClick = mmHideAllClick
      end
      object mmShowHidden: TMenuItem
        Caption = '&Show hidden'
        Enabled = False
        ShortCut = 0
        Visible = False
        OnClick = mmShowHiddenClick
      end
    end
    object N1: TMenuItem
      Caption = '-'
      GroupIndex = 11
      ShortCut = 0
    end
    object msFaster: TMenuItem
      Tag = -1
      Caption = '&Faster'
      GroupIndex = 11
      RadioItem = True
      ShortCut = 0
      OnClick = msFasterClick
    end
    object msNormal: TMenuItem
      Caption = '&Normal'
      Checked = True
      GroupIndex = 11
      RadioItem = True
      ShortCut = 0
      OnClick = msFasterClick
    end
    object msSlower: TMenuItem
      Tag = 1
      Caption = '&Slower'
      GroupIndex = 11
      RadioItem = True
      ShortCut = 0
      OnClick = msFasterClick
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 11
      ShortCut = 0
    end
    object Font1: TMenuItem
      Caption = 'Font...'
      GroupIndex = 11
      ShortCut = 0
      OnClick = Font1Click
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 144
    Top = 16
  end
end