Menu

Тема в разделе "Delphi - Компоненты", создана пользователем observateur, 28 июн 2008.

  1. observateur

    observateur Гость

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

    FBUS Well-Known Member

    Регистрация:
    12 мар 2008
    Сообщения:
    57
    Симпатии:
    0
    о каких меню идет речь?
     
  3. observateur

    observateur Гость

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

    FBUS Well-Known Member

    Регистрация:
    12 мар 2008
    Сообщения:
    57
    Симпатии:
    0
    короче как я понял ты сам не знаешь чего хочешь.. меню бывают разные TMainMenu, TPopupMenu, тулбары наконец... я уже умалчиваю о дополнительных компонентах...
     
  5. observateur

    observateur Гость

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

    etc Гость

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

    observateur Гость

    Код (Text):
    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;
    вот кое что нашел...но не красива выходить....
     
  8. etc

    etc Гость

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

Поделиться этой страницей