Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Логотип (http://www.tehnari.ru/f41/t59629/)

izma 10.11.2011 21:49

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

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 10.11.2011 22:50

Цитата:

Сообщение от izma (Сообщение 615582)
как сделать чтоб грани квадрата были также белыми как все линии?

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

izma 10.11.2011 23:01

Цитата:

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


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

izma 11.11.2011 00:00

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

Vladimir_S 11.11.2011 10:11

Вложений: 1
Цитата:

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

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

izma 12.11.2011 21:16

благодарю :)


Часовой пояс GMT +4, время: 14:14.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.