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

qt intf: fixed showing caret when FWidget got context, bug #16905

Browse Source 
git-svn-id: trunk@30747 -
This commit is contained in:
mattias 2011-05-15 12:27:49 +00:00
parent d16f3a06da
commit 4eb05d0a4e
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditpointclasses.pas
View File

@ -31,7 +31,7 @@ unit SynEditPointClasses;
{$I synedit.inc} {$I synedit.inc}
{$DEFINE SynCaretDebug} {off $DEFINE SynCaretDebug}
interface interface

5
lcl/interfaces/qt/qtcaret.pas
View File

@ -28,7 +28,7 @@ unit QtCaret;
interface interface
{$DEFINE VerboseQtCaret} {off $DEFINE VerboseQtCaret}
{$I qtdefines.inc} {$I qtdefines.inc}
@ -384,7 +384,8 @@ begin
{$ENDIF} {$ENDIF}
Hide; Hide;
SetWidget(AWidget); SetWidget(AWidget);
if FCaretDirty and (AWidget <> nil) then if (FCaretDirty or (FPixmap=nil))
and (AWidget <> nil) and (FWidget.Context<>0) then
begin begin
CreateCaret(FWidget, nil, FLastValidWidth, FLastValidHeight); CreateCaret(FWidget, nil, FLastValidWidth, FLastValidHeight);
if (FCaretDirtyPos.X > 0) or (FCaretDirtyPos.Y > 0) then if (FCaretDirtyPos.X > 0) or (FCaretDirtyPos.Y > 0) then