Changeset 156

Timestamp:

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

Author:

chronos

Message:

• Modified: Automatically open example file on first start.

Location:

trunk

Files:

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

trunk/Core.pas

@@ -267 +267 @@
     if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
       //ApplyToAll(DesignDPI);
-{      for I := 0 to Screen.FormCount - 1 do
+      for I := 0 to Screen.FormCount - 1 do
       if (Screen.Forms[I].WindowState = wsNormal) or
         (Screen.Forms[I].WindowState = wsMinimized) then begin
@@ -273 +273 @@
         ScaleDimensions(Screen.Forms[I], StoredDimension);
       end;
- }     ScaleImageList(ImageListMain, DesignDPI);
+      ScaleImageList(ImageListMain, DesignDPI);
     end;
   end;

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);