paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:40:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: rearrange some colors to be more delphi compatible in their order

Browse Source 
git-svn-id: trunk@17307 -
This commit is contained in:
paul 2008-11-10 10:25:45 +00:00
parent 6c6dd13642
commit 3d7c97be6e
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/graphics.pp
View File

@ -248,14 +248,14 @@ const
clLtGray = TColor($C0C0C0);
clDkGray = TColor($808080);
clWhite = TColor($FFFFFF);
clMoneyGreen = TColor($C0DCC0);
clSkyBlue = TColor($F0CAA6);
clCream = TColor($F0FBFF);
clMedGray = TColor($A4A0A0);
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);
@ -1712,7 +1712,7 @@ function GetGraphicClassForFileExtension(const FileExt: string): TGraphicClass;
type
// Color / Identifier mapping
TGetColorStringProc = procedure(const s:ansistring) of object;
TGetColorStringProc = procedure(const s: AnsiString) of object;
function IdentEntry(Entry: Longint; var MapEntry: TIdentMapEntry): boolean;
function ColorToIdent(Color: Longint; var Ident: String): Boolean;
@ -2098,7 +2098,10 @@ const
(Value: clLtGray; Name: 'clLtGray'),
(Value: clDkGray; Name: 'clDkGray'),
(Value: clWhite; Name: 'clWhite'),
(Value: clMoneyGreen; Name: 'clMoneyGreen'),
(Value: clSkyBlue; Name: 'clSkyBlue'),
(Value: clCream; Name: 'clCream'),
(Value: clMedGray; Name: 'clMedGray'),
(Value: clNone; Name: 'clNone'),
(Value: clDefault; Name: 'clDefault'),
@ -2203,10 +2206,7 @@ const
(Value: clActiveBackground; Name: 'clActiveBackground'),
(Value: clActiveShadow; Name: 'clActiveShadow'),
(Value: clActiveHighlight; Name: 'clActiveHighlight'),
(Value: clActiveHighlightedText; Name: 'clActiveHighlightedText'),
(Value: clMoneyGreen; Name: 'clMoneyGreen'),
(Value: clSkyBlue; Name: 'clSkyBlue'),
(Value: clMedGray; Name: 'clMedGray')
(Value: clActiveHighlightedText; Name: 'clActiveHighlightedText')
);
function IdentEntry(Entry: Longint; var MapEntry: TIdentMapEntry): boolean;