發言test... |
|
|
|
eulor2000
一般會員   發表：51 回覆：34 積分：17 註冊：2008-11-18 發送簡訊給我 |
Refresh();
Graphics::TBitmap *TheBitmap,*TempBitmap; int x,y; Byte *ptr1,*ptr2; TempBitmap=new Graphics::TBitmap(); TheBitmap=Image1->Picture->Bitmap; TempBitmap->Height=400; TempBitmap->Width=400; TempBitmap->Assign(TheBitmap); B[400][400]=TempBitmap; for(j=0;j<400;j ) { ptr1=(Byte*) TheBitmap->ScanLine[j]; for(i=0;i<400;i ) { Canvas->Pixels [B[j][i].x][B[j][i].y]=ptr1[i]; } } |
|
eulor2000
一般會員 發表：51 回覆：34 積分：17 註冊：2008-11-18 發送簡訊給我 |
Refresh(); Graphics::TBitmap *TheBitmap,*TempBitmap; int x,y; Byte *ptr1,*ptr2; TempBitmap=new Graphics::TBitmap(); TheBitmap=Image1->Picture->Bitmap; TempBitmap->Height=400; B[400][400]=TempBitmap; for(j=0;j<400;j ) { ptr1=(Byte*) TheBitmap->ScanLine[j]; for(i=0;i<400;i ) { Canvas->Pixels [B[j][i].x][B[j][i].y]=ptr1[i]; } }
|
發表時間：2009-02-14 12:36:50
IP:218.175.xxx.xxx 訂閱
系統時間：2024-04-27 8:40:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |