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

Qt: QtTextEdit: recognize html tags and use insertLine in that case. fixes #17170

Browse Source 
git-svn-id: trunk@27195 -
This commit is contained in:
zeljko 2010-08-26 11:25:16 +00:00
parent 0822eb52d5
commit ac142e838f
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -159,11 +159,7 @@ begin
QTextEdit_clear(TextEdit);
QTextEdit_setPlainText(TextEdit,@W);
end else
begin
W := StringReplace(W,'<','&lt;',[rfReplaceAll]);
W := StringReplace(W,'>','&gt;',[rfReplaceAll]);
QTextEdit_append(TextEdit,@W);
end;
if QTextEdit_alignment(TextEdit) <> AlignmentMap[TCustomMemo(FOwner).Alignment] then
QTextEdit_setAlignment(TextEdit, AlignmentMap[TCustomMemo(FOwner).Alignment]);
@ -393,12 +389,20 @@ begin
if Index <= FStringList.Count then
begin
FStringList.Insert(Index, S);
// append is much faster in case when we add strings
if TQtTextEdit(FOwner.Handle).getBlockCount - Index <= 1 then
begin
W := S;
ExternalUpdate(W, False);
FTextChanged := False;
if (UTF8Pos('<', S) > 0) or (UTF8Pos('>',S) > 0) then
begin
// workaround for qt richtext parser bug
W := GetUTF8String(S);
TQtTextEdit(FOwner.Handle).insertLine(Index, W);
end else
begin
// append is much faster in case when we add strings
W := S;
ExternalUpdate(W, False);
FTextChanged := False;
end;
end else
begin
W := GetUTF8String(S);