| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Формы без 3D. Нет обёмных кнопок. [D5, D6, Win95/98, Win2k, WinXP]
Shrek © (2002-06-24 00:31:00)Привет Народ! Надо зделать так шоб главное меню программы было плоским, тоисть без 3D. Возможно ли такое в делфи вобще??
Almaz (2002-06-24 01:43:00) [1]
> Shrek © (24.06.02 00:52)
> Это конешно хорошо но OwnerDraw недаст такого результата.
> Меню всё равно на месте. Может есть маленикий примет. Please.
Маленький пример:
1. Установите MainMenu.OwnerDraw := True;
2. Для каждого элемента горизонтального меню установите
OnDrawItem := DrawItem;
Текст метода DrawItem:
procedure TForm1.DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
if Selected then
begin
ACanvas.Brush.Color := clBlue;
ACanvas.Font.Color := clWhite;
ACanvas.TextRect(ARect, ARect.Left, ARect.Top, TMenuItem(Sender).Caption);
end else
begin
ACanvas.Brush.Color := clMenu;
ACanvas.Font.Color := clMenuText;
ACanvas.TextRect(ARect, ARect.Left, ARect.Top, TMenuItem(Sender).Caption);
end;
end;
Удачи.
Shrek (2002-06-24 00:52:00) [2]Это конешно хорошо но OwnerDraw недасттакого результата.
Меню всё равно на месте. Может есть маленикий примет. Please.
Almaz (2002-06-24 00:40:00) [3]Можно. Установить MainMenu.OwnerDraw := True и самому отрисовывать элементы меню.
Удачи.
| |
