home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fsr / fsr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-06-17  |  4.6 KB  |  131 lines
  1. VERSION 2.00
  2. Begin Form frmFSR 
  3.    Caption         =   "FSR Information"
  4.    ClientHeight    =   4410
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    ForeColor       =   &H00C0C0C0&
  9.    Height          =   4815
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4410
  15.    ScaleWidth      =   7365
  16.    Top             =   1140
  17.    Width           =   7485
  18.    Begin SSPanel pnlGDI 
  19.       BevelInner      =   1  'Inset
  20.       FloodType       =   1  'Left To Right
  21.       Font3D          =   3  'Inset w/light shading
  22.       FontBold        =   0   'False
  23.       FontItalic      =   0   'False
  24.       FontName        =   "MS Sans Serif"
  25.       FontSize        =   8.25
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       ForeColor       =   &H00FFFFFF&
  29.       Height          =   495
  30.       Left            =   690
  31.       TabIndex        =   2
  32.       Top             =   2160
  33.       Width           =   6060
  34.    End
  35.    Begin SSPanel pnlSystem 
  36.       BevelInner      =   1  'Inset
  37.       FloodType       =   1  'Left To Right
  38.       Font3D          =   3  'Inset w/light shading
  39.       FontBold        =   0   'False
  40.       FontItalic      =   0   'False
  41.       FontName        =   "MS Sans Serif"
  42.       FontSize        =   8.25
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       ForeColor       =   &H00FFFFFF&
  46.       Height          =   495
  47.       Left            =   705
  48.       TabIndex        =   1
  49.       Top             =   1395
  50.       Width           =   6060
  51.    End
  52.    Begin SSPanel pnlUser 
  53.       BevelInner      =   1  'Inset
  54.       FloodType       =   1  'Left To Right
  55.       Font3D          =   3  'Inset w/light shading
  56.       FontBold        =   0   'False
  57.       FontItalic      =   0   'False
  58.       FontName        =   "MS Sans Serif"
  59.       FontSize        =   8.25
  60.       FontStrikethru  =   0   'False
  61.       FontUnderline   =   0   'False
  62.       ForeColor       =   &H00FFFFFF&
  63.       Height          =   465
  64.       Left            =   705
  65.       TabIndex        =   0
  66.       Top             =   630
  67.       Width           =   6060
  68.    End
  69.    Begin Label lblGDI 
  70.       Caption         =   "Free Space for GDI Objects"
  71.       FontBold        =   0   'False
  72.       FontItalic      =   0   'False
  73.       FontName        =   "MS Sans Serif"
  74.       FontSize        =   8.25
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   195
  78.       Left            =   2715
  79.       TabIndex        =   6
  80.       Top             =   2655
  81.       Width           =   1965
  82.    End
  83.    Begin Label lblText 
  84.       Caption         =   "By adding 3D panels to your project and setting the ""FloodColor, FloodShowPct and FloodType"" properties and using the API calls in the FSR.BAS module and the code in the ""Form_Load"" event, you can easily display relevant resource information."
  85.       FontBold        =   0   'False
  86.       FontItalic      =   0   'False
  87.       FontName        =   "MS Sans Serif"
  88.       FontSize        =   8.25
  89.       FontStrikethru  =   0   'False
  90.       FontUnderline   =   0   'False
  91.       Height          =   900
  92.       Left            =   1305
  93.       TabIndex        =   5
  94.       Top             =   3225
  95.       Width           =   4845
  96.    End
  97.    Begin Label lblSYSTEM 
  98.       Caption         =   "Free SYSTEM Resources"
  99.       FontBold        =   0   'False
  100.       FontItalic      =   0   'False
  101.       FontName        =   "MS Sans Serif"
  102.       FontSize        =   8.25
  103.       FontStrikethru  =   0   'False
  104.       FontUnderline   =   0   'False
  105.       Height          =   195
  106.       Left            =   2850
  107.       TabIndex        =   4
  108.       Top             =   1890
  109.       Width           =   1830
  110.    End
  111.    Begin Label lblUSER 
  112.       Caption         =   "Free Space for USER Objects"
  113.       FontBold        =   0   'False
  114.       FontItalic      =   0   'False
  115.       FontName        =   "MS Sans Serif"
  116.       FontSize        =   8.25
  117.       FontStrikethru  =   0   'False
  118.       FontUnderline   =   0   'False
  119.       Height          =   195
  120.       Left            =   2670
  121.       TabIndex        =   3
  122.       Top             =   1095
  123.       Width           =   2130
  124.    End
  125. Sub Form_Load ()
  126.     ' Flood graphs on About screen.
  127.     pnlUser.FloodPercent = GetFreeSystemResources%(GFSR_USERRESOURCES)
  128.     pnlSystem.FloodPercent = GetFreeSystemResources%(GFSR_SYSTEMRECOURCES)
  129.     pnlGDI.FloodPercent = GetFreeSystemResources%(GFSR_GDIRESOURCES)
  130. End Sub
  131.