3

小さなサムネイルを表示する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が機能しない何か(私が行ったいくつかの設定)がありました。

4

1 に答える 1

9

のようなプロパティがありますAutoArrangeIconOptionsリストビューに直接ではなく、プロパティに属します。

ListView1.IconOptions.AutoArrange := True;

アイコンを1回だけ配置するには、ListView_Arrange代わりに電話をかけることができます。

于 2013-01-25T17:25:04.120 に答える