From ed3c15b5650cbb75aa33152db7bda751b260271f Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 18 Apr 2017 16:12:51 +0000 Subject: [PATCH] IDE: useunit dialog: fixed adding unit to program uses section git-svn-id: branches/fixes_1_8@54631 - --- 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);