Changeset 9 for trunk/StudioPackage/Forms

Timestamp:

Aug 3, 2012, 1:34:09 PM (12 years ago)

Author:

chronos

Message:

• Added: Form for application runtime module management.

Location:

trunk/StudioPackage/Forms

Files:

• UFormMain.lfm (modified) (5 diffs)
• UFormMain.lrt (modified) (2 diffs)
• UFormMain.pas (modified) (7 diffs)
• UFormModuleList.lfm (added)
• UFormModuleList.lrs (added)
• UFormModuleList.lrt (added)
• UFormModuleList.pas (added)

trunk/StudioPackage/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 265
+  Left = 256
   Height = 520
-  Top = 144
+  Top = 122
   Width = 747
   Caption = 'LibreDevelop Studio'
@@ -391 +391 @@
     object MenuItem2: TMenuItem
       Caption = 'Edit'
+      object MenuItem36: TMenuItem
+        Action = AUndo
+      end
+      object MenuItem35: TMenuItem
+        Action = ARedo
+      end
+      object MenuItem18: TMenuItem
+        Caption = '-'
+      end
       object MenuItem4: TMenuItem
         Action = AClipboardCopy
@@ -508 +517 @@
         }
       end
+      object MenuItem47: TMenuItem
+        Action = ADelete
+      end
       object MenuItem7: TMenuItem
         Action = ASelectAll
+      end
+    end
+    object MenuItem37: TMenuItem
+      Caption = 'Search'
+      object MenuItem38: TMenuItem
+        Action = ASearch
+      end
+      object MenuItem39: TMenuItem
+        Action = ASearchInFiles
+      end
+      object MenuItem40: TMenuItem
+        Action = AFindNext
+      end
+      object MenuItem41: TMenuItem
+        Action = AFindPrevious
+      end
+      object MenuItem42: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem43: TMenuItem
+        Action = AReplace
+      end
+      object MenuItem44: TMenuItem
+        Action = AReplaceInFiles
+      end
+      object MenuItem45: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem46: TMenuItem
+        Action = AGoToLineNumber
       end
     end
@@ -571 +613 @@
         }
       end
+      object MenuItem48: TMenuItem
+        Action = AViewModules
+      end
     end
     object MenuItem17: TMenuItem
@@ -718 +763 @@
       Caption = 'Close'
       ImageIndex = 3
+      OnExecute = AFileCloseExecute
+    end
+    object AUndo: TAction
+      Category = 'File'
+      Caption = 'Undo'
+    end
+    object ARedo: TAction
+      Category = 'File'
+      Caption = 'Redo'
+    end
+    object ASearch: TAction
+      Category = 'Search'
+      Caption = 'Search'
+    end
+    object AReplace: TAction
+      Category = 'Search'
+      Caption = 'Replace'
+    end
+    object ASearchInFiles: TAction
+      Category = 'Search'
+      Caption = 'Search in files'
+    end
+    object AGoToLineNumber: TAction
+      Category = 'Search'
+      Caption = 'Go to line number...'
+    end
+    object AReplaceInFiles: TAction
+      Category = 'Search'
+      Caption = 'Replace in files'
+    end
+    object AFindNext: TAction
+      Category = 'Search'
+      Caption = 'Find next'
+      ShortCut = 114
+    end
+    object AFindPrevious: TAction
+      Category = 'Search'
+      Caption = 'Find previous'
+      ShortCut = 8306
+    end
+    object ADelete: TAction
+      Category = 'Edit'
+      Caption = 'Delete'
+    end
+    object AViewModules: TAction
+      Caption = 'Modules'
+      OnExecute = AViewModulesExecute
     end
   end

trunk/StudioPackage/Forms/UFormMain.lrt

@@ -10 +10 @@
 TFORMMAIN.MENUITEM13.CAPTION=-
 TFORMMAIN.MENUITEM2.CAPTION=Edit
+TFORMMAIN.MENUITEM18.CAPTION=-
+TFORMMAIN.MENUITEM37.CAPTION=Search
+TFORMMAIN.MENUITEM42.CAPTION=-
+TFORMMAIN.MENUITEM45.CAPTION=-
 TFORMMAIN.MENUITEM20.CAPTION=Build
 TFORMMAIN.MENUITEM16.CAPTION=Tools
@@ -49 +53 @@
 TFORMMAIN.AFILESAVEAS.CAPTION=Save as...
 TFORMMAIN.AFILECLOSE.CAPTION=Close
+TFORMMAIN.AUNDO.CAPTION=Undo
+TFORMMAIN.AREDO.CAPTION=Redo
+TFORMMAIN.ASEARCH.CAPTION=Search
+TFORMMAIN.AREPLACE.CAPTION=Replace
+TFORMMAIN.ASEARCHINFILES.CAPTION=Search in files
+TFORMMAIN.AGOTOLINENUMBER.CAPTION=Go to line number...
+TFORMMAIN.AREPLACEINFILES.CAPTION=Replace in files
+TFORMMAIN.AFINDNEXT.CAPTION=Find next
+TFORMMAIN.AFINDPREVIOUS.CAPTION=Find previous
+TFORMMAIN.ADELETE.CAPTION=Delete
+TFORMMAIN.AVIEWMODULES.CAPTION=Modules

trunk/StudioPackage/Forms/UFormMain.pas

@@ -18 +18 @@
     ABuild: TAction;
     ABuildClean: TAction;
+    AViewModules: TAction;
+    ADelete: TAction;
+    AFindNext: TAction;
+    AFindPrevious: TAction;
+    AReplaceInFiles: TAction;
+    AGoToLineNumber: TAction;
+    ASearchInFiles: TAction;
+    ASearch: TAction;
+    AReplace: TAction;
+    AUndo: TAction;
+    ARedo: TAction;
     AFileOpenRecent: TAction;
     AFileNew: TAction;
@@ -50 +61 @@
     MenuItem16: TMenuItem;
     MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
     MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
@@ -68 +80 @@
     MenuItem33: TMenuItem;
     MenuItem34: TMenuItem;
+    MenuItem35: TMenuItem;
+    MenuItem36: TMenuItem;
+    MenuItem37: TMenuItem;
+    MenuItem38: TMenuItem;
+    MenuItem39: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem40: TMenuItem;
+    MenuItem41: TMenuItem;
+    MenuItem42: TMenuItem;
+    MenuItem43: TMenuItem;
+    MenuItem44: TMenuItem;
+    MenuItem45: TMenuItem;
+    MenuItem46: TMenuItem;
+    MenuItem47: TMenuItem;
+    MenuItem48: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
@@ -93 +119 @@
     ToolButton4: TToolButton;
     procedure AExitExecute(Sender: TObject);
+    procedure AFileCloseExecute(Sender: TObject);
     procedure AFileOpenExecute(Sender: TObject);
+    procedure AViewModulesExecute(Sender: TObject);
     procedure AViewProjectManagerExecute(Sender: TObject);
     procedure AViewSettingsExecute(Sender: TObject);
@@ -112 +140 @@
 
 uses
-  UFormProject, UFormSourceCode, UFormSettings;
+  UFormProject, UFormSourceCode, UFormSettings, UFormModuleList;
 
 { TFormMain }
@@ -119 +147 @@
 begin
   Application.Terminate;
+end;
+
+procedure TFormMain.AFileCloseExecute(Sender: TObject);
+begin
+//  DataModule1.OpenedFiles.Close(DataModule1.OpenedFiles.Selected);
 end;
 
@@ -127 +160 @@
     DataModule1.OpenedFiles.OpenFile(OpenDialogFile.FileName);
   end;
+end;
+
+procedure TFormMain.AViewModulesExecute(Sender: TObject);
+begin
+  FormModuleList.ModuleManager := DataModule1.ModuleManager;
+  FormModuleList.Show;
 end;