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

LCL: Paint the focus rectangle white when UseXORFeatures=true, issue #33042

Browse Source 
git-svn-id: trunk@57661 -
This commit is contained in:
jesus 2018-04-17 18:35:26 +00:00
parent 4662045bfa
commit 00d168199d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/grids.pas
View File

@ -10398,7 +10398,7 @@ begin
if FUseXORFeatures then begin if FUseXORFeatures then begin
Canvas.SaveHandleState; Canvas.SaveHandleState;
OldFocusColor := FFocusColor; OldFocusColor := FFocusColor;
FFocusColor:= clBlack;//White not visible on White background FFocusColor:= clWhite;
OldPenMode:=Canvas.Pen.Mode; OldPenMode:=Canvas.Pen.Mode;
Canvas.Pen.Mode := pmXOR; Canvas.Pen.Mode := pmXOR;
end; end;