From 22f672c047d22ffba7e45d2738a19842dd9a4642 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 15 Apr 2017 19:45:10 +0000
Subject: [PATCH] IDE: use unit dialog: TUseUnitDialog.InterfaceSelected: check
 if there is a choice, bug #31666

git-svn-id: trunk@54620 -
---
 ide/useunitdlg.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/useunitdlg.pas b/ide/useunitdlg.pas
index e52cba4cba..0b2e6f0c1d 100644
--- a/ide/useunitdlg.pas
+++ b/ide/useunitdlg.pas
@@ -469,7 +469,7 @@ end;
 
 function TUseUnitDialog.InterfaceSelected: Boolean;
 begin
-  Result:=SectionRadioGroup.ItemIndex=0;
+  Result:=(not SectionRadioGroup.Enabled) or (SectionRadioGroup.ItemIndex=0);
 end;
 
 procedure TUseUnitDialog.DetermineUsesSection(ACode: TCodeBuffer);