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

ValueListEditor: Revert r45782 #8f01bb744d. It is not a proper fix, and the issue cannot be reproduced anymore. Issue #0026449.

Browse Source 
git-svn-id: trunk@50568 -
This commit is contained in:
bart 2015-12-02 12:53:52 +00:00
parent a121cb2acc
commit cc31a2d44d
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/valedit.pas
View File

@ -798,11 +798,8 @@ var
NewInd, NewRow: Integer;
Line: String;
begin
if not ((KeyName = '') and (Value = '')) then begin
Line := Value;
Insert(Strings.NameValueSeparator, Line, 1);
Insert(KeyName, Line, 1);
end
if not ((KeyName = '') and (Value = '')) then
Line := KeyName + Strings.NameValueSeparator + Value
else
Line := '';
if (Row > Strings.Count) or ((Row - FixedRows) >= Strings.Count)
@ -847,9 +844,7 @@ begin
end
else if (Length(Values) = 1) then
AKey := Values[0];
Insert(Strings.NameValueSeparator, AValue, 1);
Insert(AKey, AValue, 1);
Strings.InsertItem(Index, AValue);
Strings.InsertItem(Index, AKey + Strings.NameValueSeparator + AValue);
end;
procedure TValueListEditor.ExchangeColRow(IsColumn: Boolean; index, WithIndex: Integer);