TCanvas-FillRect

imReExtendedHistogram->Canvas->Brush->Color = clMoneyGreen; imReExtendedHistogram->Canvas->Brush->Style = bsSolid;
imReExtendedHistogram->Canvas->FillRect(Rect(0,0,812,301));
imReExtendedHistogram->Canvas->Pen->Color = clWhite;
imReExtendedHistogram->Canvas->MoveTo(149,300);
imReExtendedHistogram->Canvas->LineTo(149,0);
imReExtendedHistogram->Canvas->MoveTo(661,300);
imReExtendedHistogram->Canvas->LineTo(661,0);

老師程式碼中可以當作範例的-v-
改成我要用的=>

BlockImage->Canvas->Brush->Color=(TColor)RGB(255,0,0);
BlockImage->Canvas->Brush->Style = bsSolid;
BlockImage->Canvas->FillRect(Rect(0,0,20,20));

→

Label4->Caption="(X,Y)=( " + AnsiString(X) + " , " + AnsiString(Y)+ " )";
BlockH=Y/8;
BlockW=X/8;
for( i=0 ; i<8; i++ )
　for( j=0; j<8; j++ )
　{
　　RBlock[j][i]=Im1R[BlockH*8+i][BlockW*8+j];
　　GBlock[j][i]=Im1G[BlockH*8+i][BlockW*8+j];
　　BBlock[j][i]=Im1B[BlockH*8+i][BlockW*8+j];
　}
for( i=0; i<8 ; i++ )
　for( j=0; j<8; j++ )
　{
　BlockImage->Canvas->Brush->Color=(TColor)RGB(RBlock[i][j],GBlock[i][j],BBlock[i][j]);
　BlockImage->Canvas->Brush->Style = bsSolid;
　BlockImage->Canvas->FillRect(Rect(i*20,j*20,i*20+19,j*20+19));
　}