jvqpagelinkeditorform.xfm

East make Tray Icon in delphi

object frmJvTreeViewLinksEditor: TfrmJvTreeViewLinksEditor
  Left = 294
  Top = 184
  Width = 472
  Height = 267
  VertScrollBar.Range = 42
  HorzScrollBar.Range = 271
  ActiveControl = tvItems
  BorderIcons = [biSystemMenu]
  Caption = 'JvTreeViewLinks Editor'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  ParentFont = False
  PopupMenu = popTree
  Scaled = False
  OnResize = FormResize
  PixelsPerInch = 96
  object Bevel1: TBevel
    Left = 0
    Top = 225
    Width = 472
    Height = 42
    Align = alBottom
    Shape = bsTopLine
  end
  object Splitter1: TSplitter
    Left = 163
    Top = 0
    Height = 225
    AutoSnap = False
  end
  object Splitter2: TSplitter
    Left = 268
    Top = 0
    Height = 225
    AutoSnap = False
  end
  object pnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 163
    Height = 225
    Align = alLeft
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 0
    object Label1: TLabel
      Left = 4
      Top = 4
      Width = 155
      Height = 16
      Align = alTop
      AutoSize = False
      Caption = '&Nodes:'
      FocusControl = tvItems
      Layout = tlCenter
    end
    object tvItems: TTreeView
      Left = 4
      Top = 20
      Width = 155
      Height = 201
      Align = alClient
      Columns = <>
      Indent = 19
      PopupMenu = popTree
      ReadOnly = True
      ShowButtons = False
      TabOrder = 0
      OnChange = tvItemsChange
    end
  end
  object btnOK: TButton
    Left = 289
    Top = 235
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&OK'
    ModalResult = 1
    TabOrder = 3
  end
  object btnCancel: TButton
    Left = 377
    Top = 235
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Cancel'
    ModalResult = 2
    TabOrder = 4
  end
  object pnlMid: TPanel
    Left = 166
    Top = 0
    Width = 102
    Height = 225
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object btnLink: TButton
      Left = 5
      Top = 24
      Width = 91
      Height = 25
      Action = acLink
      Anchors = [akTop]
      Caption = '<- Create &Link ->'
      TabOrder = 0
      TabStop = False
    end
  end
  object pnlRight: TPanel
    Left = 271
    Top = 0
    Width = 201
    Height = 225
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = 'pnlRight'
    TabOrder = 2
    object Label2: TLabel
      Left = 4
      Top = 4
      Width = 193
      Height = 17
      Align = alTop
      AutoSize = False
      Caption = '&Pages:'
      FocusControl = lbPages
      Layout = tlCenter
    end
    object lbPages: TListBox
      Left = 4
      Top = 21
      Width = 193
      Height = 200
      Align = alClient
      ItemHeight = 14
      TabOrder = 0
    end
  end
  object acMain: TActionList
    OnUpdate = acMainUpdate
    Left = 168
    Top = 64
    object acLink: TAction
      Caption = '<- Create &Link ->'
      ShortCut = 16397
      OnExecute = acLinkExecute
    end
  end
  object popTree: TPopupMenu
    Left = 58
    Top = 72
  end
end