PopupBoxのフォントサイズ

解決

エイチ 2023-10-11 23:42:43 No: 151183

前述のMoeさんのコンポーネントが凄く良さそうなので、使わせて頂きたいと思います。
ところで、PopupBoxのフォントサイズが非常に小さくて何とかしたいのですが、style設定が難しくて、ご教授賜りたく。

Moe 2023-10-12 11:16:08 No: 151184

コンポーネントを利用頂くのは全然問題ありません。元々mamさんから教えて頂いたコードですので。
ただ、少々バグがありましたので、一部修正しています。
Clearメソッドを実行すると例外が発生していましたので、clearメソッドをprotectedにして使用できない様にしています。
その代わりにclearExメソッドを作成し、ItemIndex := -1;して、itemsとitemsExを初期化しています。
さらに、TextExプロパティはpublishedにする必要はないので、publicなものにしています。

私も実はポップアップされた際のフォントサイズが気になっておりました。
回答になってはいない発言で申し訳ございません（汗）

AAAAA 2023-10-12 15:21:25 No: 151185

procedure TPopupBox.DoPopup;　内の procedure ShowPopupMenu;　で

      Item := TMenuItem.Create(Self);
      ..
      Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Size];
      Item.Font.Size := 20;

      でフォントサイズは変更可能

AAAAAさん 2023-10-12 18:43:21 No: 151186

有難うございます。
TPopupBoxと同様のソースにしないとならないので少し時間を要してしまいましたが、ご教授頂きました通り出来ました。
もう少しstyle設定のイロハを勉強します。

エイチ 2023-10-12 18:45:55 No: 151187

すみません
上の名前を間違えて入れてしまいました
大変申し訳ございません。