unitmain.dfm

East make Tray Icon in delphi

object Mainform: TMainform
  Left = 113
  Top = 0
  Width = 1024
  Height = 754
  Caption = 
    'JVCL3 - MegaDemo                                                ' +
    '                                                                ' +
    '                                                                ' +
    '                                      '
  Color = clBtnFace
  Constraints.MinHeight = 517
  Constraints.MinWidth = 812
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  ShowHint = True
  WindowState = wsMaximized
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object JvNetscapeSplitter1: TJvNetscapeSplitter
    Left = 216
    Top = 161
    Height = 547
    Hint = 'click me to have more '#13#10'space for the current demo'
    Align = alLeft
    MinSize = 10
    Maximized = False
    Minimized = False
    ButtonCursor = crDefault
  end
  object JvCaptionPanel1: TJvCaptionPanel
    Left = 231
    Top = 167
    Width = 513
    Height = 401
    Buttons = []
    CaptionPosition = dpTop
    CaptionFont.Charset = ANSI_CHARSET
    CaptionFont.Color = clWhite
    CaptionFont.Height = -13
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = [fsBold]
    OutlookLook = False
    TabOrder = 0
  end
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 1016
    Height = 48
    Align = alTop
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 1
    object JvNavPanelButton2: TJvNavPanelButton
      Tag = 65
      Left = 0
      Top = -1
      Width = 105
      Height = 40
      Caption = 'Info'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = 3
      Images = LargeImages
      OnClick = CompClick
    end
    object JvNavPanelButton3: TJvNavPanelButton
      Tag = 8
      Left = 80
      Top = -1
      Width = 105
      Height = 40
      Hint = 'shows a special Seach form'#13#10'where one can search for'#13#10'Demos'
      Caption = 'Searcher'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = 12
      Images = LargeImages
      OnClick = CompClick
    end
    object JvNavPanelBtnIdePageCtrl: TJvNavPanelButton
      Tag = 8
      Left = 184
      Top = -1
      Width = 105
      Height = 40
      Caption = 'IDE View'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = 2
      Images = LargeImages
      OnClick = JvNavPanelBtnIdePageCtrlClick
    end
    object JvNavPanelBtnLoadFormInIDE: TJvNavPanelButton
      Left = 288
      Top = -1
      Width = 105
      Height = 40
      Hint = 
        'Loads the MainForm of the'#13#10'current Demo in the Delphi IDE.'#13#10'This' +
        ' feature uses JclDebug from the'#13#10'JEDI Code Library. To get it wo' +
        'rk'#13#10'the executable has to be compiled'#13#10'with a Map file.'
      Caption = 'load in IDE'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = 20
      Images = LargeImages
      OnClick = btnLoadIdeClick
    end
    object JvNavPanelBtnJumpHelp: TJvNavPanelButton
      Left = 393
      Top = -1
      Width = 105
      Height = 40
      Hint = 'Jump to the Help Topic of the'#13#10'currently seen JVCL Component'
      Caption = 'jump Help'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = 16
      Images = LargeImages
      OnClick = JvNavPanelBtnJumpHelpClick
    end
    object JvNavPanelBtnExit: TJvNavPanelButton
      Left = 497
      Top = -1
      Width = 105
      Height = 40
      Hint = 'Leave the Demo. Don'#180't know '#13#10'why you want this, but anyway'
      Caption = 'Exitus'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = 1
      Images = LargeImages
      OnClick = JvNavPanelBtnExitClick
    end
    object JvNavPanelButton1: TJvNavPanelButton
      Left = 601
      Top = -1
      Width = 105
      Height = 40
      Hint = 'Leave the Demo. Don'#180't know '#13#10'why you want this, but anyway'
      Caption = 'exception!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = DEFAULT_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = [fsBold]
      ParentFont = False
      StyleManager = JvNavPaneStyleMan
      ParentStyleManager = False
      ImageIndex = -1
      Images = LargeImages
      OnClick = JvNavPanelButton1Click
    end
  end
  object aJvImgBtn: TJvImgBtn
    Left = 512
    Top = 128
    Width = 26
    Height = 25
    TabOrder = 2
    Visible = False
    Flat = True
    HotTrackFont.Charset = DEFAULT_CHARSET
    HotTrackFont.Color = clWindowText
    HotTrackFont.Height = -11
    HotTrackFont.Name = 'MS Sans Serif'
    HotTrackFont.Style = []
    Images = LargeImages
    ImageIndex = 2
    Layout = blImageRight
    Spacing = 0
  end
  object sbxWinXPBar: TScrollBox
    Left = 0
    Top = 161
    Width = 216
    Height = 547
    HorzScrollBar.Smooth = True
    HorzScrollBar.Style = ssFlat
    HorzScrollBar.Tracking = True
    VertScrollBar.Smooth = True
    VertScrollBar.Style = ssFlat
    VertScrollBar.Tracking = True
    Align = alLeft
    BorderStyle = bsNone
    TabOrder = 3
    object JvSplitter1: TJvSplitter
      Left = 0
      Top = 139
      Width = 216
      Height = 6
      Cursor = crVSplit
      Align = alTop
      Beveled = True
    end