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

LCL, fix grid exeption after removing all rows and adding a new row, issue #12666

Browse Source 
git-svn-id: trunk@17655 -
This commit is contained in:
jesus 2008-12-01 23:34:14 +00:00
parent d2a489e5c4
commit 4d0dfb40f0
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/grids.pas
View File

@ -4695,11 +4695,19 @@ begin
VisualChange; VisualChange;
// adjust editor bounds // adjust editor bounds
if IsColumn and (Index<=NewCol) then if IsColumn then begin
Inc(NewCol) if NewCol<FixedCols then
NewCol := FixedCols
else else
if (not IsColumn) and (Index<=NewRow) then if Index<=NewCol then
Inc(NewCol);
end else begin
if NewRow<FixedRows then
NewRow := FixedRows
else
if Index<=NewRow then
Inc(NewRow); Inc(NewRow);
end;
AdjustEditorBounds(NewCol, NewRow) AdjustEditorBounds(NewCol, NewRow)
end; end;