TStringGridのTPopupColumnの文字サイズの変更 (ID:152141)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 Delphi12.0のFMXでアプリを開発しようと思っていますが、困った点がありまして質問させて頂きます。 TStringGridでTPopupColumnを使用しなくてはならないのですが、文字サイズがどうしてもデフォルトのままで変更が効きません。 ChatGPTと何度かやり取りしまして（※結構動かないコードを提示されますね）、最終的に出されたコードは次の通りなのですが、これでも反映されない感じです。 何かヒントを頂けますと幸いです。 ＜ChatGPTから出されたコード＞ const COL_POPUP = 0; // 対象の TPopupColumn の列インデックス FONT_SIZE = 16; // フォントサイズ ITEM_HEIGHT = 28; // ドロップダウンのアイテム高さ procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); var PB : TPopupBox; PC : TPopupColumn; CurText: string; begin if Column.Index <> COL_POPUP then Exit; PC := Column as TPopupColumn; PB := TPopupBox.Create(StringGrid1); PB.Stored := False; // スタイルのサイズ上書きを許可（サイズはスタイルに従わない） PB.StyledSettings := PB.StyledSettings - [TStyledSetting.Size]; // 選択肢を列の Items からコピー PB.Items.Assign(PC.Items); // イベント（★通常のメソッドを割り当てる） PB.OnApplyStyleLookup := PopupBoxApplyStyle; // ドロップダウン/表示部の見た目調整 // 現在セルの値で初期選択を合わせる CurText := StringGrid1.Cells[Column.Index, StringGrid1.Row]; PB.ItemIndex := PB.Items.IndexOf(CurText); Control := PB; end; procedure TForm1.PopupBoxApplyStyle(Sender: TObject); var PB : TPopupBox; Txt: TText; LB : TListBox; i : Integer; It : TListBoxItem; ItText: TText; begin PB := TPopupBox(Sender); // セルに見えている文字（'text' リソース）のフォント Txt := PB.FindStyleResource('text') as TText; if Txt <> nil then Txt.Font.Size := FONT_SIZE; // ドロップダウンの ListBox と各アイテムのフォント・高さ LB := PB.FindStyleResource('listbox') as TListBox; if LB <> nil then begin LB.ItemHeight := ITEM_HEIGHT; for i := 0 to LB.Count - 1 do begin It := LB.ItemByIndex(i) as TListBoxItem; if It <> nil then begin ItText := It.FindStyleResource('text') as TText; if ItText <> nil then ItText.Font.Size := FONT_SIZE; end; end; end; end;