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

implemented contrast invert colors for syncompletion

Browse Source 
git-svn-id: trunk@5360 -
This commit is contained in:
mattias 2004-04-02 19:50:33 +00:00
parent 766cfd3a2c
commit c1191c69d0
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/sourceeditprocs.pas
View File

@ -69,9 +69,15 @@ var
Red:=(AColor shr 16) and $ff; Red:=(AColor shr 16) and $ff;
Green:=(AColor shr 8) and $ff; Green:=(AColor shr 8) and $ff;
Blue:=AColor and $ff; Blue:=AColor and $ff;
Red:=Red+$a0; if Abs($80-Red)+Abs($80-Green)+Abs($80-Blue)<$140 then begin
Green:=Green+$a0; Red:=Red+$a0;
Blue:=Blue+$a0; Green:=Green+$a0;
Blue:=Blue+$a0;
end else begin
Red:=$ff-Red;
Green:=$ff-Green;
Blue:=$ff-Blue;
end;
Result:=((Red and $ff) shl 16)+((Green and $ff) shl 8)+(Blue and $ff); Result:=((Red and $ff) shl 16)+((Green and $ff) shl 8)+(Blue and $ff);
end; end;
@ -84,7 +90,7 @@ var
FGRed:=(NewColor shr 16) and $ff; FGRed:=(NewColor shr 16) and $ff;
FGGreen:=(NewColor shr 8) and $ff; FGGreen:=(NewColor shr 8) and $ff;
FGBlue:=NewColor and $ff; FGBlue:=NewColor and $ff;
if Abs(FGRed-BGRed)+Abs(FGGreen-BGGreen)+Abs(FGBlue-BGBlue)<$140 then if Abs(FGRed-BGRed)+Abs(FGGreen-BGGreen)+Abs(FGBlue-BGBlue)<$180 then
NewColor:=InvertColor(NewColor); NewColor:=InvertColor(NewColor);
ACanvas.Font.Color:=NewColor; ACanvas.Font.Color:=NewColor;
end; end;