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

Вниз

Формы без 3D. Нет обёмных кнопок.   Найти похожие ветки 

← →
Shrek   (2002-06-24 00:31) [0]

Привет Народ! Надо зделать так шоб главное меню программы было плоским, тоисть без 3D. Возможно ли такое в делфи вобще??

---

← →
Almaz   (2002-06-24 00:40) [1]

Можно. Установить MainMenu.OwnerDraw := True и самому отрисовывать элементы меню.

Удачи.

---

← →
Shrek   (2002-06-24 00:52) [2]

Это конешно хорошо но OwnerDraw недаст такого результата.
Меню всё равно на месте. Может есть маленикий примет. Please.

---

← →
Almaz   (2002-06-24 01:43) [3]

> 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;


Удачи.

---

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

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

Наверх

Память: 0.44 MB
Время: 0.03 c