Changeset 136 for trunk/Forms

Timestamp:

Mar 5, 2022, 4:14:27 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update recent files list in registry immediately.
• Fixed: Regresion in debugging step in and step out.
• Fixed: Of by one index in loop start command interpretation.
• Fixed: Correctly load directory and file name into open and save dialogs.
• Modified: Faster interval for program output refresh.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.lfm

@@ -547 +547 @@
   end
   object TimerRefresh: TTimer
+    Interval = 200
     OnTimer = TimerRefreshTimer
     Left = 70

trunk/Forms/UFormMain.pas

@@ -189 +189 @@
   SFileNotFound = 'File %s not found.';
 
+const
+  ExamplesDir = 'Examples';
+
 { TFormMain }
 
@@ -259 +262 @@
     raise Exception.Create(SCloseProjectFirst);
   FormSourceCode.SynEditSource.Lines.LoadFromFile(FileName);
-  Core.LastOpenedList.AddItem(FileName);
+  Core.AddItemToLastOpenedList(FileName);
   Core.Project.FileName := FileName;
   Core.Project.Openned := True;
@@ -663 +666 @@
   AProjectClose.Execute;
   if Core.Project.Openned then Exit;
-  Core.Project.FileName := CombinePaths(Core.DataDir, 'Examples' + DirectorySeparator + SNewProject + '.b');
+  Core.Project.FileName := CombinePaths(Core.DataDir, ExamplesDir + DirectorySeparator + SNewProject + '.b');
   FormSourceCode.SynEditSource.Clear;
   Core.Project.Openned := True;
@@ -683 +686 @@
 
 procedure TFormMain.AProjectOpenExecute(Sender: TObject);
+var
+  FileName: string;
 begin
   if Core.LastOpenedList.Items.Count > 0 then
-    OpenDialog1.FileName := Core.LastOpenedList.Items[0]
-    else OpenDialog1.FileName := CombinePaths(Core.DataDir, 'Examples');
-  OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);
+    FileName := Core.LastOpenedList.Items[0]
+    else FileName := CombinePaths(Core.DataDir, ExamplesDir);
+  OpenDialog1.InitialDir := ExtractFileDir(FileName);
+  OpenDialog1.FileName := ExtractFileName(FileName);
   if OpenDialog1.Execute then begin
     AProjectClose.Execute;
@@ -697 +703 @@
 procedure TFormMain.AProjectSaveAsExecute(Sender: TObject);
 begin
-  SaveDialog1.FileName := Core.Project.FileName;
+  SaveDialog1.InitialDir := ExtractFileDir(Core.Project.FileName);
+  SaveDialog1.FileName := ExtractFileName(Core.Project.FileName);
   if SaveDialog1.Execute then begin
     FormSourceCode.SynEditSource.Lines.SaveToFile(SaveDialog1.FileName);
     Core.Project.FileName := SaveDialog1.FileName;
-    Core.LastOpenedList.AddItem(SaveDialog1.FileName);
+    Core.AddItemToLastOpenedList(SaveDialog1.FileName);
     Core.Project.Modified := False;
     UpdateInterface;
@@ -711 +718 @@
   if Core.Project.Modified and FileExists(Core.Project.FileName) then begin
     FormSourceCode.SynEditSource.Lines.SaveToFile(Core.Project.FileName);
+    Core.AddItemToLastOpenedList(Core.Project.FileName);
     Core.Project.Modified := False;
     UpdateInterface;