diff options
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index fe38017f..4da2cfac 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -1007,7 +1007,7 @@ begin if InDesigner then exit; - if WinHandle = 0 then + if IsLoading then exit; RemoveCursor; @@ -1066,8 +1066,10 @@ ProfileEvent('DEBUG: TRichTextView.Layout >>>>'); if InDesigner then exit; - if WinHandle = 0 then + + if IsLoading then exit; + ProfileEvent('DEBUG: TRichTextView.Layout 1 of 6'); FSelectionEnd := -1; FSelectionStart := -1; |