Delphi FAQ: 2.0Jの TListViewのアイコンテキスト表示と間隔

１５番会議室「ＦＡＱ編纂委員会」に寄せられた「よくある質問の答え」

[Ｑ]
2.0Jの TListViewコンポーネントで、 IconOptionsプロパティのWrapTextを\Trueにしてもアイコンのテキストが正しく表示されないのですが？また、IconOptionsのAutoArrangeをTrueにしてもアイコンの間隔が狭いままです。

[Ａ]

例のコードを参考にしてください。
この現象は Windows NT4, Internet Explorer 3.0x がインストールされた\Windows 95では起こらないことから、Windows 95の COMCTL32.DLLのバグと思われます。

TListView コンポーネントがあるフォームの OnCreateハンドラに次のようなコードを記述します。

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    with ListView1.Font do begin
      Size := Size + 1;
      Size := Size - 1;
    end;
  end;

フォーム上に複数のListViewコンポーネントがある場合は次のようにします。

  procedure TForm1.FormCreate(Sender: TObject);
  var
    i: Integer;
  begin
    for i := 0 to ComponentCount-1 do
      if Components[i] is TListView then
        with TListView(Components[i]).Font do begin
          Size := Size + 1;
          Size := Size - 1;
        end;
  end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。