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

identifier completion: reverts color invert until we get a better algorithm

Browse Source 
git-svn-id: trunk@9960 -
This commit is contained in:
mattias 2006-09-21 20:36:06 +00:00
parent ade23301b9
commit acb3b89660
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

@ -100,7 +100,7 @@ var
procedure SetFontColor(NewColor: TColor);
procedure IncreaseDiff(var Value: integer; BaseValue: integer);
{procedure IncreaseDiff(var Value: integer; BaseValue: integer);
begin
if Value<BaseValue then begin
dec(Value,$80);
@ -113,7 +113,7 @@ var
else
Value:=0;
end;
end;
end;}
var
FGRed: Integer;
@ -131,10 +131,11 @@ var
BlueDiff:=Abs(FGBlue-BGBlue);
if RedDiff*RedDiff + GreenDiff*GreenDiff + BlueDiff*BlueDiff<70000 then
begin
IncreaseDiff(FGRed,BGRed);
NewColor:=InvertColor(NewColor);
{IncreaseDiff(FGRed,BGRed);
IncreaseDiff(FGGreen,BGGreen);
IncreaseDiff(FGBlue,BGBlue);
NewColor:=(FGBlue shl 16) or (FGGreen shl 8) or FGRed;
NewColor:=(FGRed shl 16) or (FGGreen shl 8) or FGBlue;}
end;
ACanvas.Font.Color:=NewColor;
end;