Hello mr,
Thursday, October 23, 2003, 5:17:56 PM, you wrote:
mg> bagaimana metode merepresentasikan suatu warna pada suatu citra dengan angka
tertentu?
mg> misalnya:
mg> warna merah direpresentasikan dengan angka 1,
mg> warna jingga dengan angka 2,
mg> warna kuning dengan angka 3,
mg> dst sampai dengan angka 10
mg> bagaimana source code-nya? saya mohon bantuan rekan2 milis karena saya sangat
memerlukannya, terimakasih.
kenapa mesti bikin sendiri? bukannya udah ada nilai RGB? nilai2 warna
udah standard, jadi gak perlu bikin sendiri. kalo mau, paling
memetakan aja, kalo Warna = 1 --> RGB (0,0,0), dll
coba main2 dengan aja dgn code berikut, rubah nilai RGB-nya deh:
//RGB values to TColor
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Color := RGB(58, 110, 165);
end;
//TColor to RGB values
procedure TForm1.Button2Click(Sender: TObject);
var
Color: Longint;
r, g, b: Byte;
begin
Color := ColorToRGB(Edit1.Color);
r := Color;
g := Color shr 8;
b := Color shr 16;
Label1.Caption := 'Red: ' + IntToStr(r) +
' Green: ' + IntToStr(g) +
' Blue : ' + IntToStr(b);
end;
--
Best regards,
Irwan
[EMAIL PROTECTED]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
