PopupBoxのフォントサイズ

解決

エイチ 2023-10-11 14:42:43 No: 151183 IP: [192.*.*.*]

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

Moe 2023-10-12 02:16:08 No: 151184 IP: [192.*.*.*]

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

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

編集削除

AAAAA 2023-10-12 06:21:25 No: 151185 IP: [192.*.*.*]

procedure TPopupBox.DoPopup;　内の procedure ShowPopupMenu;　で

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

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

編集削除

AAAAAさん 2023-10-12 09:43:21 No: 151186 IP: [192.*.*.*]

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

編集削除

エイチ 2023-10-12 09:45:55 No: 151187 IP: [192.*.*.*]

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

編集削除