clColor til RGB værdier

Hej  TKnudsen

Du kan bruge de følgende funktioner til at skilde / samle en TColor af :

Function RGB(r, g ,b : byte) : TColor;
asm
  and eax, $ff
  and edx, $ff
  shl edx, $08
  or eax, edx
  xor edx,edx
  mov dl,cl
  shl edx,$10
  or eax,edx
end;

Function GetRed(Color : TColor) : Byte;
asm
  lea eax, [eax]
end;

Function GetGreen(Color : TColor) : Byte;
asm
  shr eax, $8
end;

Function GetBlue(Color : TColor) : Byte;
asm
  shr eax, $10
end;

Jens B

Ellers så kunne du prøve med ColorToRGB(TColor) : longint

Hvis du vil ha\' resutaltet i HEX, så kan du kovertere resultatet fra ColorToRGB med IntToHex, f.eks: HexToInt(ColorToRGB(clRed),6) = 0000FF

Snowball

snowball>> lige præcis hvad jeg har brug for :-) især det med at konvertere resultatet fra ColorToRGB til Hex (som jo bliver til en streng)

thnx

hvis du jævnfører diskutionen fra http://www.eksperten.dk/spm/24141 vil du opdage at ColorToRGB ikke er nok ..

Jens B