paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +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

65
debugger/frames/debugger_class_options.pas
View File

@ -377,37 +377,48 @@ begin
exit;
end;
i := FDebuggerFileHistory.IndexOf(SelectedDebuggerClass.ExePathsMruGroup.ClassName);
if i >= 0 then begin
lru := TStringList(FDebuggerFileHistory.Objects[i]);
if SelectedDebuggerClass.NeedsExePath then begin
cmbDebuggerPath.Enabled := True;
cmdOpenDebuggerPath.Enabled := True;
i := FDebuggerFileHistory.IndexOf(SelectedDebuggerClass.ExePathsMruGroup.ClassName);
if i >= 0 then begin
lru := TStringList(FDebuggerFileHistory.Objects[i]);
end
else begin
lru := TStringList.Create;
lru.Assign(EnvironmentOptions.DebuggerFileHistory[SelectedDebuggerClass.ExePathsMruGroup.ClassName]);
FDebuggerFileHistory.AddObject(SelectedDebuggerClass.ExePathsMruGroup.ClassName, lru);
end;
with cmbDebuggerPath.Items do begin
BeginUpdate;
Assign(lru);
if (Count = 0)
and (SelectedDebuggerClass <> nil)
then begin
S := SelectedDebuggerClass.ExePaths;
while S <> '' do
begin
S2 := GetPart([], [';'], S);
S3 := S2;
if GlobalMacroList.SubstituteStr(S2)
then Add(S2)
else Add(S3);
if S <> '' then System.Delete(S, 1, 1);
end;
end;
EndUpdate;
end;
SetComboBoxText(cmbDebuggerPath,FSelectedDbgPropertiesConfig.DebuggerFilename,cstFilename,20);
end
else begin
lru := TStringList.Create;
lru.Assign(EnvironmentOptions.DebuggerFileHistory[SelectedDebuggerClass.ExePathsMruGroup.ClassName]);
FDebuggerFileHistory.AddObject(SelectedDebuggerClass.ExePathsMruGroup.ClassName, lru);
cmbDebuggerPath.Items.Clear;
cmbDebuggerPath.Text := '';
cmbDebuggerPath.Enabled := False;
cmdOpenDebuggerPath.Enabled := False;
end;
with cmbDebuggerPath.Items do begin
BeginUpdate;
Assign(lru);
if (Count = 0)
and (SelectedDebuggerClass <> nil)
then begin
S := SelectedDebuggerClass.ExePaths;
while S <> '' do
begin
S2 := GetPart([], [';'], S);
S3 := S2;
if GlobalMacroList.SubstituteStr(S2)
then Add(S2)
else Add(S3);
if S <> '' then System.Delete(S, 1, 1);
end;
end;
EndUpdate;
end;
SetComboBoxText(cmbDebuggerPath,FSelectedDbgPropertiesConfig.DebuggerFilename,cstFilename,20);
edName.Text := FSelectedDbgPropertiesConfig.ConfigName;
// txtAdditionalPath.Text:=EnvironmentOptions.GetParsedDebuggerSearchPath;