paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:49:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: allow to translate more color names

Browse Source 
git-svn-id: trunk@17642 -
This commit is contained in:
paul 2008-12-01 03:09:17 +00:00
parent 21139ee206
commit 35789f98bf
2 changed files with 44 additions and 0 deletions

22
lcl/colorbox.pas
View File

@ -272,6 +272,28 @@ function GetPrettyColorName(ColorName: String): String;
NewColorName := rsScrollBarColorCaption
else
case Color of
clBlack : NewColorName := rsBlackColorCaption;
clMaroon : NewColorName := rsMaroonColorCaption;
clGreen : NewColorName := rsGreenColorCaption;
clOlive : NewColorName := rsOliveColorCaption;
clNavy : NewColorName := rsNavyColorCaption;
clPurple : NewColorName := rsPurpleColorCaption;
clTeal : NewColorName := rsTealColorCaption;
clGray : NewColorName := rsGrayColorCaption;
clSilver : NewColorName := rsSilverColorCaption;
clRed : NewColorName := rsRedColorCaption;
clLime : NewColorName := rsLimeColorCaption;
clYellow : NewColorName := rsYellowColorCaption;
clBlue : NewColorName := rsBlueColorCaption;
clFuchsia : NewColorName := rsFuchsiaColorCaption;
clAqua : NewColorName := rsAquaColorCaption;
clWhite : NewColorName := rsWhiteColorCaption;
clMoneyGreen : NewColorName := rsMoneyGreenColorCaption;
clSkyBlue : NewColorName := rsSkyBlueColorCaption;
clCream : NewColorName := rsCreamColorCaption;
clMedGray : NewColorName := rsMedGrayColorCaption;
clNone : NewColorName := rsNoneColorCaption;
clDefault : NewColorName := rsDefaultColorCaption;
clBackground : NewColorName := rsBackgroundColorCaption;
clActiveCaption : NewColorName := rsActiveCaptionColorCaption;
clInactiveCaption : NewColorName := rsInactiveCaptionColorCaption;

22
lcl/lclstrconsts.pas
View File

@ -338,6 +338,28 @@ resourceString
// colorbox
rsCustomColorCaption = 'Custom ...';
rsBlackColorCaption = 'Black';
rsMaroonColorCaption = 'Maroon';
rsGreenColorCaption = 'Green';
rsOliveColorCaption = 'Olive';
rsNavyColorCaption = 'Navy';
rsPurpleColorCaption = 'Purple';
rsTealColorCaption = 'Teal';
rsGrayColorCaption = 'Gray';
rsSilverColorCaption = 'Silver';
rsRedColorCaption = 'Red';
rsLimeColorCaption = 'Lime';
rsYellowColorCaption = 'Yellow';
rsBlueColorCaption = 'Blue';
rsFuchsiaColorCaption = 'Fuchsia';
rsAquaColorCaption = 'Aqua';
rsWhiteColorCaption = 'White';
rsMoneyGreenColorCaption = 'Money Green';
rsSkyBlueColorCaption = 'Sky Blue';
rsCreamColorCaption = 'Cream';
rsMedGrayColorCaption = 'Medium Gray';
rsNoneColorCaption = 'None';
rsDefaultColorCaption = 'Default';
rsScrollBarColorCaption = 'ScrollBar';
rsBackgroundColorCaption = 'Desktop';
rsActiveCaptionColorCaption = 'Active Caption';