Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!uflorida!stat!sun13!fsu!prism!gt3070b
From: gt3070b@prism.gatech.EDU (Jeff Watkins)
Newsgroups: comp.lang.pascal
Subject: Units -- Desktop
Summary: Constants and standard values
Message-ID: <9919@hydra.gatech.EDU>
Date: 30 May 90 01:13:09 GMT
References: <9918@hydra.gatech.EDU>
Organization: Georgia Institute of Technology
Lines: 37

unit desktop;
interface
type
	VideoType=			(VGA132x60,VGA80x60,VGA80x25);
	AttributeNames=(
		AlertColor,MenuBar,FirstLetter,Background,
		InactiveText,MenuText,SelectColor,
		DeskText,ReportColor,DialogueColor,
		WindowColor,ScrollColor);
var
	lefty		: boolean;
	ta		: array[AttributeNames] of byte;
	MaxWidth	: word;
        MaxHeight	: word;
	VidBase		: word;



implementation
	Lefty:=false;
	ta[MenuBar]:=$38;
	ta[FirstLetter]:=$30;
	ta[BackGround]:=$7;
	ta[InactiveText]:=$18;
	ta[MenuText]:=$17;
	ta[DeskText]:=9;
	ta[ReportColor]:=$30;
	ta[DialogueColor]:=$20;
	ta[WindowColor]:=$1F;
	ta[ScrollColor]:=$30;
	MaxWidth:=80;
	MaxHeight:=25;
	VidBase:=$b800;
end.
-- 
Jeff Watkins  gt3070b@prism.gatech.edu
"All opinions are mine... so don't even think of keeping some to yourself!"