Скачать: CL | DM;

Рисование на 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+?

---

← →
clickmaker ©   (2006-10-03 09:40) [2]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c