Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.24;
Скачать: 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 вся ветка

Текущий архив: 2003.07.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
6-78032
zhe
2003-05-16 03:34
2003.07.24
MAPI


1-77892
lex7
2003-07-14 11:08
2003.07.24
А как зарегистрировать в компоненте новое сообщение?


1-77888
KPP
2003-07-14 09:55
2003.07.24
Как наиболее быстро сортировать файлы папки по имени, дате, и т.д


3-77805
Aiw
2003-07-03 12:49
2003.07.24
Как создать и подключить таблицу FoxPro?


1-77946
Erik
2003-07-10 16:30
2003.07.24
В чем отличия CallBack для DCOM и Borland Socket Server?