paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 03:58:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix dbgrid fixed cells drawing on DefaultDrawing=false, issue #21496

Browse Source 
git-svn-id: trunk@36180 -
This commit is contained in:
jesus 2012-03-20 18:49:22 +00:00
parent 40a6a4cab9
commit f431c3e138
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/dbgrids.pas
View File

@ -2369,6 +2369,14 @@ procedure TCustomDBGrid.PrepareCanvas(aCol, aRow: Integer;
aState: TGridDrawState);
begin
inherited PrepareCanvas(aCol, aRow, aState);
if gdFixed in aState then begin
if gdHot in aState then
Canvas.Brush.Color := FixedHotColor
else
Canvas.Brush.Color := GetColumnColor(aCol, gdFixed in AState);
end;
if (not FDatalink.Active) and ((gdSelected in aState) or (gdFocused in aState)) then
Canvas.Brush.Color := Self.Color;
end;
@ -2746,7 +2754,7 @@ begin
if gdFixed in aState then DbgOut('F');
{$endif dbgGridPaint}
if DefaultDrawing then
if (gdFixed in aState) or DefaultDrawing then
DefaultDrawCell(aCol, aRow, aRect, aState);
if (ARow>=FixedRows) and Assigned(OnDrawColumnCell) and