圖檔顯示問題 |
答題得分者是:RaynorPao
|
hjlin
一般會員 ![]() ![]() 發表:63 回覆:48 積分:22 註冊:2003-02-11 發送簡訊給我 |
請教一個問題,我想要做一個可以執行scrolling功能的程式,也就是當我的前景圖超過背景顯示的範圍時,前景圖可以自動把超出的部分顯示在背景圖的另一端,圖例如下:
|
hjlin
一般會員 ![]() ![]() 發表:63 回覆:48 積分:22 註冊:2003-02-11 發送簡訊給我 |
我有找到一個類似的,不知道這樣的功能對不對,可否幫我看看~
void__fastcall TForm1::Item16Click(TObject *Sender) { //圖像左右錯移// Form1->Refresh( ); HeightHalf=Bitmap1->Height/2 Bitmap1->Height%2; Source1=Rect(0,0,Bitmap1->Width,HeightHalf); Source2=Rect(0,HeightHalf,Bitmap1->Width,Bitmap1->Height); for(i=0;i<=Bitmap1->Width;i ) { Dest1=Rect(0-Bitmap1->Width i,0,i,0 HeightHalf); Dest2=Rect(Bitmap1->Width-i,HeightHalf, Bitmap1->Width Bitmap1->Width-i, Bitmap1->Height 0); Form1->Canvas->MoveTo(0-Bitmap1->Width i-1,0); Form1->Canvas->LineTo(0-Bitmap1->Width i-1,HeightHalf); Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1); Form1->Canvas->MoveTo( Bitmap1->Width Bitmap1->Width-i,0); Form1->Canvas->LineTo( Bitmap1->Width Bitmap1->Width-i,Bitmap1->Height); Form1->Canvas->CopyRect(Dest2,Bitmap1->Canvas,Source2); for(j=0;j<10000;j ); } } ====================================================================== void__fastcall TForm1::Item17Click(TObject *Sender) { //圖像上下錯移// Form1->Refresh( ); WideHalf=Bitmap1->Width/2 Bitmap1->Width%2; Source1=Rect(0,0,WideHalf,Bitmap1->Height); Source2=Rect(WideHalf,0,Bitmap1->Width,Bitmap1->Height); for(i=0;i<=Bitmap1->Height;i ) { Dest1=Rect(0,0-Bitmap1->Height i,WideHalf,0 i); Dest2=Rect(WideHalf, Bitmap1->Height-i, Bitmap1->Width, Bitmap1->Height Bitiap1(>Ighdht)k-; &'Biym1->Canvas->MoveTo(0,0-Bitmap1->Height i-1); Form1->Canvas->LineTo(WideHalf, 0-Bitmap1->Height i-1); Form1->Canvas->CopyRect(Dest1,Bitmap1->Canvas,Source1); Form1->Canvas->MoveTo(WideHalf, Bitmap1->Height Bitmap1->Height-i); Form1->Canvas->LineTo(Bitmap1->Width, Bitmap1->Height Bitmap1->Height-i); Form1->Canvas->CopyRect(Dest2,Bitmap1->Canvas,Source2); for(j=0;j<10000;j ); } }
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
hjlin
一般會員 ![]() ![]() 發表:63 回覆:48 積分:22 註冊:2003-02-11 發送簡訊給我 |
|
領航天使
站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
RaynorPao
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |