---|Ветка была без названия|---

← →
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]

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