全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:969
推到 Plurk!
推到 Facebook!

如何 Stretch 無效呢?

尚未結案
chilly0783
一般會員


發表:10
回覆:6
積分:8
註冊:2005-09-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-11-23 15:23:53 IP:59.113.xxx.xxx 未訂閱
嗯,對不起又要麻煩大大們了,我宣告image物件陣列後,我有設stretch    是true的可是跑出來,卻沒有stretch,我是320*240要stretch成160*120但是    卻失敗為啥嘛咧!    下圖1:stretch失敗 下圖2:是我又把它用成和原來同大小就可以@@ ----我的code----
TImage *Image[3][2]
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  //--是設在這沒差吧,我有試過放在跟那個秀圖那段一樣無法stretch
  for(j=0;j<2;j++)
  {
    for(i=0;i<3;i++)
    {
      Image[i][j]= new TImage(this);
      Image[i][j]->Parent=Form1;
      Image[i][j]->AutoSize=false;
      Image[i][j]->Left=(32+168*i)
      Image[i][j]->Top=(392+128*j)
      Image[i][j]->Height = 120
      Image[i][j]->Width = 160;
      Image[i][j]->Visible=true;
      Image[i][j]->Stretch=true;  / /我有設呀!
      Image[i][j]->Show();
      Image[i][j]->Tag = 3*j+i+1;
    }
  }    }
//-------------------------------------
.......................
//----------下面是顯現出來的步驟--------
//----------輸出到 Image[count]----------
  if ( mean > = diffmin)  //若存在移動物體
  {
    count++;
    if( count > Imagemax ) count = count - Imagemax;        ii = (count+2)%3;  //取餘數
    jj = (count-1)/3;  //取商數  這是用來決定第幾張        for(j=0 ; jCanvas->Pixels[i][j] = Form1->ImageNow->Canvas->Pixels[i][j];
        }
        else                    //顏色差異小之像素,以紅色輸出到 Image(count)
        {
          Image[ii][jj]->Canvas->Pixels[i][j] = (TColor)RGB(255,0,0);
        }
      }
    }      }
 
煩請大大指點一下 ,m(_ _)m 謝謝!
系統時間:2024-05-12 9:59:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!