Transparenz-Farbe von TImage ändern

[himitsu]

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