home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 April
/
Chip_1997-04_cd.bin
/
prezent
/
cb
/
data.z
/
PROC.DFM
/
PROC.txt
< prev
Wrap
Text File
|
1997-01-16
|
8KB
|
326 lines
object Form1: TForm1
Left = 182
Top = 128
BorderStyle = bsSingle
Caption = 'PPV'
ClientHeight = 423
ClientWidth = 563
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 76
Width = 96
Height = 16
Caption = 'PID Info Viewer'
Font.Color = clRed
Font.Height = -13
Font.Name = 'Lucida Sans Unicode'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 100
Width = 18
Height = 13
Caption = 'PID'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 382
Top = 100
Width = 98
Height = 13
Caption = 'Window Class Name'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 192
Top = 100
Width = 90
Height = 13
Caption = 'Caption of Window'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object TBevel
Left = 320
Top = 0
Width = 5
Height = 1
end
object Bevel1: TBevel
Left = 0
Top = 0
Width = 563
Height = 9
Align = alTop
Shape = bsTopLine
end
object GroupBox1: TGroupBox
Left = 432
Top = 8
Width = 121
Height = 61
Caption = 'Pid Info Color'
TabOrder = 0
object RadioButton1: TRadioButton
Left = 8
Top = 16
Width = 57
Height = 17
Caption = 'Re&d'
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = RadioButton1Click
end
object RadioButton2: TRadioButton
Left = 8
Top = 32
Width = 57
Height = 25
Caption = '&Green'
Font.Color = clGreen
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RadioButton1Click
end
object RadioButton3: TRadioButton
Left = 64
Top = 16
Width = 49
Height = 17
Caption = '&Blue'
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = RadioButton1Click
end
object RadioButton4: TRadioButton
Left = 64
Top = 36
Width = 49
Height = 17
Caption = 'B&lack'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RadioButton1Click
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 321
Height = 69
BevelInner = bvLowered
BevelWidth = 2
BorderStyle = bsSingle
TabOrder = 3
object SpeedButton1: TSpeedButton
Left = 8
Top = 32
Width = 25
Height = 25
Hint = 'Exit Application'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
FFFFFCFFFFFFFFFFFCFFFFCFFFFFFFFFCFFFFFFCFFFFFFFCFFFFFFFFCFFFFFCF
FFFFFFFFFCFFFCFFFFFFFFFFFFCFCFFFFFFFFFFFFFFCFFFFFFFFFFFFFFFCCFFF
FFFFFFFFFFCFFCFFFFFFFFFFFCFFFFCFFFFFFFFFCFFFFFFCFFFFFFFCFFFFFFFF
CFFFFFCFFFFFFFFFFCFFFCFFFFFFFFFFFFCFFFFFFFFFFFFFFFFF}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 56
Top = 32
Width = 25
Height = 25
Hint = 'About PPV'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
9999999000000000099999900000000009999999990000999999999999900999
9999999999900999999999999990099999999999999009999999999999900999
9999999999900999999999999990099999999999999009999999999999000099
9999999000000000099999900000000009999999999999999999}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 32
Top = 32
Width = 25
Height = 25
Hint = 'Clear PID Info Viewer'
Enabled = False
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 8
Top = 8
Width = 25
Height = 25
Hint = 'List Processes'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00F9FFFFFFFFFF
FFFFF9FFFFFFFFFFFFFFF9FFFFFFFFFFFFFFF9F99FFF9FFF9999F99FF9FF9FF9
FFF9F9FFF9FF9FF9FFF9F9FFF9FF9FF9FFF9F9FFF9FF9FF9FFF9F99FF9FF9FF9
FF99F9F99FFF9FFF99F9FFFFFFFFFFFFFFF9FFFFFFFFFFFFFFF9FFFFFFFF9FFF
FFF9FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton4Click
end
object Image1: TImage
Left = 40
Top = 8
Width = 33
Height = 17
Picture.Data = {<image001.bmp>}
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 398
Width = 563
Height = 25
Panels = <>
SimplePanel = True
end
object ListBox1: TListBox
Left = 8
Top = 112
Width = 545
Height = 265
Enabled = False
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 5
TabWidth = 125
OnClick = ListBox1Click
end
object Button1: TButton
Left = 196
Top = 32
Width = 97
Height = 25
Caption = ' &Kill Selected PID'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 196
Top = 8
Width = 97
Height = 25
Caption = '&Refresh PIDs'
Enabled = False
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object MainMenu1: TMainMenu
Left = 384
Top = 24
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object New1: TMenuItem
Caption = '&List Pids...'
ShortCut = 0
OnClick = New1Click
end
object Refresh1: TMenuItem
Caption = '&Refresh List'
ShortCut = 0
OnClick = Refresh1Click
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 0
OnClick = Exit1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
object About1: TMenuItem
Caption = '&About...'
ShortCut = 0
OnClick = About1Click
end
end
end
object Timer1: TTimer
Interval = 200
OnTimer = Timer1Timer
Left = 344
Top = 24
end
end