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

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

Наверх




Память: 0.48 MB
Время: 0.015 c
8-40118
Ihor
2002-01-31 16:40
2002.06.13
Быстрый доступ до цвета в TBitmap


6-40135
BugMaker
2002-03-28 18:47
2002.06.13
RenameFile (Local>Nowell)


1-40015
PTE
2002-06-03 18:20
2002.06.13
подстановка значения


1-40084
relaxoid
2002-06-02 00:37
2002.06.13
Подсветка SQL


8-40126
Шурик
2002-01-29 11:14
2002.06.13
Работа со звуком на низком уровне