Рисование на Image с помощью gdi+

← →
Tab (2006-10-02 11:53) [0]

Пытаюсь рисовать на обычном Image с помощью gdi+
что делаю не так?

var
Form1: TForm1;
graphics : TGPGraphics;
Rect: TGPRect;
Pen: TGPPen;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
graphics := TGPGraphics.Create(Form1.Canvas.Handle );
pen:= TGPPen.Create(MakeColor(255, 0, 0, 255));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
graphics.Free;
pen.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
graphics.DrawLine(pen, 0, 0, 200, 100);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
graphics.DrawLine(pen, 0, 0, 200, 100);
end;

← →
Tab (2006-10-03 06:26) [1]

неужели никто не рисует на gdi+?

> что делаю не так?

подозреваю, что
graphics := TGPGraphics.Create(Form1.Canvas.Handle );

надо вызывать в Formpaint. Потому как Canvas.Handle - вещь капризная и может меняться от перерисовки к перерерисовке

Рисование на Image с помощью gdi+ Найти похожие ветки