home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of German Only 1
/
romside_best_of_german_only_1.iso
/
wissen
/
dos
/
wgraph
/
entpack.exe
/
WGBSP!.EXE
/
GINFO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-12-12
|
2KB
|
78 lines
{$A+,B-,D-,E-,F+,I-,L-,N-,O+,R-,S-,V-}
UNIT GInfo;
INTERFACE
USES GDecl,
GViews,
GDlg,
GDrivers,
Graph;
type PMemoryInfo=^TMemoryInfo;
TMemoryInfo=object(TWindow)
procedure SetPalette; virtual;
procedure InitBackground; virtual;
end;
PMemoryInfoBgrd=^TMemoryInfoBgrd;
TMemoryInfoBgrd=object(TBackground)
procedure Draw;virtual;
end;
IMPLEMENTATION
{Implementation TMemoryInfo}
procedure TMemoryInfo.SetPalette;
begin
Palette:=Pal[palGreen];
end;
procedure TMemoryInfo.InitBackground;
var R:TRect;
begin
R:=Frame^.Area;
Bgrd:=new(PMemoryInfoBgrd, Init(R));
List^.InsertItem(Bgrd);
end;
{Implementation TMemoryInfoBgrd}
procedure TMemoryInfoBgrd.Draw;
var z:string;
EMS:PEMS;
HD:PHardDisk;
begin
with Border do
begin
SetFillStyle(SolidFill,GetPalColor(7));
Bar(A.x,A.y,B.x,B.y);
str(MemAvail:8,z);
SetColor(Red);
OutTextXY(A.x+10,A.y+25,'Hauptspeicher');
OutTextXY(A.x+10,A.y+100,'Expanded Memory');
OutTextXY(A.x+10,A.y+160,'Festplatte C');
SetColor(Blue);
OutTextXY(A.x+10,A.y+45,'Freier RAM (Heap) : '+z+' Byte');
str(MaxAvail:8,z);
OutTextXY(A.x+10,A.y+65,'Größter zusammenhängender');
OutTextXY(A.x+10,A.y+75,'freier Speicherblock : '+z+' Byte');
EMS:=new(PEMS, Init(Border));
str(EMS^.FreeMemory:8,z);
OutTextXY(A.x+10,A.y+120,'verfügbarer Speicher : '+z+' Byte');
str(EMS^.FreeMemory div 16384:8,z);
OutTextXY(A.x+10,A.y+140,'verfügbare Seiten : '+z+' Seiten');
dispose(EMS, Done);
HD:=new(PHardDisk, Init(Border));
str(HD^.FreeMemory:8,z);
OutTextXY(A.x+10,A.y+180,'verfügbare Plattenkapazität : '+z+' Byte');
dispose(HD, Done);
end;
end;
END.