Логотип

[izma]

Логотип

здравствуйте! нужна срочная помощь. вот лольный рисунок

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.

как сделать чтоб грани квадрата были также белыми как все линии?

 

[Vladimir_S]

как сделать чтоб грани квадрата были также белыми как все линии?

В команде
SetFillStyle(SolidFill,1);
заменить 1 на 15.

 

[izma]

В команде
SetFillStyle(SolidFill,1);
заменить 1 на 15.

он закрашивает квадрат полностью белым... надо чтоб синий остался

 

[izma]

может я не так его рисую? пробовал через rectangle - рисует как надо (белым), но закрасить синим не могу

 

[Vladimir_S]

может я не так его рисую? пробовал через rectangle - рисует как надо (белым), но закрасить синим не могу

А Вы сначала нарисуйте синий Bar, а после поверх Rectangle.

 

[izma]

благодарю