konvertering af farver

#0080FF

http://www.colorschemer.com/online.html

/muss

Beregningsmæssigt

255*256*256 + 128*256 + 0

function ConvertFarve(R,G,B : integer): string;
begin
  Result:=IntToHex(B,2)+IntToHex(G,2)+IntToHex(R,2);
end;

----------------
begin
  Showmessage( ConvertFarve(0,128,255) );
end;

Color := RGB(0, 128, 255);

function ConvertFarve(R,G,B : integer): string;
begin
  Result:=IntToHex(RGB(R,G,B),6)
end;

-------------
begin
  Showmessage( ConvertFarve(0,128,255) );
end;

kroning>>
En farve er en byte, og iøvrigt kan Delphi allerede konvetere. Ikke til muslim dog ;o)

function ConvertFarve(R,G,B : Byte): string;
begin
  Result:=ColorToString(RGB(R,G,B));
end;

-------------
begin
  Showmessage( ConvertFarve(0,128,255) );
end;



Og den anden vej i øvrigt også : StringToColor.

Nu spurgte hestetoften jo om konvertering af farve til hex værdi og ikke til en evt. symbolsk konstant (clBlack, clWhite osv.) som ColorToString vil give hvis den findes.

Der har du en god pointe .. Den havde jeg lige over set ;)

function ColorToString(const r, g, b : Byte): string;
begin
  FmtStr(Result, '%s%.8x', [HexDisplayPrefix, RGB(r, g, b)]);
end;


Jens B

Har været væk et par dage.

kikker på det her i weekenden.

Lukker

Oh hvad fandt du ud af ?