Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.10.05;
Скачать: CL | DM;

Вниз

canvas под углом   Найти похожие ветки 

 
dar   (2008-08-26 23:29) [0]

рисовку линии делаю так
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Pen.Style:=psSolid;
Canvas.MoveTo(10,20);
Canvas.LineTo(200,80);
но чтоб нарисовать линию под нужным углом приходиться пересчитывать координаты, а нет способа типа Canvas.MoveTo(10,20,25,100); где последнии цифры угол поворота линии и длинна ее?


 
Deltas ©   (2008-08-27 01:47) [1]

Твоя задача называется перевести координаты полярной системы координат в координаты декартовой системы. Напиши соответсвующую процедуру, это не сложно.


 
Deltas ©   (2008-08-27 01:49) [2]

Если конечно знаешь, что такое sin и cos.)



Страницы: 1 вся ветка

Текущий архив: 2008.10.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
2-1219904156
Mamed
2008-08-28 10:15
2008.10.05
Waitforsingelobject


1-1198856107
Max
2007-12-28 18:35
2008.10.05
Подсказка...


2-1219716327
Abcdef123
2008-08-26 06:05
2008.10.05
Как заполнить список TDBComboBox.Items данными из DataSet?


2-1219848090
fokas
2008-08-27 18:41
2008.10.05
Передача управление стартовой формой процедурам модуля


2-1219020255
demon
2008-08-18 04:44
2008.10.05
Конвертирование bmp в ico