Закраска области

← →
Поляничев Евгений © (2004-04-07 13:10) [0]

как мне закрасить произвольную область canvas на форме???

← →
MBo © (2004-04-07 13:27) [1]

Если у этой области есть граница определенного цвета, то FloodFill, иначе создать регион, SelectClipRgn и, скажем, FillRect

← →
Поляничев Евгений © (2004-04-07 13:36) [2]

как его создать вот мне сейчас надо закрасать элипс и прямоугольник?

пример можшь кинуть?

← →
MBo © (2004-04-07 13:39) [3]

CreateEllipticRgn и т.п. см. в хелпе Win SDK

← →
Поляничев Евгений © (2004-04-07 13:51) [4]

я слабоват в графике
нужен пример создать область и ее закрасить

← →
MBo © (2004-04-07 13:59) [5]

Что непонятно после чтения хелпа?

← →
Поляничев Евгений © (2004-04-07 14:03) [6]

как ей пользоваться, координаты пишу x1,x2,y1,y2 а потом что?

← →
MBo © (2004-04-07 14:22) [7]

Да уж...

procedure TForm1.Button1Click(Sender: TObject);
var
hr,hr2:HRGN;
begin
hr:=CreateEllipticRgn(100,100,300,200);
Canvas.Brush.Color:=clRed;
FillRgn(Canvas.Handle,hr,Canvas.Brush.Handle);
hr2:=CreateEllipticRgn(150,150,350,250);
Canvas.Brush.Color:=clBlue;
FillRgn(Canvas.Handle,hr2,Canvas.Brush.Handle);
CombineRgn(hr,hr,hr2,RGN_AND);
Canvas.Brush.Color:=clLime;
FillRgn(Canvas.Handle,hr,Canvas.Brush.Handle);
end;

SelectClipRgn в данном случае не нужен.

В конце DeleteObject забыл для hr и hr2

спасибо а как закрашивать квадратную область?

жми почаще F1, See Also и Group

Закраска области Найти похожие ветки