Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Закраска области [D6, Win2k]

Поляничев Евгений © (2004-04-07 13:10:00)
как мне закрасить произвольную область canvas на форме???

MBo (2004-04-07 15:31:00) [1]
жми почаще F1, See Also и Group

Поляничев Евгений (2004-04-07 15:21:00) [2]
спасибо а как закрашивать квадратную область?

MBo (2004-04-07 15:10:00) [3]
В конце DeleteObject забыл для hr и hr2

MBo (2004-04-07 14:22:00) [4]
Да уж...

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 в данном случае не нужен.

Поляничев Евгений (2004-04-07 14:03:00) [5]
как ей пользоваться, координаты пишу x1,x2,y1,y2 а потом что?

MBo (2004-04-07 13:59:00) [6]
Что непонятно после чтения хелпа?

Поляничев Евгений (2004-04-07 13:51:00) [7]
я слабоват в графике
нужен пример создать область и ее закрасить

MBo (2004-04-07 13:39:00) [8]
CreateEllipticRgn и т.п. см. в хелпе Win SDK

Поляничев Евгений (2004-04-07 13:36:00) [9]
как его создать вот мне сейчас надо закрасать элипс и прямоугольник?

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

MBo (2004-04-07 13:27:00) [10]
Если у этой области есть граница определенного цвета, то FloodFill, иначе создать регион, SelectClipRgn и, скажем, FillRect

Наверх

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