Changeset 127 for branches/generator/Forms/UFormMain.pas

Timestamp:

Nov 30, 2017, 5:19:57 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Correctly set filename in open/save dialog.
• Modified: Improved generation of compiler code.

File:

• branches/generator/Forms/UFormMain.pas (modified) (4 diffs)

branches/generator/Forms/UFormMain.pas

@@ -45 +45 @@
     ToolButton1: TToolButton;
     ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
     procedure ABuildCompilerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -78 +82 @@
   SUnsavedChanges = 'Unsaved changes';
   SDoYouWantToSaveProject = 'There are unsaved changes in project. Do you want to save them?';
-  SNewGrammer = 'New grammer.xtg';
+  SNewGrammer = 'New grammer.grm';
 
   { TFormMain }
@@ -96 +100 @@
 procedure TFormMain.AProjectSaveAsExecute(Sender: TObject);
 begin
-  SaveDialog1.FileName := Core.Grammer.FileName;
+  SaveDialog1.InitialDir := ExtractFileDir(Core.Grammer.FileName);
+  SaveDialog1.FileName := ExtractFileName(Core.Grammer.FileName);
   if SaveDialog1.Execute then begin
     Core.LastOpenedFile := SaveDialog1.FileName;
@@ -192 +197 @@
   AProjectClose.Execute;
   if not Assigned(Core.Grammer) then begin
-    OpenDialog1.FileName := Core.LastOpenedFile;
+    OpenDialog1.InitialDir := ExtractFileDir(Core.LastOpenedFile);
+    OpenDialog1.FileName := ExtractFileName(Core.LastOpenedFile);
     if OpenDialog1.Execute then begin
       Core.LastOpenedFile := OpenDialog1.FileName;