home *** CD-ROM | disk | FTP | other *** search
- object ResourceMonitorForm: TResourceMonitorForm
- Left = 224
- Top = 121
- Hint = 'Dr.Bob'#39's Resource Monitor (Esc = colour)'
- HelpContext = 10
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsNone
- ClientHeight = 29
- ClientWidth = 259
- Color = clTeal
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- FormStyle = fsStayOnTop
- PixelsPerInch = 96
- Scaled = False
- ShowHint = True
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- TextHeight = 13
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 259
- Height = 29
- Align = alClient
- ParentShowHint = False
- ShowHint = False
- Style = bsRaised
- end
- object LabelMemAvail: TLabel
- Left = 2
- Top = 1
- Width = 86
- Height = 13
- Caption = 'LabelMemAvail'
- ParentShowHint = False
- ShowHint = False
- end
- object LabelFreeResources: TLabel
- Left = 2
- Top = 14
- Width = 117
- Height = 13
- Caption = 'LabelFreeResources'
- ParentShowHint = False
- ShowHint = False
- end
- object X: TLabel
- Left = 192
- Top = 1
- Width = 9
- Height = 13
- Caption = 'X'
- ParentShowHint = False
- ShowHint = False
- end
- object SnapShot: TSpeedButton
- Left = 204
- Top = 2
- Width = 25
- Height = 25
- Hint = 'snapshot of current resource level'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
- 000333FFF3777777777F3000330FFFFFFF033777FF7F3FF3FF7F07B7030F00F0
- 0F0377777F7F7737737F0BBB030FFFFFFF0377777F7F3FFFF37F07B7030F0000
- FF037777737F7777337F3000330FFFFFFF033777337F3FF3FF7F3333330F00F0
- 00033333337F7737777F3333330FFFF0FF033FFFFF7F3FF7F3730000030F08F0
- F03377777F7F7737F7330999030FFFF0033377777F7FFFF77333099903000000
- 333377777F7777773333099903333333333377777F33FFFFFFF3000003300000
- 00337777733777777733333333330CCC033333333333777773333333333330C0
- 3333333333333777333333333333330333333333333333733333}
- NumGlyphs = 2
- OnClick = SnapShotClick
- end
- object Used: TSpeedButton
- Left = 232
- Top = 2
- Width = 25
- Height = 25
- Hint = 'report used resource amount (since snapshot)'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003
- 0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000
- 0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3
- CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7
- CCC77777737773777377330399930003CCC3337F737F7773737F370399933333
- CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777
- CCC77777777777777377330333333333CCC3337F33333333737F370333333333
- 0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777
- 77777777777777777777333333333333333333333333333333330000}
- NumGlyphs = 2
- OnClick = UsedClick
- end
- object Timer1: TTimer
- Interval = 500
- OnTimer = Timer1Timer
- Left = 144
- end
- object ColorDialog1: TColorDialog
- Left = 120
- end
- end
-