Вниз
Скачать: CL | DM;

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

← →
Свой ©   (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



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

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



Память: 0.46 MB
Время: 0.009 c
1-39983
kserg@ukr.net
2002-06-03 11:24
2002.06.13
TStringGrid - как организовать перенос значения ячейки?


14-40162
Феликс
2002-05-10 22:52
2002.06.13
А у мастеров Делфи есть свой баннер?


8-40118
Ihor
2002-01-31 16:40
2002.06.13
Быстрый доступ до цвета в TBitmap


6-40140
mikki
2002-03-30 10:19
2002.06.13
ServerSocket, ClientSocket & Proxi


6-40130
Victor
2002-04-04 07:37
2002.06.13
Ping




   Наверх