DelphiのImageListに伸ばした画像を追加

Question

私はテーブルに画像をPictureフィールドに入れてImageListに入れようとしています。 は、ここでは、コードです：

ImageList.Clear; 
ItemsDts.First; 
ImageBitmap:= TBitmap.Create; 
try 
    while not ItemsDts.Eof do 
    begin 
    if not ItemsDtsPicture.IsNull then 
    begin 
     ItemsDtsPicture.SaveToFile(TempFileBitmap); 
     ImageBitmap.LoadFromFile(TempFileBitmap); 
     ImageList.Add(ImageBitmap, nil); 
    end; 
    ItemsDts.Next; 
    end; 
finally 
    ImageBitmap.Free; 
end; 

しかし、私はイメージリストのサイズの違いの大きさの画像のためのいくつかの問題を抱えています。

更新： 私の問題は、ImageListサイズ（32 * 32）より大きいImage、たとえば100 * 150などのImageを追加すると、ImageListに接続されたコンポーネント（ListViewなど）では正しく表示されません。 新しく追加された画像が伸びずに切り取られているようです。 ImageList Editorのように新しい画像を引き伸ばしたい。

Answer 1

ImageListが自動的に画像を伸ばすためのプロパティを提供するかどうかわかりません。誰かが何らかの組み込みを見つけない限り、イメージをImageListに追加する前に自分でイメージを伸ばすことができます。そしてあなたがそれをしている間は、ディスク上のファイルの使用をやめてください：TMemoryStreamを代わりに使用してください。このような何か：

var StretchedBMP: TBitmap; 
    MS: TMemoryStream; 

ImageList.Clear; 
ItemsDts.First; 
StretchedBMP := TBitmap.Create; 
try 

    // Prepare the stretched bmp's size 
    StretchedBMP.Width := ImageList.Width; 
    StretchedBMP.Height := ImageList.Height; 

    // Prepare the memory stream 
    MS := TMemoryStream.Create; 
    try 
    ImageBitmap:= TBitmap.Create; 
    try 
     while not ItemsDts.Eof do 
     begin 
     if not ItemsDtsPicture.IsNull then 
     begin 
      MS.Size := 0; 
      ItemsDtsPicture.SaveToStream(MS); 
      MS.Position := 0; 
      ImageBitmap.LoadFromStream(MS); 
      // Stretch the image 
      StretchedBMP.Canvas.StretchDraw(Rect(0, 0, StretchedBmp.Width-1, StretchedBmp.Height-1), ImageBitmap); 
      ImageList.Add(StretchedBmp, nil); 
     end; 
     ItemsDts.Next; 
     end; 
    finally MS.Free; 
    end; 
    finally StretchedBMP.Free; 
    end; 
finally 
    ImageBitmap.Free; 
end; 

---

PS：私は、ブラウザのウィンドウでコードを編集しました。私はコンパイルを保証することはできませんが、そうでなければ、修正するのは簡単なはずです。