Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

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

 
kle[z]a ©   (2004-09-15 01:08) [0]

Как сделать ромбообразную форму,с тремя кнопками?
....т.е. первая слева,вторая справа, а третья в низу в виде треугольника!
P.S.... Если это возможно то просьба написать примерный код.


 
][ncognito   (2004-09-15 01:39) [1]

в дельфи 6 и выше, в свойствах главной, формы есть св-во TransparentColor и TransparentColorValue. Думаю, чем они занимаются и так ясно.
Теперь при помощи компонентов типа TShape или TImage+*.bmp можно делать приложение самой извращённой формы :))
Но, вроде, эта штука не работает, если приложение запустить в Win 9.x. В ХР пашет отменно.

Есть способ более надёжный, но и более нудный:

procedure TForm1.FormCreate(Sender: TObject);
var
 WR1, WR2, WR3 : Integer;
 T, D, M : array[1..6] of TPoint;
begin
T[1].X:=30-1; T[1].Y:=20; T[2].X:=50-1; T[2].Y:=0; T[3].X:=150; T[3].Y:=0; T[4].X:=170; T[4].Y:=20; T[5].X:=170; T[5].Y:=40; T[6].X:=30; T[6].Y:=40;
M[1].X:=0; M[1].Y:=20; M[2].X:=200; M[2].Y:=20; M[3].X:=200; M[3].Y:=230; M[4].X:=0; M[4].Y:=230;
D[1].X:=30; D[1].Y:=230; D[2].X:=50; D[2].Y:=210; D[3].X:=150; D[3].Y:=210; D[4].X:=170; D[4].Y:=230; D[5].X:=150; D[5].Y:=250; D[6].X:=50; D[6].Y:=250;
WR1:=CreatePolygonRgn(M,4,Alternate); WR2:=CreatePolygonRgn(T,6,Alternate); WR3:=CreatePolygonRgn(D,6,Alternate);
CombineRgn(WR1,WR1,WR2,rgn_or); CombineRgn(WR1,WR1,WR3,rgn_or);
SetWindowRgn(Handle,WR1,true);
end;


 
][ncognito   (2004-09-15 01:40) [2]

Это что касается формы. Кнопки можно резать с помощью второго способа + можно извратится с TImage



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

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
4-1093523901
devMaster
2004-08-26 16:38
2004.10.03
как подменить WM_TIME для определенного процесса?


6-1087309655
Shade
2004-06-15 18:27
2004.10.03
Передача / Приём файлов при помощи модема (свой Hyperterminal)


14-1095051926
YurikGL
2004-09-13 09:05
2004.10.03
Правила эксплуатации ЭВМ


6-1090973055
Лев Ландау
2004-07-28 04:04
2004.10.03
Как вытащить текущее значение URL из TWebBrowser-a?


1-1095353131
UserUserov
2004-09-16 20:45
2004.10.03
Постоянные программы