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

Окна не Квадратной формы?   Найти похожие ветки 

← →
SGh ©   (2003-02-17 21:18) [0]

Товарищи, помогите, по зарез надо сделать окно с "дырками" ну как у Winampa Когда со скином, то если в скине дырка и по ней клацнуть мышей, клацается по окну за Winampom, или просто не квадратное а круглое, как это делается?
Заранее благодарен...


← →
Pat ©   (2003-02-17 22:14) [1]

SetWindowRgn()


← →
freeek10   (2003-02-17 23:25) [2]

Пример был на королевстве дельфи www.delphikingdom.com


← →
Diamond Cat ©   (2003-02-18 00:29) [3]

procedure TForm1.FormCreate(Sender: TObject);
var
RReg, Reg : HRGN;
begin
RReg := CreateEllipticRgn(4,30,54,78);
Reg := CreateEllipticRgn(19,44,39,64);
CombineRgn(RReg,RReg,Reg,RGN_DIFF);
SetWindowRgn(Handle, RReg, False);
end;
круглое окно с дырой посередине


← →
SGh ©   (2003-02-18 11:46) [4]

Спасибо всем кто отКЛИКнулся :)

2Diamond Cat
А не подскажешь как чтобы вообще произвольной формы, например сердца, или наложением ридженов друг на друга?


← →
Игорь Шевченко ©   (2003-02-18 12:30) [5]

SGh © (18.02.03 11:46)

Статья Антона Григорьева на www.delphikingdom.com


← →
DarkGreen ©   (2003-02-18 13:40) [6]

2 SGh © (18.02.03 11:46)

Diamond Cat © (18.02.03 00:29) тебе уже подсказал



procedure TForm1.FormCreate(Sender: TObject);
var
RReg, Reg : HRGN;
begin
RReg := CreateEllipticRgn(4,30,54,78);
Reg := CreateEllipticRgn(19,44,39,64);

CombineRgn(RReg,RReg,Reg,RGN_DIFF);

SetWindowRgn(Handle, RReg, False);
end;


← →
SGh ©   (2003-02-19 10:49) [7]

Спасибо всем теперь буду делать окна 128-угольными :)))

2 Игорь Шевченко

А у Андрея Григорьева, я нашел только про прозрачные окна, ты её имел ввиду? Я это тоже давно мечтал сделать, спасибо... :)


← →
Reindeer Moss Eater   (2003-02-19 12:20) [8]

Очень простой код, создающий неквадратное окно:
with TForm.Create(nil) do
try
ShowModal;
finally
Free;
end;


← →
Антон.   (2003-02-19 17:59) [9]

Удалено модератором
Примечание: Задай вопрос в своей ветке



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

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



Память: 0.46 MB
Время: 0.011 c
14-54890
sashas
2003-04-02 12:45
2003.04.17
Компоненты...


1-54687
Intell
2003-04-04 15:00
2003.04.17
Как обратиться к нескольким компонентам за раз?


3-54514
AlexandrN
2003-03-26 09:16
2003.04.17
Копирование иерархий(поддеревьев в дереве)


3-54475
softmaster
2003-03-25 18:26
2003.04.17
Проблема с записями...


14-54823
Sheng
2003-04-01 08:27
2003.04.17
Как размножить картинку ?




   Наверх