Полная версия этой страницы: Menu
У меня такой вопрос…прошу помоч…как я могу изменит шрифты меню в делфи приложениах..в Visual Studio очен легко и визуално…а как в делфи не знаю…Заранее благодарю….
о каких меню идет речь?
В собственных делфи меню...что б изменился толко меню моего форма
Цитата(observateur @ 2:07:2008, 09:36 ) 
В собственных делфи меню...что б изменился толко меню моего форма
короче как я понял ты сам не знаешь чего хочешь.. меню бывают разные TMainMenu, TPopupMenu, тулбары наконец... я уже умалчиваю о дополнительных компонентах...
что б изменился шрифт TMainMenu
Самому рисовать через DrawItem.
Код
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;
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;
вот кое что нашел...но не красива выходить....
Добавте ACanvas.FillRect(Arect); в MenuItemDrawItem в начале.
И что значит некрасиво?
И что значит некрасиво?
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.