Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.06.17;
Скачать: 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 вся ветка

Текущий архив: 2007.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
2-1180394288
vasIZmax
2007-05-29 03:18
2007.06.17
Как нарисовать пружину?))


6-1164180002
jorsand
2006-11-22 10:20
2007.06.17
Подскажите как получить доступ к сетевому ресурсу


15-1179715384
Slider007
2007-05-21 06:43
2007.06.17
С днем рождения ! 19 мая


15-1179861925
abajun
2007-05-22 23:25
2007.06.17
фантастический рассказ


1-1176961998
Slider007
2007-04-19 09:53
2007.06.17
Возвращение результата формы (не ModalResult)