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

fixed appending text to TMemo

Browse Source 
git-svn-id: trunk@4062 -
This commit is contained in:
mattias 2003-04-16 06:27:12 +00:00
parent 94d356f9a1
commit b1082798ec
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/memostrings.inc
View File

@ -115,18 +115,24 @@ var
TempStrings: TStringList;
Cnt: Integer;
LastLine: String;
CurText: String;
begin
If Assigned(FMemo) and (Index >= 0)
then begin
TempStrings := TStringList.Create;
TempStrings.Text := FMemo.Text;
CurText := FMemo.Text;
TempStrings.Text := CurText;
Cnt:=TempStrings.Count;
if Index=Cnt then begin
LastLine:=S+LineEnding;
if false and FMemo.HandleAllocated then
if FMemo.HandleAllocated then begin
LastLine:=S+LineEnding;
if (CurText<>'') and (not (CurText[length(CurText)] in [#10,#13])) then
LastLine:=LineEnding+LastLine;
CNSendMessage(LM_APPENDTEXT, FMemo, PChar(LastLine))
else
FMemo.Text:=TempStrings.Text+LastLine;
end else begin
TempStrings.Insert(Index, S);
FMemo.Text:=TempStrings.Text;
end;
end
else if Index < Cnt then
begin
@ -142,6 +148,9 @@ end;
{ =============================================================================
$Log$
Revision 1.7 2003/04/16 06:27:12 mattias
fixed appending text to TMemo
Revision 1.6 2003/04/15 08:54:27 mattias
fixed TMemo.WordWrap