謝謝~

懶懶泥您好:   Image1->Canvas->Pixels[X][Y]=TColor(RGB(R,G,B));   其中R,G,B都是0~255恰好為8bits表示    順心 發表人 -

可是RGB分別是三各顏色的多寡~ 合起來共有16777215色 而我現在止希望能將他濃縮成8Bits也就是256色 可以嗎？？？ 謝謝～

懶懶泥您好:   在HELP中提到   TColor {clMin=-0x7fffffff-1, clMax=0x7fffffff};   所以我想應該是沒辦法吧   不過您可以用   Image1->Picture->Bitmap->PixelFormat=pf8bit;   將圖片轉成256色< > 幫不上忙不好意思< >

不過我的原見只有Canvas 的屬性～ 並沒有bitmap ㄝ～ 還有再請問一個問題 var x, y, i : integer; pb : pbytearray; begin For i := 0 to 255 do begin HistCount[i] := 0; end; for y := 0 to Bitmap.height - 1 do begin pb := Bitmap.scanline[y]; \\此是否為256色？？ for x := 0 to Bitmap.width - 1 do begin inc(HistCount[pb[x]]); end; end; end; 謝謝～

懶懶泥您好:       

引言: 不過我的元件只有Canvas 的屬性～ pb := Bitmap.scanline[y]; \\此是否為256色？？

不好意思,這我就幫不上忙了.. 要看您的SOURCE而知 可參考下面連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27302 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26723 順心

感謝版主的解答，讓我瞭解不少～謝謝！ 但我還是有一個問題： 為什麼 TBitmap 如果資料來源是硬碟中的某張Bitmap 圖檔時， 他scanline 的數度超快～ 但若來源為 Bitmap.Canvas.CopyRect(Rect1,canvas,Rect2) 時， 在去Scanline 其慢無比？？ 謝謝～

對不起，我發現一個BUG所以上面的問題作廢～～謝謝版主的親切回答！！