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

IDE: fixed crash in designer

Browse Source 
git-svn-id: trunk@64591 -
This commit is contained in:
mattias 2021-02-16 13:34:32 +00:00
parent 1f5fc709d3
commit a48c53db4e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -4328,7 +4328,7 @@ var
AComponent: TComponent; AComponent: TComponent;
begin begin
FHintTimer.Enabled := False; FHintTimer.Enabled := False;
if [dfShowEditorHints]*FFlags=[] then exit; if ([dfShowEditorHints]*FFlags=[]) or (Form=nil) then exit;
Position := Mouse.CursorPos; Position := Mouse.CursorPos;
if not (dfHasSized in FFlags) then if not (dfHasSized in FFlags) then