Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#17

AW: Transparenz-Farbe von TImage ändern

  Alt 27. Apr 2024, 22:26
Delphi-Quellcode:
var
  C: TColor;
  S, S2: string;
begin
  C := clWebSeaGreen;
  S := IntToHex(C, 6);

  SetLength(S2, 6);
  BinToHex(@C, PChar(S2), 3);

  ShowMessage('$' + S + ' = #' + S2);
end;
$578B2E = #2E8B57
$2B or not $2B
  Mit Zitat antworten Zitat