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

ide: fixed using default subtarget by default

Browse Source
This commit is contained in:
mattias 2024-03-25 19:31:12 +01:00
parent cab19ae8cb
commit bcbae4f21b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/compiler_config_target.pas
View File

@ -272,6 +272,8 @@ begin
sl:=TStringListUTF8Fast.Create; sl:=TStringListUTF8Fast.Create;
try try
sl.Assign(InputHistories.HistoryLists.GetList('Subtarget',true,rltCaseInsensitive)); sl.Assign(InputHistories.HistoryLists.GetList('Subtarget',true,rltCaseInsensitive));
if sl.IndexOf('')<0 then
sl.Add(''); // always have the default target
// search for possible subtargets // search for possible subtargets
// fpc searches subtarget configs in the same directories it searches for normal configs // fpc searches subtarget configs in the same directories it searches for normal configs
@ -320,7 +322,7 @@ begin
with SubtargetComboBox do begin with SubtargetComboBox do begin
Items.BeginUpdate; Items.BeginUpdate;
Items.Assign(sl); Items.Assign(sl);
SetComboBoxText(SubtargetComboBox,Subtarget,cstCaseInsensitive); SetComboBoxText(SubtargetComboBox,'',cstCaseInsensitive);
Items.EndUpdate; Items.EndUpdate;
end; end;
finally finally