appinstdemomain.dfm

East make Tray Icon in delphi

object Form1: TForm1
  Left = 204
  Top = 125
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'JclAppInst demo'
  ClientHeight = 365
  ClientWidth = 329
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 256
    Top = 8
    Width = 65
    Height = 97
    Alignment = taCenter
    AutoSize = False
    Caption = '0'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -96
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Layout = tlCenter
  end
  object InstancesListView: TListView
    Left = 0
    Top = 0
    Width = 241
    Height = 177
    Columns = <
      item
        Caption = 'Number'
      end
      item
        Alignment = taRightJustify
        Caption = 'ProcessID'
        Width = 70
      end
      item
        Alignment = taRightJustify
        Caption = 'Application HWND'
        Width = 110
      end>
    ColumnClick = False
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = SwitchBtnClick
  end
  object SwitchBtn: TButton
    Left = 248
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Switch to'
    TabOrder = 1
    OnClick = SwitchBtnClick
  end
  object MsgBtn: TButton
    Left = 248
    Top = 152
    Width = 75
    Height = 25
    Caption = 'Message'
    TabOrder = 2
    OnClick = MsgBtnClick
  end
  object Memo1: TMemo
    Left = 0
    Top = 184
    Width = 241
    Height = 177
    Lines.Strings = (
      'Enter a text')
    TabOrder = 3
    OnChange = Memo1Change
  end
  object SendBtn: TButton
    Left = 248
    Top = 336
    Width = 75
    Height = 25
    Caption = 'Send'
    TabOrder = 4
    OnClick = SendBtnClick
  end
  object AutoUpdateCheckBox: TCheckBox
    Left = 248
    Top = 304
    Width = 97
    Height = 17
    Caption = 'Auto update'
    TabOrder = 5
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    CustomColors.Strings = (
      'ColorA=FFFFFFFF'
      'ColorB=FFFFFFFF'
      'ColorC=FFFFFFFF'
      'ColorD=FFFFFFFF'
      'ColorE=FFFFFFFF'
      'ColorF=FFFFFFFF'
      'ColorG=FFFFFFFF'
      'ColorH=FFFFFFFF'
      'ColorI=FFFFFFFF'
      'ColorJ=FFFFFFFF'
      'ColorK=FFFFFFFF'
      'ColorL=FFFFFFFF'
      'ColorM=FFFFFFFF'
      'ColorN=FFFFFFFF'
      'ColorO=FFFFFFFF'
      'ColorP=FFFFFFFF')
    Options = [cdPreventFullOpen]
    Left = 8
    Top = 144
  end
end