Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.095 Beiträge
 
Delphi 10 Seattle Enterprise
 
#5

AW: TColor in TAlphaColor unwandeln

  Alt 22. Okt 2014, 10:39
Danke für den Hinweis System.UIConsts

Nur die Methode RGBtoBGR stellt die Farben richtig dar auf ein Windows und auf Android OS.

Delphi-Quellcode:
  uses System.UIConsts;
  ...
  Rectangle1.Fill.Color := RGBtoBGR($FF000000 + 255); //FF;
  Rectangle2.Fill.Color := RGBtoBGR($FF000000 + 65280); //FF00;
  Rectangle3.Fill.Color := RGBtoBGR($FF000000 + 16711680); //FF0000;
Dankeschön nochmal.

Gruß Kostas
  Mit Zitat antworten Zitat