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

fixed Idle handler when no unit is open

Browse Source 
git-svn-id: trunk@7568 -
This commit is contained in:
mattias 2005-08-25 18:21:27 +00:00
parent 577379f6ec
commit bca60bcb66
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -11230,7 +11230,8 @@ begin
if AnIDesigner is TDesigner then begin
MainIDEBar.ToggleFormSpeedBtn.Enabled:=true;
end else begin
MainIDEBar.ToggleFormSpeedBtn.Enabled:=AnUnitInfo.HasResources;
MainIDEBar.ToggleFormSpeedBtn.Enabled:=(AnUnitInfo<>nil)
and AnUnitInfo.HasResources;
end;
end;
end;