Вниз
Скачать: 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.012 c
1-54554
LyzD
2003-04-06 17:21
2003.04.17
Работа я TreeView


1-54722
asdqwer
2003-04-05 07:42
2003.04.17
Символы шрифта


14-54870
RIMMER
2003-04-01 22:52
2003.04.17
В чем подвох?


1-54739
oleg_SYS
2003-04-02 22:57
2003.04.17
Файлы со смешанными данными


1-54551
Опус
2003-04-06 10:23
2003.04.17
Отчеты. Подскажите как поместить CheckBox или ...




   Наверх