數位媒體概論--1207(身份證照)

[執行前的介面]

[執行後的畫面]

本週的課題是，製作身分證照片。
利用BCB的一些小程式就可以獲得解答，
另存檔案的問題也在今天獲得解決。

//------------改變背景就靠這個啦--------
　int R , G , B , x , y ;
　　for (x=0;x<112;x++){ y="0;y<144;y++){" r="GetRValue(Image1-">Canvas->Pixels[x][y]);
　　　　G=GetGValue(Image1->Canvas->Pixels[x][y]);
　　　　B=GetBValue(Image1->Canvas->Pixels[x][y]);
　　　　if ( (R>150) &&amp;amp;amp; (G>150) && (B>150) )
　　　　{
　　　　　R=255; G=255; B=255;
　　　　　Image2->Canvas->Pixels[x][y]=(TColor)RGB(R,G,B);
　　　　}
　　　　else
　　　　{
　　　　　Image2->Canvas->Pixels[x][y]=(TColor)RGB(R,G,B);
　　　　}
　　　}
　　}
//------------------------------------

//--------乘以八張就靠這個啦------------
　int R , G , B , x , y ;
　　for (x=0;x<112;x++){ y="0;y<144;y++){" r="GetRValue(Image2-">Canvas->Pixels[x][y]);
　　　　G=GetGValue(Image2->Canvas->Pixels[x][y]);
　　　　B=GetBValue(Image2->Canvas->Pixels[x][y]);
　　　　Image3->Canvas->Pixels[x][y]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x][y+144]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x+112][y]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x+112][y+144]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x+224][y]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x+224][y+144]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x+336][y]=(TColor)RGB(R,G,B);
　　　　Image3->Canvas->Pixels[x+336][y+144]=(TColor)RGB(R,G,B);
　　　}
　　}
//------------------------------------

//---儲存檔案
　if (SavePictureDialog1->Execute())
　{
　　Image3->Picture->SaveToFile(SavePictureDialog1->FileName);
}

//-----