目前是將兩張圖合併成一張width*2的圖
圖片是存在TBitmap *source3中
可是最多只能移到width*2的長度
請問是否可以依給定次數重覆平移輪播
另外以下程式碼是否可以改成讓他有平移的感覺
因為用sleep好像只有第一張圖停比較久
但copyrect的變動太快了沒有平移的效果
[code cpp]
for(int i=0;i{
Image3->Canvas->CopyRect(Rect(0,0,source1->Width,source1->Height),source3->Canvas,Rect(i,0,(source1->Width) i,source1->Height));
Form1->Canvas->Draw(16,304,source1);
Sleep(10);
}
[/code]
另外參考別人用 bcb 1.0作的 code也看不出所以然
水果機sample code

編輯記錄

請試看看在中間加入 refresh ，因為你圖形複製完後沒有refresh，只停個 10ms ，畫面應該不會有反應就開始繼續做下一個動作了。


===================引 用 waertf 文 章===================
目前是將兩張圖合併成一張width*2的圖
圖片是存在TBitmap *source3中
可是最多只能移到width*2的長度
請問是否可以依給定次數重覆平移輪播
另外以下程式碼是否可以改成讓他有平移的感覺
因為用sleep好像只有第一張圖停比較久
但copyrect的變動太快了沒有平移的效果
[code cpp]
for(int i=0;i{
Image3->Canvas->CopyRect(Rect(0,0,source1->Width,source1->Height),source3->Canvas,Rect(i,0,(source1->Width) i,source1->Height));
Form1->Canvas->Draw(16,304,source1);
Sleep(10);
}
[/code]
另外參考別人用 bcb 1.0作的 code也看不出所以然
水果機sample code

refresh()會造成閃爍
後來偶找到用
Delay(time)
[code cpp]
void Delay(int lMilliSeconds){
int lStart;
lStart = GetTickCount();
do{
Application->ProcessMessages();
}while (GetTickCount() - lStart <= lMilliSeconds);
}
[/code]
然後再用for loop,在loop裡不斷的用CopyRect畫

另外加上Form->DoubleBuffered=true;
就可以有動畫的效果了

編輯記錄