老話一句，教授給出程式碼之後一切就都變得很簡單
但是在此之前卻會查資料查的半死，然後又沒甚麼收穫
最吐血的是家裡的vista不能看程式附的help檔，真是~!#$%^&*(_+
發個牢騷 = =a
【這堂課新學的指令】Rect是一個特殊的數據結構，又是一個函數
他的作用就是定義一個矩形位址
Rect( 左上角x , 左上角y , 右下角x , 右下角y );CopyRect 則是將一個Canvas(A)的矩形位址，'
複製到另一個Canvas(B)的矩形位址
CopyRect( B的矩形位址 , A的Canvas , A的矩形位址 );【讓Image在程式一打開就有圖片】點選一個Image，在屬性視窗裡，尋找 Picture ( Name 的下面第二個)
點進去後可以載入bmp 圖檔
只能載入 bmp 圖檔，雖然其他如 jpg 的圖也可以開啟，
但是會在CopyRect時發生錯誤
【其他1】 【 動態使用指定 Image 】
如果要像教授播放的範例一樣，弄出九宮格
那至少會有10個 Image ，一個來源圖片，九個空 Image
這樣的話，就要每個 Image 都設定一次
ex:
Image1:
int x=280,y=68;
TRect rtTile,rtOI;
rtTile = Rect(0,0,90,90);
rtOI = Rect(x,y,x+90,y+90);
Image1->Canvas->CopyRect(rtTile,Image1->Canvas,rtOI);
Image2:
int x=280,y=68;
TRect rtTile,rtOI;
rtTile = Rect(0,0,90,90);
rtOI = Rect(x,y,x+90,y+90);
Image2->Canvas->CopyRect(rtTile,Image1->Canvas,rtOI);
Image3:
...
...
...
...
9個 Image 就要設定9次，數量一多不就寫到死了
所以我就想，難道 Image 只能固定使用，不能用其他的變數替代嗎??
或是用陣列來設定 Image ??
然後開始上網翻資料
我找到的是使用 FindComponent 函數
使用方法如下:
(TImage*)FindComponent( "Image"+IntToStr( i ) )(Timage*) 這個應該是元件type的宣告
( "Image"+IntToStr( i ) ) 這裡是 "元件名稱"+(編號)
((TImage*)FindComponent("Image"+IntToStr(
１)))->Canvas
相等於 Image1->Canvas
這樣的話，要使用哪個 Image 就隨自己了
九個 Image 就可以只要更改 rtOI 的 x,y 坐標
int x=0,y=0;
TRect rtTile,rtOI;
rtTile = Rect(0,0,88,88);
rtOI = Rect(x,y,x+88,y+88);
for(int i=0;i<8;i+=3)
{
for(int j=i+1;j<i+4;j++)<>
{
((TImage*)FindComponent("Image"+IntToStr(j)))->Canvas->
CopyRect(rtTile,Image10->Canvas,rtOI);
x+=88;
rtOI = Rect(x,y,x+88,y+88);
}
x=0;
y+=88;
rtOI = Rect(x,y,x+92,y+92);
}
最後我發現!!
比起去想 for loop 裡面怎麼改 x,y 的座標
還不如複製貼上用個9次來的快 ...... XD
【其他2】 【 指定 Image 為陣列 】
懂了 FindComponent 怎麼用之後，就有更簡單的方法啦
先找個地方宣告 global 變數
Timage *BMP[9];
然後把下列程式碼放在 butten 裡面或隨便哪裡 看你想怎麼使用
for(int i=0;i<9;i++)
BMP[i]=(TImage*)FindComponent("Image"+IntToStr(i+1));
這樣一來，
Image1->Canvas 就可以替換成 BMP[0]->Canvas
Image2->Canvas 則可以替換成 BMP[1]->Canvas
...
...
依此類推
這樣上面po的程式碼又可以更簡潔易看了
int x=0,y=0;
TRect rtTile,rtOI;
rtTile = Rect(0,0,88,88);
rtOI = Rect(x,y,x+88,y+88);
int k=0;
for(int i=0;i<8;i+=3)
{
for(int j=i+1;j<i+4;j++)
{
BMP[k++]->Canvas->CopyRect(rtTile,Image10->Canvas,rtOI);
x+=88;
rtOI = Rect(x,y,x+88,y+88);
}
x=0;
y+=88;
rtOI = Rect(x,y,x+92,y+92);
}
問題:
暫無
利用這個物件我可以比較輕鬆的利用陣列的內容把ImageList編號過的圖片給一次大批輸出
