各位大大，因為程式需要，所以我想再IMAGE上畫出一張256色的BITMAP圖... 各位大大可以教我如何產生嗎?? 謝謝~

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30132 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20313 --- --<-<-<@

可是我並不是要轉顏色(TColor-->256 灰度值)... 我是想製造出傳說中的256色，然後把他存成bitmap ..... 謝謝~~ 發表人 - 懶懶泥 於 2003/08/12 18:21:40

用 for 迴圈及 image1.Canvas.Pixels(x,y) := RGB(r,g,b); 應該可以得到你到的結果.

引言: 用 for 迴圈及 image1.Canvas.Pixels(x,y) := RGB(r,g,b); 應該可以得到你到的結果.

可是這樣的結果不是24bit嗎?? 我現在是可以知道它的rgb值， 但我沒辦法根據RGB轉成轉成256種顏色(不是灰度值).... 頭痛中....請幫幫我吧!

R,G,B 各是多少 ? 方便 Post 上來嗎?

當不是全彩 (24bit) 時, 就會有所謂的色盤 256色是依據色盤來決定是全彩中的哪256色 所以在非全彩的圖檔中會儲存它的色盤 在繪圖軟體裡也會有色盤的挑選 So.. 我想, 懶懶泥想知道的是... 有沒有通用的 256 色色盤 (在256色的時代的標準Windows色盤)

以 PhotoImact 的預設色盤來說. 其顏色為：

// 傳入 index = 0..255, 傳回 TColor
function Color256(index:byte):TColor;
begin
  if index<216 then Result:=RGB((i div 36)*51,((i div 6) mod 6)*51,(i mod 6)*51)
  else Result:=$FFFFFF;
end;

抱歉... 漏改了~ 上述函式中的 i 應改為 index

我現在已經知道的是 256 色的 RGB ... 而我現在有一張圖是24Bit的,要將他輸出為我的256色顏色值.... 也就是輸入為24BIT的TColor值... 輸出為我所定義的256色值..... 我在向說怎麼減色...試了好久是不出來... ( 前陣子的不知道256的RGB..現在同事給我一張表單..同事自己定義的... 所以我現在只要作減色就可以了...) 謝謝大家的回應....

引言: 以 PhotoImact 的預設色盤來說. 其顏色為：

// 傳入 index = 0..255, 傳回 TColor
function Color256(index:byte):TColor;
begin
  if index<216 then Result:=RGB((i div 36)*51,((i div 6) mod 6)*51,(i mod 6)*51)
  else Result:=$FFFFFF;
end;

能不能請交一下大大.. 上面的公式是代表什麼意思??? 不懂...謝謝!!

這個色盤的模式是 RGB 各由 256 階降為 6 階 (255/5=51, 即 0,51,102,153,204,255), RGB 三色合計 6x6x6=216 色, 剩下的 40 色全設為白色    現在你的 Source 是 24 Bit TColor, 要轉為 8 Bit 時 有幾種方式： 1. 固定色盤(固定演算法) 2. 固定色盤(查表法) 3. 最佳色盤    1. 固定色盤(演算法) 像目前舉的這個色盤的演算法, 即可產生固定的色盤 各點的TColor以相對的演算法計算出顏色索引, 或計算各點的TColor與色盤中各色的距離, 找出其索引值    2. 固定色盤(查表法) 自己為這256色定出24Bit TColor 值 計算各點的 TColor 與表中 256 個 TColor, 找出最接近的索引, 即為該點的 8 Bit 色彩值 (顯示時再以此值到色盤表中取出 24 Bit TColor 值)    3. 最佳色盤 由 Source 所有 Pixel 的 TColor 加以統計, 將它們分成 256 個群組, 每一群取出中間值(代表色), 各點改用群組編號 (8Bit) 表示 顯示時, 以群組編號取得代表色    方法1不需要儲存色盤(只要降階和還原的程式用同一對演算法) 方法2也不用儲存色盤(只要降階和還原的程式用同一色盤表) 方法3需要儲存色盤(即各群組的代表色)    那你的問題應該是在於計算色彩距離 在 RGB Domain, 可以這樣計算

// ColorTable:array[0..255] of TColor; 色盤表
function Color24to8(ColorTable:array of TColor; Color:TColor): byte;
var mDest,i,mDest2,r,g,b:integer;
begin
  mDest:=3*256;
  Result:=0;
  r:= Color         and $FF;
  g:=(Color shr  8) and $FF;
  b:=(Color shr 16) and $FF;
  for i:=0 to 255 do
  begin
    mDest2:=
      abs(r-( ColorTable[i]         and $FF)) 
      abs(g-((ColorTable[i] shr  8) and $FF)) 
      abs(b-((ColorTable[i[ shr 16) and $FF));
    if mDest2     
        

感激 Brian77 大大非常詳細的解說 ..... 謝謝您!!!