因為小弟是最近才接觸BCB 所以問ㄉ問題會怪怪ㄉ請多包函 想請問各位大大 MainMenuㄉ字型沒辦法跟Label,Editㄉ字型一樣放大ㄇ 因為我找不到Font選項 麻煩大大ㄌ 謝謝^^

Ming Lin您好:    

引言: MainMenuㄉ字型沒辦法跟Label,Editㄉ字型一樣放大ㄇ

應該是沒有辦法吧,除非改寫元件,可參考 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23435 可是您看一下現有的視窗介面程式,MainMenu的Caption 好像都沒有改變字體大小吧,假如能變大看起來也蠻突兀的< > 僅供參考.. 順心< >

看來只剩改變元件一途 謝謝大大ㄌ

Ming Lin您好:  抱歉,小弟才疏學淺誤導您了... 請參考下面連結 < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37336">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37336 轉貼至avex大哥的範例 記得OwnerDraw要設定成true

void __fastcall TForm1::Item1DrawItem(TObject *Sender, TCanvas *ACanvas,
      TRect &ARect, bool Selected)
{
 ACanvas->Font->Size = 20; // 字型大小
 ACanvas->Font->Color = clRed;
 if(Selected)
 {
  ACanvas->Brush->Color = clHighlight;
 }
 ACanvas->FillRect(ARect);
 DrawText(ACanvas->Handle, dynamic_cast (Sender)->
 Caption.c_str(), -1, &ARect, DT_VCENTER | DT_LEFT |
 DT_SINGLELINE);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Item1MeasureItem(TObject *Sender, TCanvas *ACanvas,
      int &Width, int &Height)
{
 ACanvas->Font->Size = 20;
 ACanvas->Font->Color=clRed;
 String Text(dynamic_cast(Sender)->Caption);
 Width = ACanvas->TextWidth(Text);
 Height = ACanvas->TextHeight(Text);
}
//---------------------------------------------------------------------------

雖然事隔已久,但仍致上十二萬分歉意~~ ～我也是在學習的階段,回答的不好請您多多見諒與指教～ 發表人 - taishyang 於 2003/09/27 00:50:20