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

fix/improve contrast detection Colorscheme / issue #16628

Browse Source 
git-svn-id: trunk@25867 -
This commit is contained in:
martin 2010-06-03 16:23:32 +00:00
parent aac881b08d
commit 98c6019a1f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/sourceeditprocs.pas
View File

@ -144,13 +144,14 @@ var
GreenDiff: integer;
BlueDiff: integer;
begin
NewColor := ColorToRGB(NewColor);
FGRed:=(NewColor shr 16) and $ff;
FGGreen:=(NewColor shr 8) and $ff;
FGBlue:=NewColor and $ff;
RedDiff:=Abs(FGRed-BGRed);
GreenDiff:=Abs(FGGreen-BGGreen);
BlueDiff:=Abs(FGBlue-BGBlue);
if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<70000 then
BlueDiff:=Abs(FGBlue -BGBlue);
if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<30000 then
begin
NewColor:=InvertColor(NewColor);
{IncreaseDiff(FGRed,BGRed);
@ -220,7 +221,7 @@ var
ItemNode: TCodeTreeNode;
SubNode: TCodeTreeNode;
begin
ForegroundColor := ACanvas.Font.Color;
ForegroundColor := ColorToRGB(ACanvas.Font.Color);
Result.X := 0;
Result.Y := ACanvas.TextHeight('W');
if CurrentCompletionType=ctIdentCompletion then begin
@ -231,7 +232,7 @@ begin
ACanvas.TextOut(x+1, y, 'PaintCompletionItem: BUG in codetools');
exit;
end;
BackgroundColor:=ACanvas.Brush.Color;
BackgroundColor:=ColorToRGB(ACanvas.Brush.Color);
BGRed:=(BackgroundColor shr 16) and $ff;
BGGreen:=(BackgroundColor shr 8) and $ff;
BGBlue:=BackgroundColor and $ff;