Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: TColor <-> String

   
    by Moombas, 18. Jan 2021
  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/7585773/which-is-the-equivalent-of-the-stringtocolor-function-for-a-talphacolor
  
  Color := '$' + inttostr(randomnumber)...
• Forum: Multimedia

  AW: TColor <-> String

   
    by Moombas, 15. Jan 2021
  Kann es sein, das dies mit deinem anderen Beitrag zusammenhängt (randomcolor)?
  Dann kannst du deine Farbe auch einfach zuweisen
  
  randomcolor := '$' + inttostr(randomnumber) //randomnumber ist nur ein Platzhalter für eine 8-Stellige Zahl ARGB FF000000
  Brush.Color := randomcolor;
  
  
  Siehe dazu (dank Rollo gefunden :) ):...
• Forum: Multimedia

  AW: TColor <-> String

   
    by Moombas, 15. Jan 2021
  /// VCL
  result := StrToInt('$' + value + value) + StrToInt('$' + value + value) shl 8 + StrToInt('$' + value + value) shl 16;
  1. Problem: Ergibt ja bei deinem Vorgabewert 255 als Ergebnis (Result).
  Wenn du nun nicht $FF0000 nimmst (255 für Rot), sondern $00FF00 kommt 65280 raus (eigentlich ja 255 für Grün).
  Du musst da dein shl weg lassen, dann passt dies wieder.
  
  2. Problem: Lässt du...