pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

mbColorLib: Fix display of hex color value in hint windows.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8620 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-13 22:22:53 +00:00
parent 323744eaff
commit 1e79d006f9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/mbColorLib/PalUtils.pas
View File

@ -99,7 +99,7 @@ begin
ColorToHSL(c, hslH, hslS, hslL); ColorToHSL(c, hslH, hslS, hslL);
ColorToHSV(c, hsvH, hsvS, hsvV); ColorToHSV(c, hsvH, hsvS, hsvV);
h := AnsiReplaceText(fmt, '%hex', '#' + ColorToHex(c)); h := AnsiReplaceText(fmt, '%hex', ColorToHex(c));
h := AnsiReplaceText(h, '%cieL', IntToStr(Round(GetCIElValue(c)))); h := AnsiReplaceText(h, '%cieL', IntToStr(Round(GetCIElValue(c))));
h := AnsiReplaceText(h, '%cieA', IntToStr(Round(GetCIEaValue(c)))); h := AnsiReplaceText(h, '%cieA', IntToStr(Round(GetCIEaValue(c))));
h := AnsiReplaceText(h, '%cieB', IntToStr(Round(GetCIEbValue(c)))); h := AnsiReplaceText(h, '%cieB', IntToStr(Round(GetCIEbValue(c))));