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

---|Ветка была без названия|---   Найти похожие ветки 

← →
acsoft ©   (2003-07-04 08:54) [0]

Нужно было сделать форму нестандартной формы. Взял покрасил её в clLime и процедуру подписал:

procedure clearlime;
var
i,j:integer;
rgn3:hrgn;
begin
rgn1:=createrectrgn(0,0,1,1);
for i:=0 to form1.width do begin
for j:=0 to form1.Height do begin
if form1.Canvas.Pixels[i,j]<>clLime then begin
rgn3:=createrectrgn(i,j,i+1,j+1);
combinergn(rgn1,rgn1,rgn3,RGN_or);
end;
end;
end;
end;

Можно проще?

---

← →
Axis_of_Evil ©   (2003-07-04 09:03) [1]

ScanLine
построчная, а не попиксельная Rgn_зация

---

← →
acsoft ©   (2003-07-05 08:14) [2]

Даже такое есть. Спасибо.

---

← →
Diamond Dog ©   (2003-07-05 19:03) [3]

Используй компоненты Variant Led Studio? там есть все необходимое для украшательства форм и создания форм произвольного вида.

---

← →
Gorlum   (2003-07-10 15:12) [4]

Diamond Dog © (05.07.03 19:03)
Я, конечно, поздновато, но ссылочку не дашь?

---

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

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



Память: 0.45 MB
Время: 0.014 c