только если рисовать самому:
| Код |
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
MainMenu1->OwnerDraw = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1DrawItem(TObject *Sender, TCanvas *ACanvas,
TRect &ARect, bool Selected)
{
if(Selected)
{
ACanvas->Brush->Color = clBlack;
ACanvas->Font->Color = clWhite;
}
else
{
ACanvas->Brush->Color = clBtnFace;
ACanvas->Font->Color = clBlack;
}
ACanvas->FillRect(ARect);
ACanvas->Font->Name = "Arial";
ACanvas->Font->Size = 9;
ACanvas->TextRect(ARect, ARect.Left + 3, ARect.Top + 3, "Open");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1MeasureItem(TObject *Sender, TCanvas *ACanvas,
int &Width, int &Height)
{
Width = 100;
Height = 20;
}
//---------------------------------------------------------------------------
|
|
И как следствие, если можно, то нужно и высоту его изменить, т.е. если шрифт больше то он же может и не влезть...