Popupmenuのフォントを変更するには？

解決

かんたろう 2006-11-23 08:03:59 No: 24015

popupmenuを使用していますが、字の大きさが問題になりました。
PopupmenuにはFont関係のプロパティは存在していません。
メニュー項目のFontを変更する方法がないでしょうか？

えーとね 2006-11-23 15:16:29 No: 24016

PopupMenu のOwnerDraw プロパティをTrue に設定。
メニューデザイナで項目のイベントを設定です。

[OnDrawItemイベント]
aCanvas.font.size := 20;
aCanvas.fillrect(aRect);
acanvas.textrect(aRect, arect.left+4, arect.top+2, TMenuItem(Sender).caption );

[OnMeasureItemイベント]
aCanvas.font.size := 20;
width := aCanvas.TextWidth(TMenuItem(Sender).caption) + 10;
height := aCanvas.TextHeight(TMenuItem(Sender).caption) + 4;

かんたろう 2006-11-24 03:23:16 No: 24017

えーとねさん、
提示していただいた内容で、思う様に出来ました。
ありがとうございました。