[comp.lang.pascal] Units -- Desktop

gt3070b@prism.gatech.EDU (Jeff Watkins) (05/30/90)

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!"