Вниз
Скачать: CL | DM;

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

Да


 
SamBrook ©   (2006-10-05 22:48) [6]


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

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


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

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



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

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



Память: 0.46 MB
Время: 0.012 c
1-1177328322
Ганна Юхимівна
2007-04-23 15:38
2007.06.24
Операции с данными класса - как организовать ?


1-1177748673
bss
2007-04-28 12:24
2007.06.24
Как сменить шрифт у контрола, который нe доступен (Enabled false)


15-1180462678
TStas
2007-05-29 22:17
2007.06.24
Нужен скрипт пересылки на php


2-1180783872
{RASkov}
2007-06-02 15:31
2007.06.24
ScanLine?


2-1180337637
Rimd
2007-05-28 11:33
2007.06.24
TDownloadUrl и его Event




   Наверх