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

解決

かんたろう  2006-11-22 23:03:59  No: 24015  IP: 192.*.*.*

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

編集 削除
えーとね  2006-11-23 06:16:29  No: 24016  IP: 192.*.*.*

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-23 18:23:16  No: 24017  IP: 192.*.*.*

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

編集 削除