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

Converter: don't leave an empty row to end of grids. It will be added automatically with "Down" button on last line.

Browse Source 
git-svn-id: trunk@31098 -
This commit is contained in:
juha 2011-06-05 12:53:24 +00:00
parent 2e9c1e7401
commit 353c186df3
2 changed files with 6 additions and 6 deletions

4
converter/replacefuncsunit.pas
View File

@ -444,8 +444,8 @@ begin
Result:=true;
Grid.BeginUpdate; // Skip the fixed row in grid.
for i:=1 to aFuncsAndCateg.fFuncs.Count do begin
if Grid.RowCount<i+2 then
Grid.RowCount:=i+2; // Leave one empty row to the end.
if Grid.RowCount<i+1 then
Grid.RowCount:=i+1;
FuncRepl:=TFuncReplacement(aFuncsAndCateg.fFuncs.Objects[i-1]);
Grid.Cells[0,i]:=FuncRepl.fCategory;
Grid.Cells[1,i]:=aFuncsAndCateg.fFuncs[i-1]; // Delphi function name

8
converter/replacenamesunit.pas
View File

@ -81,8 +81,8 @@ begin
for i:=1 to List.Count do begin // Skip the fixed row in grid.
OldIdent:=List[i-1];
NewIdent:=AMap[OldIdent];
if AGrid.RowCount<i+2 then
AGrid.RowCount:=i+2; // Leave one empty row to the end.
if AGrid.RowCount<i+1 then
AGrid.RowCount:=i+1;
AGrid.Cells[0,i]:=OldIdent;
AGrid.Cells[1,i]:=NewIdent;
end;
@ -139,8 +139,8 @@ begin
Result:=true;
AGrid.BeginUpdate;
for i:=1 to AOffs.Count do begin // Skip the fixed row in grid.
if AGrid.RowCount<i+2 then
AGrid.RowCount:=i+2; // Leave one empty row to the end.
if AGrid.RowCount<i+1 then
AGrid.RowCount:=i+1;
AGrid.Cells[0,i]:=AOffs[i-1].ParentType;
AGrid.Cells[1,i]:=IntToStr(AOffs[i-1].Top);
AGrid.Cells[2,i]:=IntToStr(AOffs[i-1].Left);