home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 660
- Top = 133
- Width = 585
- Height = 401
- Caption = 'CCTask'
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 15
- object Panel2: TPanel
- Left = 481
- Top = 0
- Width = 96
- Height = 374
- Align = alRight
- BevelInner = bvLowered
- TabOrder = 0
- object Label1: TLabel
- Left = 10
- Top = 246
- Width = 79
- Height = 15
- Caption = '&Interval (sec.) :'
- FocusControl = SpinEdit1
- end
- object Label2: TLabel
- Left = 10
- Top = 230
- Width = 79
- Height = 15
- Caption = ' U p d a t e : '
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = [fsBold, fsUnderline]
- ParentFont = False
- OnClick = TimerEvent
- end
- object SpinEdit1: TSpinEdit
- Left = 22
- Top = 262
- Width = 57
- Height = 23
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 5
- MaxValue = 99999
- MinValue = 0
- ParentFont = False
- TabOrder = 13
- Value = 0
- OnChange = SpinEdit1Change
- end
- object bStart: TButton
- Left = 8
- Top = 286
- Width = 41
- Height = 22
- Caption = '&Start'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 14
- OnClick = bStartClick
- end
- object bStop: TButton
- Left = 8
- Top = 307
- Width = 41
- Height = 22
- Caption = 'Sto&p'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 15
- OnClick = bStopClick
- end
- object bHide: TButton
- Tag = 1
- Left = 3
- Top = 4
- Width = 39
- Height = 20
- Caption = '&Hide'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = bHideClick
- end
- object bShow: TButton
- Tag = 2
- Left = 3
- Top = 24
- Width = 39
- Height = 20
- Caption = 'Sho&w'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = bHideClick
- end
- object bKill: TButton
- Tag = 4
- Left = 3
- Top = 64
- Width = 39
- Height = 20
- Caption = '&Kill'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = ButtonClick
- end
- object bSingle: TButton
- Left = 48
- Top = 286
- Width = 41
- Height = 43
- Caption = 'S&ingle'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 16
- OnClick = TimerEvent
- end
- object rgPriority: TRadioGroup
- Tag = 2
- Left = 16
- Top = 159
- Width = 67
- Height = 70
- Caption = 'P&riority'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Items.Strings = (
- 'Real'
- 'High'
- 'Normal'
- 'Idle')
- ParentFont = False
- TabOrder = 12
- OnClick = RadioClick
- end
- object cAutoUpdate: TCheckBox
- Left = 8
- Top = 330
- Width = 78
- Height = 17
- Caption = '&AutoUpdate'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 17
- end
- object bCaption: TButton
- Tag = 5
- Left = 43
- Top = 4
- Width = 49
- Height = 20
- Caption = '&Caption'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = HWNDClick
- end
- object bMinimize: TButton
- Tag = 6
- Left = 43
- Top = 24
- Width = 49
- Height = 20
- Caption = '&Minimize'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = HWNDClick
- end
- object bDestroy: TButton
- Tag = 8
- Left = 43
- Top = 64
- Width = 49
- Height = 20
- Caption = '&Destroy'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = HWNDClick
- end
- object rgInput: TRadioGroup
- Tag = 1
- Left = 4
- Top = 127
- Width = 88
- Height = 33
- Caption = 'Allow Inp&ut'
- Columns = 2
- Ctl3D = True
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Items.Strings = (
- 'Yes'
- 'No')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 11
- OnClick = RadioClick
- end
- object bSleep: TButton
- Left = 3
- Top = 103
- Width = 32
- Height = 25
- Caption = 'Sl&eep'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- OnClick = bSleepClick
- end
- object sSleep: TSpinEdit
- Left = 35
- Top = 103
- Width = 58
- Height = 24
- Hint = 'Minutes to live'
- Increment = 10
- MaxLength = 5
- MaxValue = 99999
- MinValue = 0
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- Value = 0
- end
- object bCron: TButton
- Left = 3
- Top = 84
- Width = 89
- Height = 18
- Hint = 'Cron Setup'
- Caption = 'C &r o n'
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- OnClick = bCronClick
- end
- object bAbout: TButton
- Left = 8
- Top = 350
- Width = 81
- Height = 18
- Caption = 'A&bout'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 18
- OnClick = bAboutClick
- end
- object bTop: TButton
- Tag = 3
- Left = 3
- Top = 44
- Width = 39
- Height = 20
- Hint = 'Bring to front'
- Caption = '&Top'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = HWNDClick
- end
- object bBottom: TButton
- Tag = 7
- Left = 43
- Top = 44
- Width = 49
- Height = 20
- Hint = 'Send to back'
- Caption = 'Bottom'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 5
- OnClick = HWNDClick
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 481
- Height = 374
- Align = alClient
- Caption = 'Panel1'
- TabOrder = 1
- object ListView2: TListView
- Left = 1
- Top = 244
- Width = 479
- Height = 129
- Align = alBottom
- Columns = <
- item
- Caption = 'Module Name'
- Width = 120
- end
- item
- Alignment = taRightJustify
- Caption = 'Global Count'
- Width = 76
- end
- item
- Alignment = taRightJustify
- Caption = 'Process Count'
- Width = 78
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 80
- end>
- ReadOnly = True
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- HideSelection = False
- OnColumnClick = ListView1ColumnClick
- TabOrder = 1
- ViewStyle = vsReport
- end
- object ListView1: TListView
- Left = 1
- Top = 1
- Width = 479
- Height = 221
- Align = alClient
- Columns = <
- item
- Caption = 'Process Name'
- Width = 100
- end
- item
- Caption = 'Process ID'
- Width = 66
- end
- item
- Caption = 'Module ID'
- Width = 66
- end
- item
- Caption = 'Priority'
- end
- item
- Caption = 'Full Name'
- Width = 193
- WidthType = (
- -2)
- end>
- ReadOnly = True
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- HideSelection = False
- OnChange = ListView1Change
- OnColumnClick = ListView1ColumnClick
- TabOrder = 0
- ViewStyle = vsReport
- end
- object Panel3: TPanel
- Left = 1
- Top = 222
- Width = 479
- Height = 22
- Cursor = crVSplit
- Align = alBottom
- BorderStyle = bsSingle
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnMouseDown = Panel3MouseDown
- OnMouseMove = Panel3MouseMove
- OnMouseUp = Panel3MouseUp
- end
- object pDragger: TPanel
- Left = 1
- Top = 200
- Width = 479
- Height = 17
- BevelInner = bvLowered
- BevelOuter = bvLowered
- Caption = 'pDragger'
- TabOrder = 2
- Visible = False
- end
- end
- object timerUpdate: TTimer
- Enabled = False
- Interval = 10
- OnTimer = TimerEvent
- Left = 424
- Top = 65520
- end
- object Tray: TTrayIcon
- Active = False
- ShowDesigning = False
- ToolTip = 'CCTask'
- OnClick = menuShowClick
- PopupMenu = TrayMenu
- Left = 392
- Top = 65520
- end
- object TrayMenu: TPopupMenu
- Left = 456
- Top = 65528
- object menuShow: TMenuItem
- Caption = 'Show'
- Default = True
- ShortCut = 0
- OnClick = menuShowClick
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object N1: TMenuItem
- Caption = 'Close'
- ShortCut = 0
- OnClick = N1Click
- end
- end
- end
-