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

grids: fix row background color when editing and goRowSelect enabled. Issue #29237

Browse Source 
git-svn-id: trunk@51005 -
This commit is contained in:
ondrej 2015-12-23 11:50:24 +00:00
parent 884fddbf00
commit 775dee256f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -3586,12 +3586,12 @@ begin
Canvas.Pen.Mode := pmCopy; Canvas.Pen.Mode := pmCopy;
GetSelectedState(aState, IsSelected); GetSelectedState(aState, IsSelected);
if IsSelected then begin if IsSelected then begin
if FEditorMode and (FEditor<>nil) if FEditorMode and (aCol = Self.Col)
and (((FEditor=FStringEditor) and (FStringEditor.BorderStyle=bsNone)) and (((FEditor=FStringEditor) and (FStringEditor.BorderStyle=bsNone))
or (FEditor=FButtonStringEditor)) or (FEditor=FButtonStringEditor))
then then
Canvas.Brush.Color := FEditor.Color Canvas.Brush.Color := FEditor.Color
else if FEditorMode and (FEditor=FPicklistEditor) then else if FEditorMode and (aCol = Self.Col) and (FEditor=FPicklistEditor) then
Canvas.Brush.Color := GetNotSelectedColor Canvas.Brush.Color := GetNotSelectedColor
else else
Canvas.Brush.Color := SelectedColor; Canvas.Brush.Color := SelectedColor;