home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / MemInfo / Main.pas < prev    next >
Pascal/Delphi Source File  |  1998-03-24  |  1KB  |  52 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, TeEngine, Series, ExtCtrls,
  8.   TeeProcs, Chart, Buttons;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     Chart1: TChart;
  13.     Button1: TButton;
  14.     Series1: TBarSeries;
  15.     BitBtn1: TBitBtn;
  16.     Label1: TLabel;
  17.     procedure Button1Click(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23.  
  24. var
  25.   MainForm: TMainForm;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. var
  32.   HeapStatus: THeapStatus;
  33.  
  34. procedure TMainForm.Button1Click(Sender: TObject);
  35. begin
  36.   HeapStatus := System.GetHeapStatus;
  37.   with Series1, HeapStatus do
  38.   begin
  39. //    Add(TotalAddrSpace, 'Total address space', clTeeColor);
  40. //    Add(TotalUncommitted, 'Total Uncommitted', clTeeColor);
  41.     Add(TotalCommitted, 'Total Committed', clTeeColor);
  42.     Add(TotalAllocated, 'Total Allocated', clTeeColor);
  43.     Add(TotalFree, 'Total Free', clTeeColor);
  44.     Add(FreeSmall, 'Free Small', clTeeColor);
  45.     Add(FreeBig, 'Free Big', clTeeColor);
  46.     Add(Unused, 'Unused', clTeeColor);
  47.     Add(Overhead, 'Overhead', clTeeColor);
  48.   end;
  49. end;
  50.  
  51. end.
  52.