Changeset 156 for trunk/Forms

Timestamp:

Aug 19, 2024, 8:35:07 AM (3 months ago)

Author:

chronos

Message:

• Modified: Automatically open example file on first start.

File:

• trunk/Forms/FormMain.pas (modified) (2 diffs)

trunk/Forms/FormMain.pas

@@ -212 +212 @@
   PageControlMain.TabIndex := 0;
   try
+    if Core.Core.LastOpenedList.Items.Count = 0 then
+      Core.Core.LastOpenedList.Items.Add(CombinePaths(Core.Core.DataDir, ExamplesDir + DirectorySeparator + 'Sierpinski.b'));
+
     if Core.Core.OpenProjectOnStart and (Core.Core.LastOpenedList.Items.Count > 0) and
       FileExists(Core.Core.LastOpenedList.Items[0]) then
@@ -744 +747 @@
 begin
   if Core.Core.LastOpenedList.Items.Count > 0 then
-    FileName := Core.Core.LastOpenedList.Items[0]
-    else FileName := CombinePaths(Core.Core.DataDir, ExamplesDir);
+    FileName := Core.Core.LastOpenedList.Items[0];
   OpenDialog1.InitialDir := ExtractFileDir(FileName);
   OpenDialog1.FileName := ExtractFileName(FileName);