paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 05:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, additional fix resizing columns, area not fully invalidated

Browse Source 
git-svn-id: trunk@13325 -
This commit is contained in:
jesus 2007-12-14 02:28:02 +00:00
parent acb317a857
commit 8c6f42cbe0
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/grids.pas
View File

@ -2816,7 +2816,7 @@ begin
if aCol=FTopLeft.x then
R.Left := FGCache.FixedWidth;
InvalidateRect(handle, @R, True);
InvalidateRect(handle, @R, False);
end;
procedure TCustomGrid.ResizeRow(aRow, aHeight: Integer);
@ -2839,7 +2839,7 @@ begin
if aRow=FTopLeft.y then
R.Top := FGCache.FixedHeight;
InvalidateRect(handle, @R, True);
InvalidateRect(handle, @R, False);
end;
@ -4741,8 +4741,8 @@ begin
DrawXorVertLine(FPrevValue);
FPrevLine := False;
FPrevValue := -1;
ResizeColumn(FSplitter.x, x-FSplitter.y);
end;
ResizeColumn(FSplitter.x, x-FSplitter.y);
HeaderSized( True, FSplitter.X);
end;
@ -4753,8 +4753,8 @@ begin
DrawXorHorzLine(FPrevValue);
FPrevLine := False;
FPrevValue := -1;
ResizeRow(FSplitter.y, y-FSplitter.x);
end;
ResizeRow(FSplitter.y, y-FSplitter.x);
HeaderSized( False, FSplitter.Y);
end;