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

Qt6: fixed behaviour of TMemo.Lines.Add(), still slower than gtk or win32, but have correct behaviour when last line of memo is line break. For faster inserts remove last line break.

Browse Source
This commit is contained in:
Željan Rikalo 2022-11-13 18:06:16 +01:00
parent ffb0b0034e
commit 38f4119540
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt6/qtprivate.pp
View File

@ -437,11 +437,22 @@ begin
// simplified because of issue #29670 // simplified because of issue #29670
// allow insert invalid index like others do // allow insert invalid index like others do
if Index >= FStringList.Count then if Index >= FStringList.Count then
Index := FStringList.Add(S) begin
else Index := FStringList.Add(S);
if FHasTrailingLineBreak then
W := GetUTF8String(S + LineBreak)
else
W := GetUTF8String(S);
if FHasTrailingLineBreak then
TQtTextEdit(FOwner.Handle).setLineText(Index, W)
else
TQtTextEdit(FOwner.Handle).Append(W);
end else
begin
FStringList.Insert(Index, S); FStringList.Insert(Index, S);
W := GetUTF8String(S); W := GetUTF8String(S);
TQtTextEdit(FOwner.Handle).insertLine(Index, W); TQtTextEdit(FOwner.Handle).insertLine(Index, W);
end;
FTextChanged := False; // FStringList is already updated, no need to update from WS. FTextChanged := False; // FStringList is already updated, no need to update from WS.
end; end;