diff --git a/ChatGptWizard.dproj b/ChatGptWizard.dproj index 9c45fe9..96736ea 100644 --- a/ChatGptWizard.dproj +++ b/ChatGptWizard.dproj @@ -5,10 +5,11 @@ 20.1 VCL True - Debug + Release Win32 1 Package + ChatGptWizard true @@ -23,6 +24,11 @@ Base true + + true + Base + true + true Base @@ -77,6 +83,12 @@ true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + DEBUG;$(DCC_Define) true @@ -840,6 +852,9 @@ 1 + + 1 + @@ -1101,10 +1116,12 @@ + True False + False False diff --git a/UChatGptMain.pas b/UChatGptMain.pas index 7f40299..0abfa7d 100644 --- a/UChatGptMain.pas +++ b/UChatGptMain.pas @@ -246,7 +246,7 @@ procedure TChatGptMenuWizard.ChatGPTDockableMenuClick(Sender: TObject); LvSettingObj.ReadRegistry; if LvSettingObj.ApiKey = '' then begin - if LvSettingObj.GetSetting.Trim.IsEmpty then + if (LvSettingObj.IsOffline) and (LvSettingObj.GetSetting.Trim.IsEmpty) then Exit; end; @@ -455,7 +455,7 @@ procedure TChatGptMenuWizard.AskMenuClick(Sender: TObject); if LvSettingObj.ApiKey = '' then begin - if LvSettingObj.GetSetting.Trim.IsEmpty then + if (LvSettingObj.IsOffline) and (LvSettingObj.GetSetting.Trim.IsEmpty) then Exit; end;