Форма

← →
Свой (2002-06-01 02:38) [0]

Прошу прошения но все таки!!!
Мне ну наверно нужен компонент который делает окна как я хочу, ну типа как у годзилы, ну т.е. любой формы со всеми там пораметрами, и все такое посоветуйте!!!
Спасибо !!!

← →
KaPaT (2002-06-01 02:43) [1]

А разве такие есть???
Сам слепи такие окна...там несложно...немного фантазии =))

← →
Свой (2002-06-01 03:16) [2]

Ну вроде да есть формрег что то было но на 5 делфе ни идет а мож че не хватает там!!!
Ну впринципе да но все таки хочется же упростить себе жизнь !!

← →
Anatoly Podgoretsky (2002-06-01 08:29) [3]

KaPaT © (01.06.02 02:43)
есть

← →
Blacki (2002-06-01 12:14) [4]

Ну можешь вот так сделать:
создай картинку rgn.bmp, где чёрным цветом пометь те места формы, которые должны быть дырявые, и напиши такой код:
function BitmapToRegion(Bitmap:TBitMap;TransColor:Tcolor):HRGN;
var
X,Y:integer;
XStart:integer;
begin
result:=0;
with Bitmap do
for Y:=0 to Height-1 do begin
x:=0;
while X<Width do begin
//Пропускаем прозрачные точки
while (X<Width) and (Canvas.Pixels[X,Y]=TransColor) do inc(X);
if X>=Width then Break;
XStart:=X;
//Пропускаем непрозрачные точки
while (X<Width) and (Canvas.Pixels[X,Y]<>TransColor) do inc(X);
//Создаём новый регион и добавляем его к региону всей картинки
if Result=0 then Result:=CreateRectRgn(XStart,Y,X,Y+1)
else CombineRgn(Result,Result,CreateRectRgn(XStart,Y,X,Y+1),RGN_OR);
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var temp:tbitmap;
begin
temp:=tbitmap.Create;
temp.LoadFromFile("rgn.bmp");
setwindowrgn(form1.Handle,BitmapToRegion(temp,clBlack),true);
temp.Free;
end;

← →
Sergey B.A. (2002-06-01 18:25) [5]

В королевстве Delphi поищи logomaker.

← →
Свой (2002-06-02 17:01) [6]

спасибо Всем!!! начал разбираться!!!

← →
Energy (2002-06-03 07:00) [7]

Если надо могу прислать статейку по этому поводу: простое окно неправильной формы, сложные окна, окна из картинок.
И давно видел такой компонент который позволяет рисовать окна произвольной формы.

← →
bpv (2002-06-03 09:42) [8]

есть набор компонентов 1stClass компании Wolf2Wolf

Форма Найти похожие ветки