請教高手們! Delphi的TMainMenu原件的字型可自訂或變更嗎? 何明昌

------
何明昌

TMainMenu.OwnerDraw := True; 然後在 TMainMenu 的各 TMenuItem 的 OnDrawItem 時去變更字型/顏色 參考: http://delphi.ktop.com.tw/topic.php?topic_id=26004 發表人 - hagar 於 2004/04/23 11:35:46

HI!hagar: 謝謝您!回應我的問題!再請問在D7版本也可以做到嗎? 何明昌

------
何明昌

可以的, 試試吧!

MainMenu1.OwnerDraw := True; // 記得先設這個屬性    procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  ACanvas.Font.Name := '細明體'; // 設定字型
  ACanvas.TextOut(ARect.Left, ARect.Top, 'menu item 的 caption');  // 畫出 menu item 的 caption 
end;

HI!hagar: 謝謝您指點但是我是始用動態MenuItem,要如何呼叫NewItemDrawItem的 Events 何明昌

------
何明昌

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus;    type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure N1DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    // OnDrawItem event 
procedure TForm1.N1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
  ACanvas.Font.Name := '細明體';
  ACanvas.Font.Color := clRed;
  ACanvas.Font.Size := 18;
  ACanvas.TextOut(ARect.Left, ARect.Top, TMenuItem(Sender).Caption);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  mi: TMenuItem;
begin
  mi := TMenuItem.Create(self);
  mi.Caption := 'MenuItem Caption 1';
  mi.OnDrawItem := N1DrawItem; // 指定 MenuItem 的 OnDrawItem Event
  MainMenu1.Items.Add(mi);
end;    end.

發表人 - hagar 於 2004/04/29 09:55:08

Font.Size 定太大 TMenuItem(Sender).Caption 無法完成顯示(尾部被截斷) 何明昌

------
何明昌

引言: Font.Size 定太大 TMenuItem(Sender).Caption 無法完成顯示(尾部被截斷) 何明昌

在 TMenuItem 的 OnMeasureItem Event 中, 有 Height, Width 兩參數 改成你要的大小試試.

hagar版主:您太利害了!謝謝你 何明昌

------
何明昌