здравствуйте! нужна срочная помощь. вот лольный рисунок
uses crt, graph;
var gd,gm:integer;
begin
gd:=detect;
initgraph(gd,gm, 'c:\tp7\bgi');
cleardevice;
{ekran**}
SetLineStyle(SolidLn,0,3);
SetFillStyle(SolidFill,1);
bar(350,200,650,450);
{krisha}
line(350,200,500,70);
line(650,200,500,70);
{okna}
rectangle(450,135,540,180);
line(495,135,495,180);
{klava}
line(350,450,300,560);
line(650,450,700,560);
line(300,560,700,560);
ReadKey;
closegraph;
end.
как сделать чтоб грани квадрата были также белыми как все линии?