Просмотр исходного кода

Merge branch 'main' into darker

# Conflicts:
#	Projects/Src/IDE.HelperFunc.pas
#	Projects/Src/IDE.MainForm.pas
Martijn Laan 2 месяцев назад
Родитель
Сommit
f669ebd8a8
2 измененных файлов с 9 добавлено и 2 удалено
  1. 1 0
      Projects/Src/IDE.MainForm.pas
  2. 8 2
      Projects/Src/IDE.StartupForm.pas

+ 1 - 0
Projects/Src/IDE.MainForm.pas

@@ -6581,6 +6581,7 @@ begin
   InitFormTheme(Self);
   InitFormTheme(Self);
 
 
   ToolbarPanel.Color := FTheme.Colors[tcToolBack];
   ToolbarPanel.Color := FTheme.Colors[tcToolBack];
+  BodyPanel.Color := FTheme.Colors[tcBack];
 
 
   for var Memo in FMemos do begin
   for var Memo in FMemos do begin
     Memo.UpdateThemeColorsAndStyleAttributes;
     Memo.UpdateThemeColorsAndStyleAttributes;

+ 8 - 2
Projects/Src/IDE.StartupForm.pas

@@ -66,8 +66,12 @@ uses
 
 
 procedure TStartupForm.SetMRUFilesList(const MRUFilesList: TStringList);
 procedure TStartupForm.SetMRUFilesList(const MRUFilesList: TStringList);
 begin
 begin
-  OpenListBox.Items.AddStrings(MRUFilesList);
-  UpdateHorizontalExtent(OpenListBox);
+  if MRUFilesList.Count > 0 then begin
+    const NDefault = OpenListBox.Items.Count;
+    OpenListBox.Items.AddStrings(MRUFilesList);
+    UpdateHorizontalExtent(OpenListBox);
+    OpenListBox.ItemIndex := NDefault;
+  end;
 end;
 end;
 
 
 procedure TStartupForm.UpdateImages;
 procedure TStartupForm.UpdateImages;
@@ -105,6 +109,8 @@ begin
   OpenListBox.Items.Add(SCompilerMoreFiles);
   OpenListBox.Items.Add(SCompilerMoreFiles);
   OpenListBox.ItemIndex := 0;
   OpenListBox.ItemIndex := 0;
   UpdateHorizontalExtent(OpenListBox);
   UpdateHorizontalExtent(OpenListBox);
+
+  OpenRadioButton.Checked := True;
   ActiveControl := OpenRadioButton;
   ActiveControl := OpenRadioButton;
 end;
 end;