Einzelnen Beitrag anzeigen

Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#6

AW: TColor <-> String

  Alt 18. Jan 2021, 07:20
Jopp, hast du Recht.
Ich habe einfach mal die '' mit rein interpretiert -.-

Aber folgendes müsste doch gehen (ich habe aktuell leider selber kein Delphi zum gegentesten, in Lazarus gibt es diese Funktion leider nicht):
Quelle: https://stackoverflow.com/questions/...-a-talphacolor
Delphi-Quellcode:
Color := '$' + inttostr(randomnumber) //randomnumber ist nur ein Platzhalter für eine 8-Stellige ARGB Zahl z.B. FF000000
Brush.Color := StringToAlphaColor(Color);
Das entspricht ja auch fast dem, was Rollo geschrieben hat
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.

Geändert von Moombas (18. Jan 2021 um 07:31 Uhr)
  Mit Zitat antworten Zitat