Changeset 15 for trunk/StudioPackage/Forms

Timestamp:

Aug 6, 2012, 2:35:22 PM (12 years ago)

Author:

chronos

Message:

• Added: Registration of new file templates for modules.
• Added: Program stores last opened file list in registry.

Location:

trunk/StudioPackage/Forms

Files:

• UFormMain.lfm (modified) (7 diffs)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (14 diffs)
• UFormNewFile.lfm (added)
• UFormNewFile.lrt (added)
• UFormNewFile.pas (added)
• UFormProjectNew.lrt (added)

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 150
+  Left = 240
   Height = 520
-  Top = 112
+  Top = 108
   Width = 747
   Caption = 'LibreDevelop Studio'
@@ -27 +27 @@
     Width = 747
     Caption = 'ToolBar1'
+    Images = DataModule1.ImageListMain
     TabOrder = 1
     object ToolButton1: TToolButton
       Left = 1
-      Hint = 'New project'
       Top = 2
-      Caption = 'New...'
-      ImageIndex = 4
+      Action = AFileNew
     end
     object ToolButton2: TToolButton
       Left = 24
-      Hint = 'Open project'
       Top = 2
-      Caption = 'Open...'
-      ImageIndex = 8
+      Action = AFileOpen
+      DropdownMenu = PopupMenuRecentFiles
+      Style = tbsDropDown
     end
     object ToolButton3: TToolButton
-      Left = 47
-      Hint = 'Save project'
+      Left = 59
       Top = 2
-      Caption = 'Save'
-      ImageIndex = 13
+      Action = AFileSaveAs
     end
     object ToolButton4: TToolButton
-      Left = 70
-      Hint = 'Close project'
+      Left = 82
       Top = 2
-      Caption = 'Close'
-      ImageIndex = 3
+      Action = AFileClose
     end
   end
@@ -117 +112 @@
         Action = AFileOpen
       end
-      object MenuItem29: TMenuItem
-        Action = AFileOpenRecent
+      object MenuItemFileOpenRecent: TMenuItem
+        Caption = 'Open recent'
+        ImageIndex = 8
+        OnClick = MenuItemFileOpenRecentClick
       end
       object MenuItem30: TMenuItem
@@ -313 +310 @@
       Caption = 'Open recent'
       ImageIndex = 8
+      OnExecute = AFileOpenRecentExecute
     end
     object AFileSave: TAction
@@ -318 +316 @@
       Caption = 'Save'
       ImageIndex = 13
+      OnExecute = AFileSaveExecute
       ShortCut = 16467
     end
@@ -324 +323 @@
       Caption = 'Save as...'
       ImageIndex = 13
+      OnExecute = AFileSaveAsExecute
       ShortCut = 24659
     end
@@ -387 +387 @@
     top = 272
   end
+  object LastOpenedList1: TLastOpenedList
+    MaxCount = 10
+    OnChange = LastOpenedList1Change
+    left = 80
+    top = 160
+  end
+  object PopupMenuRecentFiles: TPopupMenu
+    Images = DataModule1.ImageListMain
+    left = 259
+    top = 69
+  end
 end

trunk/StudioPackage/Forms/UFormMain.lrt

@@ -1 +1 @@
 TFORMMAIN.CAPTION=LibreDevelop Studio
 TFORMMAIN.TOOLBAR1.CAPTION=ToolBar1
-TFORMMAIN.TOOLBUTTON1.HINT=New project
-TFORMMAIN.TOOLBUTTON1.CAPTION=New...
-TFORMMAIN.TOOLBUTTON2.HINT=Open project
-TFORMMAIN.TOOLBUTTON2.CAPTION=Open...
-TFORMMAIN.TOOLBUTTON3.HINT=Save project
-TFORMMAIN.TOOLBUTTON3.CAPTION=Save
-TFORMMAIN.TOOLBUTTON4.HINT=Close project
-TFORMMAIN.TOOLBUTTON4.CAPTION=Close
 TFORMMAIN.MENUITEM26.CAPTION=File
+TFORMMAIN.MENUITEMFILEOPENRECENT.CAPTION=Open recent
 TFORMMAIN.MENUITEM33.CAPTION=-
 TFORMMAIN.MENUITEM2.CAPTION=Edit

trunk/StudioPackage/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, ExtCtrls, UDataModule;
+  ActnList, ComCtrls, ExtCtrls, ULastOpenedList, UCoolTranslator, UDataModule,
+  URegistry;
 
 type
@@ -44 +45 @@
     AClipboardCut: TAction;
     ActionListMain: TActionList;
+    LastOpenedList1: TLastOpenedList;
     MainMenu: TMainMenu;
     MenuItem15: TMenuItem;
@@ -60 +62 @@
     MenuItem27: TMenuItem;
     MenuItem28: TMenuItem;
-    MenuItem29: TMenuItem;
+    MenuItemFileOpenRecent: TMenuItem;
     MenuItem30: TMenuItem;
     MenuItem31: TMenuItem;
@@ -89 +91 @@
     PageControlBottom: TPageControl;
     PageControlCenter: TPageControl;
+    PopupMenuRecentFiles: TPopupMenu;
     SaveDialogFile: TSaveDialog;
     Splitter1: TSplitter;
@@ -102 +105 @@
     procedure AFileNewExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
+    procedure AFileOpenRecentExecute(Sender: TObject);
+    procedure AFileSaveAsExecute(Sender: TObject);
+    procedure AFileSaveExecute(Sender: TObject);
     procedure AViewModulesExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
@@ -108 +114 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
+    procedure MenuItemFileOpenRecentClick(Sender: TObject);
   private
     procedure DockInit;
   public
+    procedure UpdateInterface;
     procedure OpenedFileChange(Sender: TObject);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
   end;
 
@@ -117 +128 @@
   FormMain: TFormMain;
 
+
 implementation
 
@@ -122 +134 @@
 
 uses
-  UFormSourceCode, UFormSettings, UFormModuleList;
+  UFormSourceCode, UFormSettings, UFormModuleList, UFormNewFile, USource;
 
 { TFormMain }
@@ -133 +145 @@
 procedure TFormMain.AFileCloseExecute(Sender: TObject);
 begin
-  DataModule1.OpenedFiles.CloseFile(DataModule1.OpenedFiles.Selected.FileName);
+  DataModule1.OpenedFiles.CloseFile(DataModule1.OpenedFiles.Selected);
 end;
 
 procedure TFormMain.AFileNewExecute(Sender: TObject);
-begin
-  DataModule1.OpenedFiles.NewFile;
+var
+  NewFile: TSource;
+begin
+  if FormNewFile.ShowModal = mrOk then
+    if Assigned(FormNewFile.ListView1.Selected) then begin
+      NewFile := TFileTemplate(FormNewFile.ListView1.Selected.Data).Execute;
+      DataModule1.OpenedFiles.OpenFile(NewFile);
+    end;
 end;
 
@@ -145 +163 @@
   OpenDialogFile.Filter := DataModule1.FileTypes.GetDialogFilter;
   if OpenDialogFile.Execute then begin
-    DataModule1.OpenedFiles.OpenFile(OpenDialogFile.FileName);
-  end;
+    LastOpenedList1.AddItem(OpenDialogFile.FileName);
+    DataModule1.OpenedFiles.OpenFileName(OpenDialogFile.FileName);
+  end;
+end;
+
+procedure TFormMain.AFileOpenRecentExecute(Sender: TObject);
+begin
+  if Sender is TMenuItem then
+    DataModule1.OpenedFiles.OpenFileName(TMenuItem(Sender).Caption);
+end;
+
+procedure TFormMain.AFileSaveAsExecute(Sender: TObject);
+begin
+  SaveDialogFile.FileName := DataModule1.OpenedFiles.Selected.Name;
+  if SaveDialogFile.Execute then begin
+    LastOpenedList1.AddItem(SaveDialogFile.FileName);
+    DataModule1.OpenedFiles.Selected.Name := SaveDialogFile.FileName;
+  end;
+end;
+
+procedure TFormMain.AFileSaveExecute(Sender: TObject);
+begin
+
 end;
 
@@ -177 +216 @@
 begin
   DockInit;
+  UpdateInterface;
+end;
+
+procedure TFormMain.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(PopupMenuRecentFiles.Items, AFileOpenRecentExecute);
+  LastOpenedList1.LoadToMenuItem(MenuItemFileOpenRecent, AFileOpenRecentExecute);
+end;
+
+procedure TFormMain.MenuItemFileOpenRecentClick(Sender: TObject);
+begin
+
 end;
 
@@ -186 +237 @@
 }end;
 
+procedure TFormMain.UpdateInterface;
+begin
+  AFileClose.Enabled := Assigned(DataModule1.OpenedFiles.Selected);
+  AFileSave.Enabled := Assigned(DataModule1.OpenedFiles.Selected);
+  AFileSaveAs.Enabled := Assigned(DataModule1.OpenedFiles.Selected);
+end;
+
 procedure TFormMain.OpenedFileChange(Sender: TObject);
 var
@@ -193 +251 @@
   with DataModule1.OpenedFiles do begin
     for I := 0 to Count - 1 do
-    with TOpenedFile(Items[I]) do begin
+    with TSource(Items[I]) do begin
       if not Assigned(Form.Parent) then begin
         NewTabSheet := PageControlCenter.AddTabSheet;
-        NewTabSheet.Caption := ExtractFileName(FileName);
+        NewTabSheet.Caption := ExtractFileName(Name);
         //NewTabSheet.PopupMenu := ;
         Form.ManualDock(NewTabSheet, nil, alClient);
@@ -206 +264 @@
 end;
 
+procedure TFormMain.LoadFromRegistry(Context: TRegistryContext);
+begin
+  LastOpenedList1.LoadFromRegistry(Context.RootKey, Context.Key + '\RecentFiles');
+end;
+
+procedure TFormMain.SaveToRegistry(Context: TRegistryContext);
+begin
+  LastOpenedList1.SaveToRegistry(Context.RootKey, Context.Key + '\RecentFiles');
+end;
+
 end.