Dear 各位先進, 如何將Pic 1,和Pic 2    按Button1 變成 1 圖 按Button2 變成 2 圖 按Button3 變成 3 圖    因為我有見過有人用兩張圖就可結合成如 1,2,3 的變化圖 請先進指教,謝謝     發表人 - tglee 於 2004/11/24 18:15:11

引言: Dear 各位先進, 如何將Pic 1,和Pic 2 按Button1 變成 1 圖 按Button2 變成 2 圖 按Button3 變成 3 圖 因為我有見過有人用兩張圖就可結合成如 1,2,3 的變化圖 請先進指教,謝謝

tglee你好: 請問你自己做法是怎樣做呢?可以分享一下嗎？ 這樣也比較好針對你的問題解決 ps:標題似乎沒有明顯的意義,不妨加上合併或結合等字眼,會使得 標題更為明確。謝謝合作。

Dear JerryKuo,    我已將標題重新修正,謝謝指正     另外,我只是將我要做的目的用BCB 元件表答出來 這方面並沒有經驗,只是有看過別人只使用 兩張類似我這樣的圖表現出來, 這方面希望先進指教,謝謝 

ccc tglee 我完成了您的問題囉 不難勒 ~~~~ < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=18914290&CC=423010"> 我是新手 多多指教 ^^ 發表人 - 1666362 於 2004/11/26 11:57:37

引言: ccc tglee 我完成了您的問題囉 不難勒 ~~~~ < face="Verdana, Arial, Helvetica"> 1666362你好: 我也想知道怎麼寫的,方便分享程式嗎?

talee的意思 跟要的功能實在差很多 後來tglee解釋以後 才做出tglee要的功能     我是新手 多多指教 ^^ 發表人 - 1666362 於 2004/11/26 20:26:25

Dear Jerry Kuo,    本來貼上Source Code 是舉手之勞 可是他本人未回應,所以我也不知是否拿出來分享-_- sorry at all, 所以必須由他本人同意,我再paste 上, 如有不便,非常抱歉< >< >

sorry,本來 soure code 我是想讓 tglee 自己貼的   < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { Timi=Timi 1; if(Timi>20){Timi=20;} Edit1->Text=Timi; Form1->up(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Timi=Timi-1; if(Timi<0){Timi=0;} Edit1->Text=Timi; Form1->down(); } //--------------------------------------------------------------------------- void __fastcall TForm1::up() { Graphics::TBitmap *bmp1 = new Graphics::TBitmap(); Byte *ptr=NULL; int w,h; bmp1->Assign(Image1->Picture->Bitmap); bmp1->PixelFormat=pf24bit; h= bmp1->Height; w=bmp1->Width; for(int j=0; jScanLine[j]; for(int i=0; i<=w; i ) { if(i<(Timi*w/20)) { ptr[i*3 2]=255; ptr[i*3 1]=0; ptr[i*3]=0; } for(int i=15; iPicture->Assign(bmp1); delete bmp1; } //--------------------------------------------------------------------------- void __fastcall TForm1::down() { Graphics::TBitmap *bmp1 = new Graphics::TBitmap(); Byte *ptr=NULL; int w,h; bmp1->Assign(Image1->Picture->Bitmap); bmp1->PixelFormat=pf24bit; h= bmp1->Height; w=bmp1->Width; for(int j=0; jScanLine[j]; for(int i=0; i<=w; i ) { if(i>(Timi*w/20)) { ptr[i*3 2]=192; ptr[i*3 1]=192; ptr[i*3]=192; } for(int i=15; iPicture->Assign(bmp1); delete bmp1; } //--------------------------------------------------------------------------- 我是新手 多多指教 ^^

感謝1666362的分享