paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 13:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 44231 #67012e954c from trunk:

Browse Source 
LCL, grids, check for changes in ClientRect, issue #24724, #25489
........

git-svn-id: branches/fixes_1_2@44258 -
This commit is contained in:
maxim 2014-02-26 19:58:39 +00:00
parent 6df93fb994
commit d7606f2b34
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -3446,7 +3446,9 @@ begin
R := Canvas.ClipRect;
DebugLn('TCustomGrid.Paint %s Row=%d Clip=%s',[DbgSName(Self),Row,Dbgs(R)]);
{$endif}
if [gfVisualChange,gfClientRectChange]*fGridFlags<>[] then begin
if ([gfVisualChange,gfClientRectChange]*fGridFlags<>[]) or
(ClientWidth<>FGCache.ClientWidth) or
(ClientHeight<>FGCache.ClientHeight) then begin
{$ifdef DbgVisualChange}
DebugLnEnter('Resetting Sizes in Paint INIT');
{$endif}