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));
　}

Work 1 @070814

JSteg 泛稱Work1....

構思→
Page1
1-1.Show Original Picture
1-2.Show R Channel Picture
1-3.Show G Channel Picture
1-4.Show B Channel Picture
1-5.Show R,G,B Channel Histogram

Page2
2-1-1.8*8-R,G,B(On Mouse Click)
2-1-2.8*8-Y,Cb,Cr(On Mouse Click)
2-1-3.DCT+QDCT 8*8 Data (Show the value which could inv Data)

2-2.(The Last Page)DCT+QDCT Histogram(Could Move)

Page3 [JSteg]

Work 1 @070811

已達成Y,Cb,Cr, DCT, QDCT , 8*8 block .....etc等功能
→改良階段

目前構思(參考老師程式)
Page1.Show Picture的功能下
a.RGB Channel, RGB Recoder
b.Show YCbCr值

Page2.DCT,QDCT
a.展示DCT QDCT數值, 本程式目標"長條圖"
b.其他(?)

Page3.JSteg功能(?)
藏幾成的資料...etc.

Page4.測試用介面

※其他Notes
PageControl1->ActivePage="aaa";
老師的DCT較為迅速，考慮改良自身DCT程式碼以達成精簡速度功能

Test

First Post.

專研工作上 Personal Notes
(私人筆記)