title image


Smiley Re: Farbwert anzeigen


type

TRGBStruct = packed record

R : Byte;

G : Byte;

B : Byte;

Reserved : Byte;

end;



function ColorToStr(Color : TColor) : String;

var

RGBInt : Integer;

RGB : TRGBStruct;

begin

RGBInt:=ColorToRGB(color);

Move(RGBInt, RGB, SizeOf(RGB));

result:=Format('%.2X%.2X%.2X', [RGB.R, RGB.G, RGB.B]);

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: