IIRC these are not Delphi standard colors, but additional color
defined by RxLib and then inherited by JVCL. There could be some
clash...
Regards,
Flávio
On 10/7/06, Aleksey Lagunov <[EMAIL PROTECTED]> wrote:
delphi compatible colors:
clMoneyGreen, clSkyBlue and clMedGray
--- graphics.pp (revision 10045)
+++ graphics.pp (working copy)
@@ -241,6 +241,10 @@
clNone = TColor($1FFFFFFF);
clDefault = TColor($20000000);
+ clMoneyGreen = TColor($C0DCC0);
+ clSkyBlue = TColor($F0CAA6);
+ clMedGray = TColor($A4A0A0);
+
//System colors
clScrollBar = TColor(SYS_COLOR_BASE or COLOR_SCROLLBAR);
clBackground = TColor(SYS_COLOR_BASE or COLOR_BACKGROUND);
@@ -1446,7 +1450,7 @@
{ Color mapping routines }
const
- Colors: array[0..109] of TIdentMapEntry = (
+ Colors: array[0..112] of TIdentMapEntry = (
// The following colors match the predefined Delphi Colors
(Value: clBlack; Name: 'clBlack'),
(Value: clMaroon; Name: 'clMaroon'),
@@ -1571,7 +1575,10 @@
(Value: clActiveBackground; Name: 'clActiveBackground'),
(Value: clActiveShadow; Name: 'clActiveShadow'),
(Value: clActiveHighlight; Name: 'clActiveHighlight'),
- (Value: clActiveHighlightedText; Name: 'clActiveHighlightedText')
+ (Value: clActiveHighlightedText; Name: 'clActiveHighlightedText'),
+ (Value: clMoneyGreen; Name: 'clMoneyGreen'),
+ (Value: clSkyBlue; Name: 'clSkyBlue'),
+ (Value: clMedGray; Name: 'clMedGray')
);
function IdentEntry(Entry: Longint; var MapEntry: TIdentMapEntry): boolean;
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
