Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2010, 21:31   #1
Auron
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 11
По умолчанию Canvas

Доброго времени суток.Вопрос вот в чем. Мне нужно рисовать треугольник линиями по заданным мною координатам ранее в Edit.пробовал рисовать, но получается лишь УГ. Как лучше сделать это.Заранее благодарен за помощь...
Auron вне форума Ответить с цитированием
Старый 12.12.2010, 21:39   #2
Selestis
Форумчанин
 
Аватар для Selestis
 
Регистрация: 21.01.2009
Сообщений: 719
По умолчанию

Код в студию
Изобретатель велосипедов
Selestis вне форума Ответить с цитированием
Старый 12.12.2010, 21:41   #3
Auron
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 11
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,b1,b2,c1,c2 : integer;
begin
a1 := 0;
a2 := 0;
b1 := 0;
b2 := 0;
c1 := 0;
c2 := 0;

a1 := StrToInt(Edit1.Text);
a2 := StrToInt(Edit2.Text);

b1 := StrToInt(Edit3.Text);
b2 := StrToInt(Edit4.Text);

c1 := StrToInt(Edit5.Text);
c2 := StrToInt(Edit6.Text);

Canvas.LineTo(a1,a2);
Canvas.LineTo(b1,b2);
Canvas.MoveTo(a2,b2);
Canvas.LineTo(c1,c2);

end;

Последний раз редактировалось Stilet; 13.12.2010 в 17:27.
Auron вне форума Ответить с цитированием
Старый 12.12.2010, 21:43   #4
Selestis
Форумчанин
 
Аватар для Selestis
 
Регистрация: 21.01.2009
Сообщений: 719
По умолчанию

Код:
Canvas.MoveTo(a1,a2);
Canvas.LineTo(b1,b2);
Canvas.LineTo(c1,c2);
Canvas.LineTo(a1,a2);
Кстати, делать это присвоение не нужно:
Цитата:
a1 := 0;
a2 := 0;
b1 := 0;
b2 := 0;
c1 := 0;
c2 := 0;
И у нас тут на форуме есть тег code (кнопка "#" в отправке сообщения)
Изобретатель велосипедов
Selestis вне форума Ответить с цитированием
Старый 12.12.2010, 21:46   #5
Auron
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 11
По умолчанию

Цитата:
Сообщение от Selestis Посмотреть сообщение
И у нас тут на форуме есть тег code (кнопка "#" в отправке сообщения)
спасибо.Так в чем косяк?
Auron вне форума Ответить с цитированием
Старый 12.12.2010, 21:48   #6
Selestis
Форумчанин
 
Аватар для Selestis
 
Регистрация: 21.01.2009
Сообщений: 719
По умолчанию

Код принято заключать в этот тег. ТО есть открывается тег - ваш код - закрывается тег. Как у меня в сообщении выделено рамкой. За это просто штрафы раздают ;-)
Мой код работает?
Изобретатель велосипедов
Selestis вне форума Ответить с цитированием
Старый 12.12.2010, 21:52   #7
Auron
Пользователь
 
Регистрация: 19.10.2010
Сообщений: 11
По умолчанию

да спасибо....

и еще вопрос. Мне нужно в треугольнике брать точки и складывая их координаты закрашивать цветом RGB?как это лучше реализовать?

Последний раз редактировалось Stilet; 13.12.2010 в 17:28.
Auron вне форума Ответить с цитированием
Старый 13.12.2010, 17:28   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Тоесть. Поясни.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.12.2010, 23:14   #9
Unixsoid
 
Регистрация: 12.12.2010
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Auron Посмотреть сообщение
и еще вопрос. Мне нужно в треугольнике брать точки и складывая их координаты закрашивать цветом RGB?как это лучше реализовать?
Я так понимаю нужно просто закрасить треугольник? Если да, то проще через процедуру FloodFill
Например вот так:
Код:
procedure TForm1.FormClick(Sender: TObject);
begin
canvas.Brush.Color:=clred;
canvas.FloodFill(101,101,0,fsborder);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.rectangle(100,100,200,200);
end;
Подробней можно почитать здесь
Unixsoid вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
3D canvas konikovskit Мультимедиа в Delphi 1 06.09.2010 22:02
Canvas Servo Мультимедиа в Delphi 0 22.06.2010 18:58
Canvas ZET78 C++ Builder 5 21.05.2010 20:26
Canvas Jai Общие вопросы Delphi 7 15.05.2009 13:11