mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 20:29:12 +02:00
LCL: Align column header in DBGrid correctly when DefaultDrawing. Issue #29395, patch from Tony Whyman.
git-svn-id: trunk@51276 -
This commit is contained in:
parent
a200dc34ee
commit
b87cd5e7e8
@ -3582,7 +3582,7 @@ var
|
||||
IsSelected: boolean;
|
||||
gc: TGridColumn;
|
||||
begin
|
||||
if DefaultDrawing then begin
|
||||
if (gdFixed in aState) or DefaultDrawing then begin
|
||||
Canvas.Pen.Mode := pmCopy;
|
||||
GetSelectedState(aState, IsSelected);
|
||||
if IsSelected then begin
|
||||
|
Loading…
Reference in New Issue
Block a user