From fcf28f89850db0934c362cfb784ea507f87e6d4e Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 29 Sep 2007 13:15:11 +0000
Subject: [PATCH] Qt: trial to fix all qtcaret crashes.

git-svn-id: trunk@12240 -
---
 lcl/interfaces/qt/qtcaret.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt/qtcaret.pas b/lcl/interfaces/qt/qtcaret.pas
index f9d78cb6c9..7309ea57fc 100644
--- a/lcl/interfaces/qt/qtcaret.pas
+++ b/lcl/interfaces/qt/qtcaret.pas
@@ -342,7 +342,7 @@ end;
 procedure TEmulatedCaret.SetPos(const Value: TQtPoint);
 begin
 
-  if (FWidget = nil) then
+  if (FWidget = nil) or (FWidget.Widget = nil) then
   begin
     FPos.X := 0;
     FPos.Y := 0;
@@ -438,7 +438,7 @@ procedure TEmulatedCaret.UpdateCaret;
 var
   R: TRect;
 begin
-  if (FWidget <> nil) then
+  if (FWidget <> nil) and (FWidget.Widget <> nil) then
   begin
     R.Left := FPos.x;
     R.Top := FPos.y;