paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 23:30:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IdeIntf: A minor refactoring for PropEdits.

Browse Source 
git-svn-id: trunk@58988 -
This commit is contained in:
juha 2018-09-14 10:26:11 +00:00
parent 574bb4ecb7
commit c0f0430c22
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/propedits.pp
View File

@ -5886,6 +5886,7 @@ procedure TStringMultilinePropertyEditor.Edit;
var
TheDialog : TStringsPropEditorDlg;
AString : string;
LineEndPos: Integer;
begin
AString := GetStrValue;
TheDialog := TStringsPropEditorDlg.Create(nil);
@ -5896,9 +5897,10 @@ begin
if (TheDialog.ShowModal = mrOK) then
begin
AString := TheDialog.Memo.Text;
LineEndPos := Length(AString) - Length(LineEnding) + 1;
//erase the last lineending if any
if Copy(AString, length(AString) - length(LineEnding) + 1, length(LineEnding)) = LineEnding then
Delete(AString, length(AString) - length(LineEnding) + 1, length(LineEnding));
if Copy(AString, LineEndPos, Length(LineEnding)) = LineEnding then
Delete(AString, LineEndPos, Length(LineEnding));
SetStrValue(AString);
end;
finally