Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 19.04.2011, 15:06   #1
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию линия

вообщем есть функция рисующая линию
delphi Код:
procedure TLinePainter.PaintLine; var   i,path:integer;   v:real;   x,y:integer;   begin i:=abs(Start.X - Finish.X); path:=abs(Start.Y - Finish.Y); if path<i then path:=i; if path=0 then exit; for i:=0 to path do begin v:=(i / path); x:=Start.x + Round((Finish.x - Start.x) * v); y:=Start.y + Round((Finish.y - Start.y) * v); Form.Scene.Canvas.Pixels[x,y]:=clBlack; end; end;

первая линия на рисунке - нарисованая этой функцией, а вторая - так как надо нарисовать.
проще гря надо рисовать линию которая не может по-диагонали двигатся
Миниатюры
Нажмите на изображение для увеличения
Название: линия.JPG
Просмотров: 21
Размер:	12.5 Кб
ID:	2021  
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
 

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!