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

LCL-CustomDrawn: Further improves TCustomGrid

Browse Source 
git-svn-id: trunk@37037 -
This commit is contained in:
sekelsenmat 2012-04-26 15:32:29 +00:00
parent 31551c6c8f
commit 8d471ab570
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -4703,7 +4703,11 @@ begin
lControlHandle.IncInvalidateCount();
lControl := lControlHandle.WinControl;
lControl := Forms.GetParentForm(lControl);
Result := BackendInvalidateRect(lControl.Handle, Rect, BErase);
// Don't use Rect in BackendInvalidateRect unless we really make the full
// conversion of coordinates to window coordinates. Better invalidate everything
// then too few. And anyway on each draw we send everything.
// This fixes changing the selection in TCustomGrid
Result := BackendInvalidateRect(lControl.Handle, nil, BErase);
end
// Invalidate on a form
else