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

Qt: another fix for qt richtext parser. fixes issue #22715

Browse Source 
git-svn-id: trunk@38365 -
This commit is contained in:
zeljko 2012-08-25 06:48:51 +00:00
parent 599ff107ba
commit 4c7a01b629
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -423,7 +423,12 @@ begin
if Index <= FStringList.Count then
begin
FStringList.Insert(Index, S);
if TQtTextEdit(FOwner.Handle).getBlockCount - Index <= 1 then
// to fix #22715 we must use slower insertLine(). Rewriting
// handle from QTextEdit to QPlainTextEdit should fix speed.
// Currently we are missing Text alignment in QPlainTextEdit class,
// so that's why it's not rewritten yet.
if (Index < FStringList.Count - 1) and
(TQtTextEdit(FOwner.Handle).getBlockCount - Index <= 1) then
begin
if (System.Pos('<', S) > 0) or (System.Pos('>',S) > 0) then
begin