Unit1.h
~~
class TForm1 : public TForm
{
__published:        // IDE-managed Components
        TDirectoryListBox *DirectoryListBox1;
        TBevel *Bevel1;
        TImage *Image1;
        TImageList *ImageList1;
        TListView *ListView1;
        TFileListBox *FileListBox1;
        void __fastcall DirectoryListBox1Change(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall ListView1SelectItem(TObject *Sender,
          TListItem *Item, bool Selected);
private:        // User declarations
public:                // User declarations
        __fastcall TForm1(TComponent* Owner);
};    Unit1.cpp
~~
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
{
 ListView1->Items->Clear();     for (int fCnt=0;fCntItems->Count;fCnt++) {
      AnsiString filename=FileListBox1->Items->Strings[fCnt];          if (ExtractFileExt(filename).LowerCase()==".bmp") {   //如果檔案是.bmp的話
          TListItem* Itm;               //新增ListView的一個item
          Itm=ListView1->Items->Add();
          Itm->Caption=AnsiString(filename);              Graphics::TBitmap *bmp=new Graphics::TBitmap();  //載入圖檔
          bmp->LoadFromFile(filename);              bmp->Width=100;         //固定圖像大小
          bmp->Height=100;              TRect SrcRect=Rect(0,0,bmp->Width,bmp->Height);  //縮圖比率設定
          TRect DesRect=Rect(0,0,100,100);              if (bmp->Width>100 || bmp->Height>100)
              bmp->Canvas->CopyRect(DesRect,bmp->Canvas,SrcRect);   //縮圖
         
          //bmp->Width=100;         //請測試這兩行放這裏有什麼不同
          //bmp->Height=100;              Itm->ImageIndex=ImageList1->Add(bmp,NULL);  //把圖存入imagelist中，並讓item享有此圖示              delete bmp;
      }
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 ListView1->ViewStyle=vsIcon;           //設定為大圖示模式
 ListView1->LargeImages=ImageList1;     //大圖示來源元件     ImageList1->Height=100;                //default 大圖示 height
 ImageList1->Width=100;                 //default 大圖示 width     DirectoryListBox1->FileList=FileListBox1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListView1SelectItem(TObject *Sender,
      TListItem *Item, bool Selected)
{
 Graphics::TBitmap* bmp=new Graphics::TBitmap;
 bmp->LoadFromFile(Item->Caption);     Image1->Stretch=true;
 Image1->Picture->Bitmap=bmp;
 delete bmp;
}