Thema: Delphi Farbe zu string?

Einzelnen Beitrag anzeigen

Sebastian Nintemann
(Gast)

n/a Beiträge
 
#6

Re: Farbe zu string?

  Alt 27. Nov 2003, 18:31
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
  Mit Zitat antworten Zitat