преди 1 година · 05a6a498c0
--- a/packages/rtl-objpas/src/inc/system.uitypes.pp
+++ b/packages/rtl-objpas/src/inc/system.uitypes.pp
@@ -414,7 +414,7 @@ Type
 
				   TAlphaColorRec = TAlphaColors;
			
 
				   PAlphaColorRec = ^TAlphaColorRec;
			
 
				 
			
 
				-
			
 
				+  PAlphaColorF = ^TAlphaColorF;
			
 
				   TAlphaColorF = record
			
 
				   Public
			
 
				     R, G, B, A: Single;