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

LCL: Align column header in DBGrid correctly when DefaultDrawing. Issue #29395, patch from Tony Whyman.

Browse Source 
git-svn-id: trunk@51276 -
This commit is contained in:
juha 2016-01-14 10:48:19 +00:00
parent a200dc34ee
commit b87cd5e7e8
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

@ -3582,7 +3582,7 @@ var
IsSelected: boolean; IsSelected: boolean;
gc: TGridColumn; gc: TGridColumn;
begin begin
if DefaultDrawing then begin if (gdFixed in aState) or DefaultDrawing then begin
Canvas.Pen.Mode := pmCopy; Canvas.Pen.Mode := pmCopy;
GetSelectedState(aState, IsSelected); GetSelectedState(aState, IsSelected);
if IsSelected then begin if IsSelected then begin