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

Qt,Qt5: fixed LCLIntf.CreateCaret() and LCLIntf.ShowCaret() result. issue #34653

Browse Source 
git-svn-id: trunk@59590 -
This commit is contained in:
zeljko 2018-11-18 11:54:33 +00:00
parent 64c01fbbd8
commit 1893f018b5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -326,7 +326,7 @@ begin
' FWidth=',FWidth,' FHeight=',FHeight,' FWidget=',dbghex(PtrUInt(FWidget))); ' FWidth=',FWidth,' FHeight=',FHeight,' FWidget=',dbghex(PtrUInt(FWidget)));
{$ENDIF} {$ENDIF}
Result := IsValid; Result := Assigned(FPixmap);
FTimer.Enabled := True; FTimer.Enabled := True;
end; end;
@ -400,7 +400,7 @@ begin
SetPos(FPos); SetPos(FPos);
end; end;
end; end;
Result := IsValid; Result := Assigned(FPixmap);
FVisible := Result; FVisible := Result;
SetPos(FPos); SetPos(FPos);
//writeln('TEmulatedCaret.Show END Result=',Result,' IsValid=',IsValid,' Handle=',QtWidgetSet.IsValidHandle(HWND(FWidget)),' FPixmap=',FPixmap<>nil,' FWidget.Context=',FWidget.Context<>0); //writeln('TEmulatedCaret.Show END Result=',Result,' IsValid=',IsValid,' Handle=',QtWidgetSet.IsValidHandle(HWND(FWidget)),' FPixmap=',FPixmap<>nil,' FWidget.Context=',FWidget.Context<>0);

4
lcl/interfaces/qt5/qtcaret.pas
View File

@ -326,7 +326,7 @@ begin
' FWidth=',FWidth,' FHeight=',FHeight,' FWidget=',dbghex(PtrUInt(FWidget))); ' FWidth=',FWidth,' FHeight=',FHeight,' FWidget=',dbghex(PtrUInt(FWidget)));
{$ENDIF} {$ENDIF}
Result := IsValid; Result := Assigned(FPixmap);
FTimer.Enabled := True; FTimer.Enabled := True;
end; end;
@ -400,7 +400,7 @@ begin
SetPos(FPos); SetPos(FPos);
end; end;
end; end;
Result := IsValid; Result := Assigned(FPixmap);
FVisible := Result; FVisible := Result;
SetPos(FPos); SetPos(FPos);
//writeln('TEmulatedCaret.Show END Result=',Result,' IsValid=',IsValid,' Handle=',QtWidgetSet.IsValidHandle(HWND(FWidget)),' FPixmap=',FPixmap<>nil,' FWidget.Context=',FWidget.Context<>0); //writeln('TEmulatedCaret.Show END Result=',Result,' IsValid=',IsValid,' Handle=',QtWidgetSet.IsValidHandle(HWND(FWidget)),' FPixmap=',FPixmap<>nil,' FWidget.Context=',FWidget.Context<>0);