jvglogicseditorform.dfm

East make Tray Icon in delphi

    Caption = 'ToolBar1'
    EdgeBorders = [ebBottom]
    Flat = True
    Images = ImageList1
    TabOrder = 3
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      ImageIndex = 0
    end
    object ToolButton4: TToolButton
      Left = 28
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbNew: TToolButton
      Left = 36
      Top = 0
      Caption = 'Add item'
      ImageIndex = 1
      OnClick = tbNewClick
    end
    object ToolButton3: TToolButton
      Left = 64
      Top = 0
      Caption = 'Remove item'
      ImageIndex = 2
    end
    object ToolButton2: TToolButton
      Left = 92
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 100
      Top = 0
      Caption = 'ToolButton7'
      ImageIndex = 4
      OnClick = ToolButton7Click
    end
    object ToolButton6: TToolButton
      Left = 128
      Top = 0
      Width = 25
      Caption = 'ToolButton6'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 153
      Top = 0
      Caption = 'ToolButton5'
      ImageIndex = 5
      OnClick = ToolButton5Click
    end
    object ToolButton8: TToolButton
      Left = 181
      Top = 0
      Caption = 'ToolButton8'
      ImageIndex = 6
      OnClick = ToolButton8Click
    end
    object tbStop: TToolButton
      Left = 209
      Top = 0
      Caption = 'tbStop'
      Enabled = False
      ImageIndex = 7
      OnClick = tbStopClick
    end
  end
  object pLeft: TPanel
    Left = 0
    Top = 407
    Width = 782
    Height = 97
    Align = alBottom
    BevelOuter = bvLowered
    DockSite = True
    DragKind = dkDock
    TabOrder = 4
    OnDockDrop = pLeftDockDrop
    OnDockOver = pLeftDockOver
    OnUnDock = pLeftUnDock
    object pLog: TPanel
      Left = 1
      Top = 1
      Width = 780
      Height = 95
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Event Log'
      DragKind = dkDock
      DragMode = dmAutomatic
      TabOrder = 0
      object Panel2: TPanel
        Left = 0
        Top = 5
        Width = 780
        Height = 90
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        Caption = 'Panel2'
        TabOrder = 0
        object Splitter2: TSplitter
          Left = 189
          Top = 1
          Width = 3
          Height = 67
          Cursor = crHSplit
          Align = alRight
        end
        object Shape6: TShape
          Left = 188
          Top = 1
          Width = 1
          Height = 67
          Align = alRight
          Pen.Color = clBtnShadow
        end
        object Shape7: TShape
          Left = 0
          Top = 0
          Width = 780
          Height = 1
          Align = alTop
          Pen.Color = clBtnShadow
        end
        object Shape8: TShape
          Left = 0
          Top = 1
          Width = 1
          Height = 67
          Align = alLeft
          Pen.Color = clBtnShadow
        end
        object Shape9: TShape
          Left = 0
          Top = 89
          Width = 780
          Height = 1
          Align = alBottom
          Pen.Color = clBtnShadow
        end
        object reReslt: TRichEdit
          Left = 192
          Top = 1
          Width = 588
          Height = 67
          Align = alRight
          BorderStyle = bsNone
          TabOrder = 0
        end
        object PC: TPageControl
          Left = 1
          Top = 1
          Width = 187
          Height = 67
          ActivePage = tsLog
          Align = alClient
          Style = tsButtons
          TabOrder = 1
          TabStop = False
          object tsLog: TTabSheet
            Caption = 'Log Event'
            TabVisible = False
            object Shape10: TShape
              Left = 178
              Top = 1
              Width = 1
              Height = 55
              Align = alRight
              Pen.Color = clBtnShadow
            end
            object Shape11: TShape
              Left = 0
              Top = 0
              Width = 179
              Height = 1
              Align = alTop
              Pen.Color = clBtnShadow
            end
            object Shape12: TShape
              Left = 0
              Top = 1
              Width = 1
              Height = 55
              Align = alLeft
              Pen.Color = clBtnShadow
            end
            object Shape13: TShape
              Left = 0
              Top = 56
              Width = 179
              Height = 1
              Align = alBottom
              Pen.Color = clBtnShadow
            end
            object mLog: TMemo
              Left = 1
              Top = 1
              Width = 177
              Height = 55
              Align = alClient
              BorderStyle = bsNone
              ScrollBars = ssVertical
              TabOrder = 0
            end
          end
          object tsDictionary: TTabSheet
            Caption = 'Dictionary'
            ImageIndex = 1
            TabVisible = False
            object Shape2: TShape
              Left = 0
              Top = 0
              Width = 179
              Height = 1
              Align = alTop
              Pen.Color = clBtnShadow
            end
            object Shape3: TShape
              Left = 0
              Top = 56
              Width = 179
              Height = 1
              Align = alBottom
              Pen.Color = clBtnShadow
            end
            object Shape4: TShape
              Left = 0
              Top = 1
              Width = 1
              Height = 55
              Align = alLeft
              Pen.Color = clBtnShadow
            end
            object Shape5: TShape
              Left = 178
              Top = 1
              Width = 1
              Height = 55
              Align = alRight
              Pen.Color = clBtnShadow
            end
            object mDictionary: TMemo