Рисование на Image с использованием GDI+

← →
Tab (2006-10-05 20:49) [0]

рисую на Image через GDI+
код:

procedure TForm1.FormPaint(Sender: TObject);
var
graphics : TGPGraphics;
pen: TGPPen;
begin
graphics := TGPGraphics.Create(Image1.Canvas.Handle);
pen:= TGPPen.Create(MakeColor(255, 0, 0, 255));
graphics.SetSmoothingMode(SmoothingModeAntiAlias);
graphics.DrawLine(pen, 0, 0, 200, 100);

graphics.Free;
pen.Free;
end;

Если рисую на Image линия получается не сглаженная, а если рисовать на форме то все ок.
Как быть?

← →
SamBrook © (2006-10-05 21:22) [1]

> Если рисую на Image линия получается не сглаженная, а если
> рисовать на форме то все ок.
> Как быть?

Не пользоваться tImage (можно заменить на tPaintBox)

← →
Tab (2006-10-05 21:36) [2]

хм, помогло, спасибо. А с чем это связано? :)

← →
SamBrook © (2006-10-05 22:01) [3]

> хм, помогло, спасибо. А с чем это связано? :)

с тем, что у tImage нет собственной канвы.

← →
Tab (2006-10-05 22:13) [4]

Т.е. Image это контейнер для рисунков. а PaintBox именно область для рисования?

← →
Pent (2006-10-05 22:48) [5]

Да

> Т.е. Image это контейнер для рисунков. а PaintBox именно
> область для рисования?

Да, но не в этом суть проблемы, а в том, что tImage использует канву битмапа, к которой привязано растровое изображение.

← →
Tab (2006-10-06 06:12) [7]

Еще раз спасибо !

Рисование на Image с использованием GDI+ Найти похожие ветки