Текущий архив: 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.47 MB
Время: 0.011 c
