DrawLine(Point(x1,y1), Point(x2,y2), pmCopy);
procedure TForm1.DrawLine(TopLeft, BottomRight: TPoint; AMode: TPenMode);
begin
with Image.Canvas do
begin
Pen.Mode := AMode;
Image.Canvas.MoveTo(TopLeft.X, TopLeft.Y);
Image.Canvas.LineTo(BottomRight.X, BottomRight.Y);
end;
end;
Рисование линий в DXDraw
У меня вопрос: как на компоненте DXDraw рисовать линии (зная координаты точек x1, y1 и x2, y2)?? Желательно разными цветами.
Спасибо за ответы:)
Посмотри здесь:
http://delphilesson.on.ufanet.ru/rualX.htm.
Только объясни мне, тебе надо только линии рисовать? Тогда зачем тебе DXDraw? И в любом случае, простую (в том числе разноцветную и узорную) линию можно нарисовать просто на Canvas'е любого компонента.
Код:
проблемма в другом: мне нужно использовать DXDraw для того чтобы рисовать спрайты. и поверх них по идее должны быть линии. короче так надо.
а за ссылку спасибо, попробую.