0

TShellList コンポーネントは、(残念ながら) ViewStyle プロパティに「vsThumbnail」(または類似のもの) を持たない TListView に基づいています。

Windows Explorer と同様の方法で TShellList にサムネイルを表示するにはどうすればよいですか?

シンプルな Delphi スニペットをいただければ幸いです。

ティア

4

2 に答える 2

0

デフォルトよりも大きなアイコンが必要な場合は、使用する TImageList のサイズを変更できます。以下の例は TListView の例ですが、アイデアを得ることができます

const 
  PreviewSize = 128;
type
  TForm1 = class
    PreviewList: TImageList;
    List: TListView;
...

  PreviewList.Width = PreviewSize;
  PreviewList.Height = PreviewSize;
  PreviewList.Add(MyBitmap, Nil);
  List.Add.ImageIndex:=0;
于 2009-12-10T12:18:40.750 に答える
0

TShellList コンポーネントは使用していません。ただし、別のコンポーネントを検討する場合は、Mustang Peak の VirtualShellTools を試してください。このコンポーネントには少し習熟する必要がありますが、私のニーズには非常に適していることがわかりました。TVirtualExplorerEasyListview を使用してディレクトリを指定すると、そのディレクトリ内の画像のサムネイルを作成するすべての作業が行われます。

于 2009-12-10T18:31:40.897 に答える