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

Debugger-Config: Disable path input, if debugger class does not need it

Browse Source 
git-svn-id: trunk@61555 -
This commit is contained in:
martin 2019-07-09 19:20:09 +00:00
parent ff1657deea
commit 7db25535c4
1 changed files with 38 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
debugger/frames/debugger_class_options.pas
View File

@ -377,6 +377,9 @@ begin
exit; exit;
end; end;
if SelectedDebuggerClass.NeedsExePath then begin
cmbDebuggerPath.Enabled := True;
cmdOpenDebuggerPath.Enabled := True;
i := FDebuggerFileHistory.IndexOf(SelectedDebuggerClass.ExePathsMruGroup.ClassName); i := FDebuggerFileHistory.IndexOf(SelectedDebuggerClass.ExePathsMruGroup.ClassName);
if i >= 0 then begin if i >= 0 then begin
lru := TStringList(FDebuggerFileHistory.Objects[i]); lru := TStringList(FDebuggerFileHistory.Objects[i]);
@ -408,6 +411,14 @@ begin
end; end;
SetComboBoxText(cmbDebuggerPath,FSelectedDbgPropertiesConfig.DebuggerFilename,cstFilename,20); SetComboBoxText(cmbDebuggerPath,FSelectedDbgPropertiesConfig.DebuggerFilename,cstFilename,20);
end
else begin
cmbDebuggerPath.Items.Clear;
cmbDebuggerPath.Text := '';
cmbDebuggerPath.Enabled := False;
cmdOpenDebuggerPath.Enabled := False;
end;
edName.Text := FSelectedDbgPropertiesConfig.ConfigName; edName.Text := FSelectedDbgPropertiesConfig.ConfigName;
// txtAdditionalPath.Text:=EnvironmentOptions.GetParsedDebuggerSearchPath; // txtAdditionalPath.Text:=EnvironmentOptions.GetParsedDebuggerSearchPath;