diff --git a/packages/rtl-objpas/src/inc/system.uitypes.pp b/packages/rtl-objpas/src/inc/system.uitypes.pp index b32987502a..e797aca9a9 100644 --- a/packages/rtl-objpas/src/inc/system.uitypes.pp +++ b/packages/rtl-objpas/src/inc/system.uitypes.pp @@ -179,6 +179,13 @@ Type WhiteSmoke = TColor($F5F5F5); Yellow = TColor($FFFF00); YellowGreen = TColor($9ACD32); + // extended colosr (from lazarus Graphics) + MoneyGreen = TColor($C0DCC0); + Cream = TColor($F0FBFF); + MedGray = TColor($A4A0A0); + // aliases + LtGray = TColor($C0C0C0); // clSilver alias + DkGray = TColor($808080); // clGray alias var case Integer of 0: {$IFDEF ENDIAN_BIG} @@ -189,6 +196,8 @@ Type 1: (Color : TColor); end; + TColors = TColorRec; + // copied from Lazutils version ///////////////////////////////