圖檔顯示問題 |
|
答題得分者是：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 發送簡訊給我 |
發表時間：2003-07-22 14:38:40
IP:61.56.xxx.xxx 未訂閱
系統時間：2024-11-23 7:38:10
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |