From a76f55641c1d2265b22e1f7d786f0f0e0d7c0994 Mon Sep 17 00:00:00 2001 From: marco Date: Sun, 11 Jul 2021 18:30:43 +0000 Subject: [PATCH] --- Merging r49563 into '.': U packages/rtl-objpas/src/inc/system.uitypes.pp --- Recording mergeinfo for merge of r49563 into '.': U . --- Merging r49566 into '.': G packages/rtl-objpas/src/inc/system.uitypes.pp --- Recording mergeinfo for merge of r49566 into '.': G . # revisions: 49563,49566 fetching log for rev 49563 - 369 characters r49563 | marco | 2021-06-26 18:00:12 +0200 (Sat, 26 Jun 2021) | 2 lines Changed paths: M /trunk/packages/rtl-objpas/src/inc/system.uitypes.pp * tcolors alias. * a few missing colors copied from lazarus' graphics unit fetching log for rev 49566 - 305 characters r49566 | marco | 2021-06-26 21:24:57 +0200 (Sat, 26 Jun 2021) | 2 lines Changed paths: M /trunk/packages/rtl-objpas/src/inc/system.uitypes.pp * fix typo git-svn-id: branches/fixes_3_2@49600 - --- packages/rtl-objpas/src/inc/system.uitypes.pp | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/packages/rtl-objpas/src/inc/system.uitypes.pp b/packages/rtl-objpas/src/inc/system.uitypes.pp index b32987502a..eb099fba8c 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 colors (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 ///////////////////////////////