Ir al contenido


Foto

[TRUCO DELPHI] TColor a HEX y Viceversa.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 31 agosto 2016 - 12:26

[TRUCO DELPHI] TColor a HEX y Viceversa.


delphi
  1. function TColorToHex(Color : TColor) : string;
  2. begin
  3. Result :=
  4. IntToHex(GetRValue(Color), 2) +
  5. IntToHex(GetGValue(Color), 2) +
  6. IntToHex(GetBValue(Color), 2);
  7. end;
  8.  
  9. function HexToTColor(sColor : string) : TColor;
  10. begin
  11. Result :=
  12. RGB(
  13. StrToInt('$'+Copy(sColor, 1, 2)),
  14. StrToInt('$'+Copy(sColor, 3, 2)),
  15. StrToInt('$'+Copy(sColor, 5, 2))
  16. );
  17. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.