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

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

← →
Поляничев Евгений ©   (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 в данном случае не нужен.

---

← →
MBo ©   (2004-04-07 15:10) [8]

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

---

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

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

---

← →
MBo ©   (2004-04-07 15:31) [10]

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

---

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

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



Память: 0.47 MB
Время: 0.02 c