Freelog 3/Freelog003.iso/Logs/Systeme/MemInfo/MEMINFO.EXE/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-09-25 | 6KB | 277 lines

object Form1: TForm1
  Left = 252
  Top = 163
  Hint = 'Click right mouse-button for menu'
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 70
  ClientWidth = 240
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = PopupMenu1
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 4
    Width = 57
    Height = 11
    Caption = 'Memory load:'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 4
    Top = 20
    Width = 37
    Height = 11
    Caption = 'Physical:'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 4
    Top = 36
    Width = 28
    Height = 11
    Caption = 'Virtual:'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 4
    Top = 52
    Width = 36
    Height = 11
    Caption = 'Swapfile:'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object Shape1: TShape
    Left = 3
    Top = 16
    Width = 233
    Height = 2
    Brush.Color = clLime
    Pen.Color = clFuchsia
    Pen.Style = psClear
    Pen.Width = 0
  end
  object Shape2: TShape
    Left = 3
    Top = 32
    Width = 233
    Height = 2
    Brush.Color = clLime
    Pen.Style = psClear
    Pen.Width = 0
  end
  object Shape3: TShape
    Left = 3
    Top = 48
    Width = 233
    Height = 2
    Brush.Color = clLime
    Pen.Style = psClear
  end
  object Shape4: TShape
    Left = 3
    Top = 64
    Width = 233
    Height = 2
    Brush.Color = clLime
    Pen.Style = psClear
  end
  object loadMeter: TShape
    Left = 3
    Top = 16
    Width = 110
    Height = 2
    Brush.Color = clRed
    Pen.Style = psClear
    Pen.Width = 0
  end
  object physMeter: TShape
    Left = 3
    Top = 32
    Width = 110
    Height = 2
    Brush.Color = clRed
    Pen.Style = psClear
    Pen.Width = 0
  end
  object virtMeter: TShape
    Left = 3
    Top = 48
    Width = 110
    Height = 2
    Brush.Color = clRed
    Pen.Style = psClear
  end
  object swapMeter: TShape
    Left = 3
    Top = 64
    Width = 110
    Height = 2
    Brush.Color = clRed
    Pen.Style = psClear
  end
  object loadLabel: TLabel
    Left = 216
    Top = 4
    Width = 19
    Height = 11
    Alignment = taRightJustify
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object physLabel: TLabel
    Left = 216
    Top = 20
    Width = 19
    Height = 11
    Alignment = taRightJustify
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object virtLabel: TLabel
    Left = 216
    Top = 36
    Width = 19
    Height = 11
    Alignment = taRightJustify
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object swapLabel: TLabel
    Left = 216
    Top = 52
    Width = 19
    Height = 11
    Alignment = taRightJustify
    Caption = '0'
    Color = clBlack
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Transparent = True
  end
  object PopupMenu1: TPopupMenu
    Left = 68
    Top = 32
    object stayOnTop: TMenuItem
      Caption = 'Always on top'
      ShortCut = 0
      OnClick = stayOnTopClick
    end
    object Stayblack: TMenuItem
      Caption = 'Always dark'
      ShortCut = 0
      OnClick = StayblackClick
    end
    object Mark1: TMenuItem
      Caption = 'Mark now!'
      ShortCut = 0
      OnClick = Mark1Click
    end
    object Compare1: TMenuItem
      Caption = 'Compare now!'
      ShortCut = 0
      OnClick = Compare1Click
    end
    object About1: TMenuItem
      Caption = 'About'
      ShortCut = 0
      OnClick = About1Click
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object Exit: TMenuItem
      Caption = 'Exit'
      ShortCut = 0
      OnClick = ExitClick
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 128
    Top = 32
  end
end