Непрямоугольная форма
Знаю, вопрос далеко не новый, знаю, что нужно использовать функции вроде CreateElipticRgn...
Толькоа как?! В дельфи я знаю, как сделать, а в билдере чё-то не получается!
И ещё вопрос туда же:
Как сделать не просто НЕПРЯМОУГОЛЬНУЮ форму, а форму, зависящую от скина, как помощники в MS Word 2000?
Толькоа как?! В дельфи я знаю, как сделать, а в билдере чё-то не получается!
И ещё вопрос туда же:
Как сделать не просто НЕПРЯМОУГОЛЬНУЮ форму, а форму, зависящую от скина, как помощники в MS Word 2000?
Вот держи как это делал я
//форма телефона
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Region1 = CreateEllipticRgn(0,20,282,100);
Region2 = CreateRectRgn(0,60,282,440);
Region3 = CreateEllipticRgn(0,410,282,470);
Region4 = CreateRectRgn(256,0,282,70);
CombineRgn(Region1,Region1,Region4,RGN_OR );
CombineRgn(Region1,Region1,Region2,RGN_OR );
CombineRgn(Region1,Region1,Region3,RGN_OR );
SetWindowRgn(Form1->Handle,Region1,TRUE);
}
Андрей
//форма телефона
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Region1 = CreateEllipticRgn(0,20,282,100);
Region2 = CreateRectRgn(0,60,282,440);
Region3 = CreateEllipticRgn(0,410,282,470);
Region4 = CreateRectRgn(256,0,282,70);
CombineRgn(Region1,Region1,Region4,RGN_OR );
CombineRgn(Region1,Region1,Region2,RGN_OR );
CombineRgn(Region1,Region1,Region3,RGN_OR );
SetWindowRgn(Form1->Handle,Region1,TRUE);
}
Андрей
Спасибо. Но вот другая проблема возникла:
какой тип у пременных Region1, Region2 и т.д.?!
какой тип у пременных Region1, Region2 и т.д.?!
HRGN Region1; //создание окна Reg 1-4
HRGN Region2;
HRGN Region3;
HRGN Region4;
HRGN Region2;
HRGN Region3;
HRGN Region4;
HRGN Region1; //создание окна Reg 1-4
HRGN Region2;
HRGN Region3;
HRGN Region4;
HRGN Region2;
HRGN Region3;
HRGN Region4;
Чего-то этот код в 6-м Builder'е не работает. Не прокатывает SetWindowRgn c ошибкой "invalid window handle". А в 5-м - все нормально. Кто-нибудь знает в чем дело? О том, что Builder6 - отстой, я и сам знаю.