home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / RESDEMO.DFM / RESDEMO.txt < prev   
Encoding:
Text File  |  1995-06-20  |  2.5 KB  |  118 lines
  1. object DemoResources: TDemoResources
  2.   Left = 127
  3.   Top = 102
  4.   BorderStyle = bsSingle
  5.   Caption = 'Resource Meter Component'
  6.   ClientHeight = 273
  7.   ClientWidth = 427
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   Visible = True
  16.   TextHeight = 16
  17.   object Label1: TLabel
  18.     Left = 106
  19.     Top = 41
  20.     Width = 148
  21.     Height = 16
  22.     Caption = 'Free System Resources:'
  23.     Font.Color = clBlack
  24.     Font.Height = -13
  25.     Font.Name = 'MS Sans Serif'
  26.     Font.Style = []
  27.     ParentFont = False
  28.   end
  29.   object Label2: TLabel
  30.     Left = 106
  31.     Top = 85
  32.     Width = 126
  33.     Height = 16
  34.     Caption = 'Free GDI Resources:'
  35.     Font.Color = clBlack
  36.     Font.Height = -13
  37.     Font.Name = 'MS Sans Serif'
  38.     Font.Style = []
  39.     ParentFont = False
  40.   end
  41.   object Label3: TLabel
  42.     Left = 106
  43.     Top = 122
  44.     Width = 132
  45.     Height = 16
  46.     Caption = 'Free User Resources:'
  47.     Font.Color = clBlack
  48.     Font.Height = -13
  49.     Font.Name = 'MS Sans Serif'
  50.     Font.Style = []
  51.     ParentFont = False
  52.   end
  53.   object Label4: TLabel
  54.     Left = 113
  55.     Top = 163
  56.     Width = 198
  57.     Height = 91
  58.     AutoSize = False
  59.     Caption = 
  60.       'Resource meters graphically display free resources at both desig' +
  61.       'n time and run time.  Just set the Resourcetype property and you' +
  62.       'r done.'
  63.     Font.Color = clBlack
  64.     Font.Height = -11
  65.     Font.Name = 'MS Sans Serif'
  66.     Font.Style = [fsBold]
  67.     ParentFont = False
  68.   end
  69.   object ResourceMeter1: TResourceMeter
  70.     Left = 262
  71.     Top = 33
  72.     Width = 35
  73.     Height = 35
  74.     Color = clTeal
  75.     enabled = True
  76.     Kind = gkPie
  77.     ForeColor = clMaroon
  78.     ParentColor = False
  79.     Progress = 73
  80.     interval = 1000
  81.     ResourceType = rtSystem
  82.     LowLimit = 0
  83.     OnLimitNotify = ResourceMeter1LimitNotify
  84.   end
  85.   object ResourceMeter2: TResourceMeter
  86.     Left = 262
  87.     Top = 76
  88.     Width = 35
  89.     Height = 35
  90.     Color = clTeal
  91.     enabled = True
  92.     Kind = gkPie
  93.     ForeColor = clMaroon
  94.     ParentColor = False
  95.     Progress = 63
  96.     interval = 1000
  97.     ResourceType = rtGDI
  98.     LowLimit = 0
  99.     OnLimitNotify = ResourceMeter1LimitNotify
  100.   end
  101.   object ResourceMeter3: TResourceMeter
  102.     Left = 262
  103.     Top = 119
  104.     Width = 35
  105.     Height = 35
  106.     Color = clTeal
  107.     enabled = True
  108.     Kind = gkPie
  109.     ForeColor = clMaroon
  110.     ParentColor = False
  111.     Progress = 63
  112.     interval = 1000
  113.     ResourceType = rtUser
  114.     LowLimit = 0
  115.     OnLimitNotify = ResourceMeter1LimitNotify
  116.   end
  117. end
  118.