paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 01:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed QtCaret bug where caret being drawn twice, now we remember dirty position and update after recreation.

Browse Source 
git-svn-id: trunk@26327 -
This commit is contained in:
zeljko 2010-06-29 16:48:51 +00:00
parent fd5a10c132
commit 494984d2c5
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,6 +47,7 @@ type
TEmulatedCaret = class(TComponent)
private
FCaretDirty: Boolean;
FCaretDirtyPos: TQtPoint;
FTimer: TTimer;
FOldRect: TRect;
FWidget: TQtWidget;
@ -279,6 +280,7 @@ begin
FCaretDirty := False;
FOldRect := Rect(0, 0, 1, 1);
FPos := QtPoint(0, 0);
FCaretDirtyPos := FPos;
FTimer := TTimer.Create(self);
FTimer.Enabled := False;
@ -366,6 +368,7 @@ end;
function TEmulatedCaret.Show(AWidget: TQtWidget): Boolean;
var
Pt: TQtPoint;
R: TRect;
begin
{$IFDEF VerboseQtCaret}
writeln('TEmulatedCaret.Show AWidget=',dbghex(PtrUInt(AWidget)));
@ -377,7 +380,15 @@ begin
if FCaretDirty and (AWidget <> nil) then
begin
CreateCaret(FWidget, nil, FLastValidWidth, FLastValidHeight);
SetPos(FPos);
if (FCaretDirtyPos.X > 0) or (FCaretDirtyPos.Y > 0) then
begin
Pt := FPos;
SetPos(FCaretDirtyPos);
FCaretDirtyPos := QtPoint(0, 0);
QCoreApplication_processEvents();
SetPos(Pt);
end else
SetPos(FPos);
end;
end;
Result := IsValid;
@ -407,6 +418,7 @@ begin
if (FWidget = nil) or (FWidget.Widget = nil) then
begin
// oops, our caret is dirty here.
FCaretDirtyPos := FPos;
FCaretDirty := True;
FPos := Value;
exit;