Menu

[observateur]

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

 

[FBUS]

о каких меню идет речь?

 

[observateur]

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

 

[FBUS]

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

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

 

[observateur]

что б изменился шрифт TMainMenu

 

[etc]

Самому рисовать через DrawItem.

 

[observateur]

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;

вот кое что нашел...но не красива выходить....

 

[etc]

Добавте ACanvas.FillRect(Arect); в MenuItemDrawItem в начале.
И что значит некрасиво?