paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 07:55:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

ValEdit: Fix InsertRow (Issue #0025881)

Browse Source 
git-svn-id: trunk@44566 -
This commit is contained in:
bart 2014-03-31 21:19:27 +00:00
parent 8295aac859
commit d369e9fa44
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/valedit.pas
View File

@ -800,10 +800,10 @@ end;
function TValueListEditor.InsertRow(const KeyName, Value: string; Append: Boolean): Integer; function TValueListEditor.InsertRow(const KeyName, Value: string; Append: Boolean): Integer;
var var
NewInd, NewCol: Integer; NewInd, NewRow: Integer;
Line: String; Line: String;
begin begin
if (KeyName <> '') and (Value <> '') then if not ((KeyName = '') and (Value = '')) then
Line := KeyName + Strings.NameValueSeparator + Value Line := KeyName + Strings.NameValueSeparator + Value
else else
Line := ''; Line := '';
@ -832,8 +832,8 @@ begin
NewInd := Row - FixedRows; NewInd := Row - FixedRows;
end; end;
Result := NewInd; Result := NewInd;
NewCol := NewInd + FixedRows; NewRow := NewInd + FixedRows;
if (NewCol <> Col) then Col := NewCol; if (NewRow <> Row) then Row := NewRow;
end; end;
procedure TValueListEditor.InsertRowWithValues(Index: Integer; procedure TValueListEditor.InsertRowWithValues(Index: Integer;