Menu

  • Автор темы observateur
  • Дата начала
O

observateur

#1
У меня такой вопрос…прошу помоч…как я могу изменит шрифты меню в делфи приложениах..в Visual Studio очен легко и визуално…а как в делфи не знаю…Заранее благодарю….
 
O

observateur

#3
В собственных делфи меню...что б изменился толко меню моего форма
 
F

FBUS

#4
В собственных делфи меню...что б изменился толко меню моего форма
короче как я понял ты сам не знаешь чего хочешь.. меню бывают разные TMainMenu, TPopupMenu, тулбары наконец... я уже умалчиваю о дополнительных компонентах...
 
O

observateur

#7
Код:
procedure TForm1.MenuItemDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
var
s: string;
begin
ACanvas.Font.size:= 10;
ACanvas.Font.Style:= [fsBold];

s:= StringReplace(TMenuItem(Sender).Caption,'&','',[rfReplaceAll]);
ACanvas.TextOut(ARect.Left,ARect.Top,s);
end;


procedure TForm1.MenuItemMeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
var
s: string;
begin
ACanvas.Font.size:= 10;
ACanvas.Font.Style:= [fsBold];

s:= StringReplace(TMenuItem(Sender).Caption,'&','',[rfReplaceAll]);
Width:= ACanvas.TextWidth(s);
Height:= ACanvas.TextHeight(s);
end;
вот кое что нашел...но не красива выходить....
 
E
#8
Добавте ACanvas.FillRect(Arect); в MenuItemDrawItem в начале.
И что значит некрасиво?