132 lines
2.7 KiB
Plaintext
132 lines
2.7 KiB
Plaintext
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
|