DEMO TImageList::ResourceLoad( )

發文回覆瀏覽次數：4289

推到 Plurk!

推到 Facebook!

dllee
站務副站長

發表：321
回覆：2519
積分：1711
註冊：2002-04-15

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-06-19 18:37:37

IP:61.231.xxx.xxx 未訂閱

原問題： ■【問題】ResourceLoad & ResInstLoad http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32646

//----------------------------------------------------------------------------//
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  ImageList1->Width=32;
  ImageList1->Height=32;
  ImageList1->ResourceLoad(rtBitmap, "AAA", clNone);
  ImageList1->ResourceLoad(rtBitmap, "BBB", clFuchsia);
  ImageList1->ResourceLoad(rtBitmap, "CCC", clNone);
}
//----------------------------------------------------------------------------//    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  static int Index=0;
  if(ImageList1->Count>0)
  {
    Graphics::TBitmap *bmp=new Graphics::TBitmap;
    if(Index>=ImageList1->Count)
      Index=0;
    ImageList1->GetBitmap(Index,bmp);
    Index++;        Image1->Picture->Bitmap->Assign(bmp);
    delete bmp;
  }
}
//----------------------------------------------------------------------------//

RES 檔內容：

由說明看不太出來，原來一次只能 Load 一個... 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

附加檔案：32656_ImageList.zip

系統時間：2024-04-20 20:04:31

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！