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

Qt: allow pass of change events to LCL when inserting or appending text into TCustomMemo.issue #18419

Browse Source 
git-svn-id: trunk@29062 -
This commit is contained in:
zeljko 2011-01-17 07:43:48 +00:00
parent 378ac9c3b4
commit 743dd68949
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtprivate.pp
View File

@ -264,9 +264,7 @@ begin
if FTextChanged then InternalUpdate; if FTextChanged then InternalUpdate;
FStringList[Index] := S; FStringList[Index] := S;
W := GetUTF8String(S); W := GetUTF8String(S);
TQtTextEdit(FOwner.Handle).BeginUpdate;
TQtTextEdit(FOwner.Handle).setLineText(Index, W); TQtTextEdit(FOwner.Handle).setLineText(Index, W);
TQtTextEdit(FOwner.Handle).EndUpdate;
end; end;
procedure TQtMemoStrings.SetTextStr(const Value: string); procedure TQtMemoStrings.SetTextStr(const Value: string);
@ -385,9 +383,7 @@ begin
writeln('TQtMemoStrings.Delete'); writeln('TQtMemoStrings.Delete');
{$endif} {$endif}
FStringList.Delete(Index); FStringList.Delete(Index);
TQtTextEdit(FOwner.Handle).BeginUpdate;
TQtTextEdit(FOwner.Handle).RemoveLine(Index); TQtTextEdit(FOwner.Handle).RemoveLine(Index);
TQtTextEdit(FOwner.Handle).EndUpdate;
end; end;
end; end;
@ -418,22 +414,18 @@ begin
begin begin
// workaround for qt richtext parser bug // workaround for qt richtext parser bug
W := GetUTF8String(S); W := GetUTF8String(S);
TQtTextEdit(FOwner.Handle).BeginUpdate;
TQtTextEdit(FOwner.Handle).insertLine(Index, W); TQtTextEdit(FOwner.Handle).insertLine(Index, W);
TQtTextEdit(FOwner.Handle).EndUpdate;
end else end else
begin begin
// append is much faster in case when we add strings // append is much faster in case when we add strings
W := S; W := S;
ExternalUpdate(W, False, True); ExternalUpdate(W, False, False);
FTextChanged := False; FTextChanged := False;
end; end;
end else end else
begin begin
W := GetUTF8String(S); W := GetUTF8String(S);
TQtTextEdit(FOwner.Handle).BeginUpdate;
TQtTextEdit(FOwner.Handle).insertLine(Index, W); TQtTextEdit(FOwner.Handle).insertLine(Index, W);
TQtTextEdit(FOwner.Handle).EndUpdate;
end; end;
end; end;
end; end;