請問如何將一數字轉為RGB三原色 例如一數字為1000現將其轉為RGB且將其值轉至image之pixel上 之後若讀該pixel可直接得到1000 其轉換應如何實作 謝謝

發表人 -

Hi shing.net 您好: try this 拉一個TImage進去

procedure TForm1.Button1Click(Sender: TObject);
var MyColor : TColor;
    i, j : integer;
begin
   MyColor := $1000;
   ShowMessage(ColorToString(MyColor));
   for i := 0 to Image1.Canvas.ClipRect.Right do begin
       for j := 0 to Image1.Canvas.ClipRect.Bottom do begin
           Image1.Canvas.Pixels[i, j] := MyColor;
       end;
   end;
   ShowMessage(ColorToString(Image1.Canvas.Pixels[1, 1]));
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

VAR R,G,B: WORD;
    A : INTEGER;
begin       A:=clBlue;       B:=A AND $0000FF;
   G:=(A AND $00FF00) SHR 8;
   R:=(A AND $FF0000) SHR 16;   // shr 所有位元右旋n位

發表人 - japhenchen 於 2004/01/12 14:28:17

三原色合成一个RGB值的方法(反向推回) A:= (R shl 16) or (G shl 8) or B ; R,G,B三值都是word形态

三元色 RGB 各是 FF R G B = 0x00FFFFFF 1000 轉 RGB aRGB := TColor(1000) 讀入某 Image Image1.Canvas.Pixels[x,y] := TColor(1000); 讀出 var aInteger: Integer; aInteger := Image1.Canvas.Pixels[x,y];