Преглед на файлове

Fix OpenListBox first 2 special entries missing. Oops.

Martijn Laan преди 5 години
родител
ревизия
4f34d3472a
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      Projects/CompStartup.pas

+ 1 - 1
Projects/CompStartup.pas

@@ -67,7 +67,7 @@ uses
 
 procedure TStartupForm.SetMRUFilesList(const MRUFilesList: TStringList);
 begin
-  OpenListBox.Items := MRUFilesList;
+  OpenListBox.Items.AddStrings(MRUFilesList);
   UpdateHorizontalExtent(OpenListBox);
 end;