小さなサムネイルを表示するTListView(ViewStyle:=vsIcon)
があります。実行時に、画像をアイテムに割り当てます。
for i := 0 to Total - 1 DO
with ListView.Items.Add DO
begin
Caption := 'Item ' + IntToStr(i);
ImageIndex := i;
end;
起動時、フォームはそれほど広くなく、サムネイルは3列にのみ表示されます。残念ながら、フォーム(およびListView)のサイズを変更すると、列数は3のままになり、右側に多くの空白ができます。
これも機能しません:
procedure TForm1.FormCreate(Sender: TObject);
begin
ListView.IconOptions.AutoArrange := TRUE;
end;
空きスペースを埋めるためにアイテムを再配置するにはどうすればよいですか?
AutoArrangeのようなプロパティはありますか?
更新:
古いコントロールを削除し、フォームに新しいコントロールを配置しました。
今ListView.IconOptions.AutoArrange
は動作します。以前のコントロールには、AutoArrangeが機能しない何か(私が行ったいくつかの設定)がありました。