PC Shareware 1998 March/PCShareware-3-98.iso/programy/memmon/_SETUP.1/Memmon.exe/0/RCDATA/TMAIN/TMAIN.txt

Text File | 1998-01-04 | 11KB | 434 lines

object Main: TMain
  Left = 255
  Top = 175
  ActiveControl = OK
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsSingle
  Caption = 'Windows NT Memory Monitor'
  ClientHeight = 431
  ClientWidth = 460
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 6
    Top = 6
    Width = 448
    Height = 387
    ActivePage = TabSheet1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Memory'
      object MemoryLoadLabel: TLabel
        Left = 7
        Top = 335
        Width = 67
        Height = 13
        Caption = 'Memory Load:'
      end
      object MemoryLoadPercent: TLabel
        Left = 78
        Top = 335
        Width = 14
        Height = 13
        Caption = '0%'
      end
      object GroupBox1: TGroupBox
        Left = 7
        Top = 4
        Width = 426
        Height = 102
        HelpContext = 1
        Caption = 'Physical Memory:'
        PopupMenu = HelpMenu
        TabOrder = 0
        object TotalPhysLabel: TLabel
          Left = 12
          Top = 47
          Width = 30
          Height = 13
          Caption = 'Total: '
        end
        object AvailPhysLabel: TLabel
          Left = 12
          Top = 71
          Width = 46
          Height = 13
          Caption = 'Available:'
        end
        object TotalPhysValueKB: TLabel
          Left = 92
          Top = 47
          Width = 43
          Height = 13
          Caption = '00,000 K'
        end
        object AvailPhysValueKB: TLabel
          Left = 92
          Top = 71
          Width = 43
          Height = 13
          Caption = '00,000 K'
        end
        object AvailPhysPercent: TLabel
          Left = 12
          Top = 18
          Width = 42
          Height = 13
          Caption = '0% Used'
        end
        object TotalPhysValueMB: TLabel
          Left = 197
          Top = 47
          Width = 45
          Height = 13
          Caption = '(0.00 Mb)'
        end
        object AvailPhysValueMB: TLabel
          Left = 197
          Top = 71
          Width = 45
          Height = 13
          Caption = '(0.00 Mb)'
        end
        object PhysBar: TProgressBar
          Left = 92
          Top = 18
          Width = 323
          Height = 14
          HelpContext = 1
          Min = 0
          Max = 100
          TabOrder = 0
        end
      end
      object GroupBox3: TGroupBox
        Left = 7
        Top = 222
        Width = 426
        Height = 102
        HelpContext = 3
        Caption = 'Virtual Memory:'
        PopupMenu = HelpMenu
        TabOrder = 1
        object AvailVirtualPercent: TLabel
          Left = 12
          Top = 19
          Width = 42
          Height = 13
          Caption = '0% Used'
        end
        object TotalVirtualLabel: TLabel
          Left = 12
          Top = 48
          Width = 27
          Height = 13
          Caption = 'Total:'
        end
        object AvailVirtualLabel: TLabel
          Left = 12
          Top = 73
          Width = 46
          Height = 13
          Caption = 'Available:'
        end
        object TotalVirtualKB: TLabel
          Left = 92
          Top = 48
          Width = 58
          Height = 13
          Caption = '0,000,000 K'
        end
        object AvailVirtualKB: TLabel
          Left = 92
          Top = 73
          Width = 58
          Height = 13
          Caption = '0,000,000 K'
        end
        object TotalVirtualMB: TLabel
          Left = 197
          Top = 48
          Width = 63
          Height = 13
          Caption = '(0000.00 Mb)'
        end
        object AvailVirtualMB: TLabel
          Left = 197
          Top = 73
          Width = 60
          Height = 13
          Caption = '(0000.00Mb)'
        end
        object VirtualBar: TProgressBar
          Left = 92
          Top = 19
          Width = 323
          Height = 13
          HelpContext = 3
          Min = 0
          Max = 100
          TabOrder = 0
        end
      end
      object GroupBox4: TGroupBox
        Left = 7
        Top = 113
        Width = 426
        Height = 102
        HelpContext = 2
        Caption = 'Paging File:'
        PopupMenu = HelpMenu
        TabOrder = 2
        object AvailPageFilePercent: TLabel
          Left = 12
          Top = 19
          Width = 42
          Height = 13
          Caption = '0% Used'
        end
        object TotalPageFileLabel: TLabel
          Left = 12
          Top = 47
          Width = 23
          Height = 13
          Caption = 'Size:'
        end
        object AvailPageFileLabel: TLabel
          Left = 12
          Top = 72
          Width = 46
          Height = 13
          Caption = 'Available:'
        end
        object TotalPageFileKB: TLabel
          Left = 92
          Top = 47
          Width = 43
          Height = 13
          Caption = '00,000 K'
        end
        object AvailPageFileKB: TLabel
          Left = 92
          Top = 72
          Width = 43
          Height = 13
          Caption = '00,000 K'
        end
        object TotalPageFileMB: TLabel
          Left = 197
          Top = 47
          Width = 51
          Height = 13
          Caption = '(00.00 Mb)'
        end
        object AvailPageFileMB: TLabel
          Left = 197
          Top = 72
          Width = 51
          Height = 13
          Caption = '(00.00 Mb)'
        end
        object PageFileBar: TProgressBar
          Left = 92
          Top = 19
          Width = 323
          Height = 13
          HelpContext = 2
          Min = 0
          Max = 100
          TabOrder = 0
        end
      end
      object MemoryLoadBar: TProgressBar
        Left = 110
        Top = 335
        Width = 323
        Height = 13
        HelpContext = 4
        Min = 0
        Max = 100
        PopupMenu = HelpMenu
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Settings'
      object GroupBox2: TGroupBox
        Left = 7
        Top = 4
        Width = 426
        Height = 80
        HelpContext = 7
        Caption = '&Update Interval'
        PopupMenu = HelpMenu
        TabOrder = 0
        object Label4: TLabel
          Left = 197
          Top = 58
          Width = 46
          Height = 13
          Caption = '1 Second'
        end
        object TrackBar1: TTrackBar
          Left = 53
          Top = 24
          Width = 320
          Height = 31
          HelpContext = 7
          Ctl3D = True
          Max = 4
          Orientation = trHorizontal
          ParentCtl3D = False
          PopupMenu = HelpMenu
          Frequency = 1
          Position = 2
          SelEnd = 0
          SelStart = 0
          TabOrder = 0
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = TrackBar1Change
        end
      end
      object GroupBox5: TGroupBox
        Left = 7
        Top = 91
        Width = 426
        Height = 258
        Caption = 'Percentages'
        TabOrder = 1
        object PhysRG: TRadioGroup
          Left = 12
          Top = 17
          Width = 402
          Height = 70
          HelpContext = 9
          Caption = '&Physical Memory Shows:'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '% Free'
            '% Used')
          PopupMenu = HelpMenu
          TabOrder = 0
        end
        object PageRG: TRadioGroup
          Left = 12
          Top = 95
          Width = 402
          Height = 70
          HelpContext = 10
          Caption = 'Paging &File Shows:'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '% Free'
            '% Used')
          PopupMenu = HelpMenu
          TabOrder = 1
        end
        object VirtRG: TRadioGroup
          Left = 12
          Top = 174
          Width = 402
          Height = 70
          HelpContext = 11
          Caption = '&Virtual Memory Shows:'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '% Free'
            '% Used')
          PopupMenu = HelpMenu
          TabOrder = 2
        end
      end
    end
  end
  object OK: TButton
    Left = 379
    Top = 400
    Width = 75
    Height = 25
    HelpContext = 6
    Cancel = True
    Caption = 'OK'
    Default = True
    PopupMenu = HelpMenu
    TabOrder = 3
    OnClick = OKClick
  end
  object Refresh: TBitBtn
    Left = 296
    Top = 400
    Width = 75
    Height = 25
    HelpContext = 5
    Caption = '&Refresh'
    PopupMenu = HelpMenu
    TabOrder = 2
    OnClick = RefreshClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      3333333777333777FF33339993707399933333773337F3777FF3399933000339
      9933377333777F3377F3399333707333993337733337333337FF993333333333
      399377F33333F333377F993333303333399377F33337FF333373993333707333
      333377F333777F333333993333101333333377F333777F3FFFFF993333000399
      999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
      99933773FF777F3F777F339993707399999333773F373F77777F333999999999
      3393333777333777337333333999993333333333377777333333}
    NumGlyphs = 2
    Style = bsNew
  end
  object Help: TBitBtn
    Left = 6
    Top = 400
    Width = 75
    Height = 25
    HelpContext = 12
    Caption = '&Help'
    PopupMenu = HelpMenu
    TabOrder = 1
    OnClick = HelpClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222
      2222222222200022222222222005580222222220055FF780222220055FF00778
      0222855FF0055077802285F00555550778028005553B55507780855555535555
      070225F55555BB555002225F555553BB55022225F55535BB555022225F55BBB5
      5500222225F5555500222222225F550022222222222550222222}
    Style = bsNew
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 259
    Top = 397
  end
  object HelpMenu: TPopupMenu
    Left = 226
    Top = 397
    object WhatsThis1: TMenuItem
      Caption = '&What'#39's This?'
      OnClick = WhatsThis1Click
    end
  end
end