Форум: "Media";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизКак создать окно произвольной формы? Найти похожие ветки
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c