Delphi ile HexToColor, ColorToHex

Renkleri kaydetmek için

Hexadecimal string renk kodunu, TColor çeviri

function HexToColor(sRenk: string): TColor; begin Result := RGB( StrToInt('$' + Copy(sRenk, 1, 2)), StrToInt('$' + Copy(sRenk, 3, 2)), StrToInt('$' + Copy(sRenk, 5, 2)) ); end;

Kullanımı:
Label1.Font.Color := HexToColor('FF65FF');

TColor dan Hexadecimal string renk koduna çeviri

function ColorToHex(Renk: TColor): String; var R, G, B: Byte; begin Renk:=ColorToRGB(Renk); R:=GetRValue(Renk); G:=GetGValue(Renk); B:=GetBValue(Renk); ColorToHex:=IntToHex(R,2)+IntToHex(G,2)+IntToHex(B,2); end;

Kullanımı:
RenkStringi := ColorToHex(Label1.Font.Color);

Bu sayede nesnelerin renklerini veritabanına kaydedebilirsiniz.

TD Software