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

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

← →
tga ©   (2002-11-11 13:59) [0]

НЕ раз видел круглые окошки, да и не только круглые. Подскажите где взять программу по созданию окон нестандартной формы. Одну такую я видел в действии - ей подаёшь файл с картинокй - а она создают полигон и может генирить файл формы для Delphi.

Заранее благодарен.

---

← →
MBo ©   (2002-11-11 14:21) [1]

Чтобы создать кривое окно, надо создать регион нужной формы и сделать SetWindowRgn
delphi.vitpc.com
пакет FormRgn А.Григорьева

---

← →
DimaK   (2002-11-11 22:48) [2]

Поищи в инете библиотеку FormRgn. Версия от 21.06.99 она как раз
предназначена для создания окон непрямоугольной формы. Вещь сильная, сам работаю, да и найти можно без проблем.

---

← →
VVVaaa   (2002-11-12 11:35) [3]

Посмотри у Torry, я сам от туда скачал много прог по нестандартным окнам

---

← →
pasha676   (2002-11-12 16:05) [4]

Есть стандартные API функции задающие форму окна. Их несколько. Пишется все без всяких компонент, примерно так
на креат формы

FormRgn:=CreateRoundRectRgn(0,0,380,260,50,50);
ElR:=CreateRectRgn(90,50,290,210);
CombineRgn(FormRgn,FormRgn,ElR,RGN_DIFF);
SetWindowRgn(Form1.Handle,FormRgn,True);

То есть создаються разные регионы (есть круги, квадраты, многоугольники - посмотри хельп), потом комбинируются, потом устанавливается регион (эта фигура) на форму. Усе. Компоненты нужно качать когда у тебя совсем запущенный случай (форма повторяет контуры Ивана Грозного убивающего своего сына :)).

---

← →
nick_vstu ©   (2002-11-14 10:53) [5]

>
> FormRgn:=CreateRoundRectRgn(0,0,380,260,50,50);
> ElR:=CreateRectRgn(90,50,290,210);
</I

var FormRgn,Elr:HRGN;
так, на всякий случай

---

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

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



Память: 0.46 MB
Время: 0.01 c