| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Tab ©   (2006-10-02 11:53:00) 

Пытаюсь рисовать на обычном 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;

---

clickmaker   (2006-10-03 09:40:00) [1]

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

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

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

---

Tab   (2006-10-03 06:26:00) [2]

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

---

Наверх