Farbe zu string?

[Sebastian Nintemann]

Hallo Spider, wie meinst du denn 'die Farbe als String'?

Guck Dir mal ColorToString an (soweit ich mich erinnere Hex-Darstellung als 4byte Cardinal, also etwa so $00BBGGRR).

Ansonsten:

Delphi-Quellcode:

function ColorStr(const aCol: Cardinal; const Hex: boolean = false): string;
begin
  result := '';
  case Hex of
    true:
      result := '#'+IntToHex(Byte(aCol),2)+IntToHex(Byte(aCol shr $08),2)+IntToHex(Byte(aCol shr $10),2);
    false:
      result := 'RGB('+IntToStr(Byte(aCol))+','+IntToStr(Byte(aCol shr $08))+','+IntToStr(Byte(aCol shr $10))+')';
  end;
end;

Mit Hex kannst du angeben ob du ein RGB-Trippel (Standard, Hex = false) oder in hexadezimaler Darstellung (HTML-Darstellung, Hex = true) haben willst.

Gruß, Sebastian