Changeset 24 for trunk/IDE/Forms

Timestamp:

Nov 10, 2010, 9:42:27 AM (14 years ago)

Author:

george

Message:

• Added: Parsing type parameters.
• Fixed: Saving edited files.

Location:

trunk/IDE/Forms

Files:

• UCodeForm.pas (modified) (2 diffs)
• UMainForm.lfm (modified) (3 diffs)
• UMainForm.pas (modified) (7 diffs)
• UMessagesForm.lfm (modified) (1 diff)
• UMessagesForm.pas (modified) (1 diff)
• UProjectManager.pas (modified) (1 diff)

trunk/IDE/Forms/UCodeForm.pas

@@ -19 +19 @@
     procedure SynEditSourceChange(Sender: TObject);
   private
-    { private declarations }
+    FProjectFile: TProjectFile;
+    procedure SetProjectFile(const AValue: TProjectFile);
   public
-    ProjectFile: TProjectFile;
+    property ProjectFile: TProjectFile read FProjectFile write SetProjectFile;
+    procedure Save;
   end; 
 
@@ -41 +43 @@
 end;
 
+procedure TCodeForm.SetProjectFile(const AValue: TProjectFile);
+begin
+  if FProjectFile = AValue then Exit;
+  FProjectFile := AValue;
+  if Assigned(AValue) then
+    SynEditSource.Lines.Assign(FProjectFile.Source)
+    else SynEditSource.ClearAll;
+end;
+
+procedure TCodeForm.Save;
+begin
+  if Assigned(ProjectFile) then
+    ProjectFile.Source.Assign(SynEditSource.Lines);
+end;
+
 end.
 

trunk/IDE/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 362
+  Left = 336
   Height = 501
-  Top = 115
+  Top = 102
   Width = 695
   Caption = 'Transpascal IDE'
@@ -152 +152 @@
       Caption = 'New'
       Hint = 'Create new project'
+      OnExecute = AProjectNewExecute
     end
     object AProjectOpen: TAction
@@ -164 +165 @@
       Hint = 'Save project to disk'
       OnExecute = AProjectSaveExecute
+      ShortCut = 16467
     end
     object AProjectSaveAs: TAction

trunk/IDE/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UCompiler, Registry,
+  Dialogs, StdCtrls, UCompiler, Registry, Contnrs,
   ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
   UProject, FileUtil, Menus, ActnList, UCoolDocking,
@@ -52 +52 @@
     ToolBar1: TToolBar;
     procedure AProjectCloseExecute(Sender: TObject);
+    procedure AProjectNewExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AProjectSaveAsExecute(Sender: TObject);
@@ -91 +92 @@
 procedure TMainForm.ABuildExecute(Sender: TObject);
 begin
+  CodeForm.Save;
+
   // Compile project file
   if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
@@ -208 +211 @@
 begin
   Project.LoadFromFile(FileName);
-  LastOpenedFiles.Add(FileName);
+  LastOpenedFiles.AddItem(FileName);
   LastOpenedFiles.ReloadMenu;
   ProjectManager.UpdateProjectTree;
@@ -235 +238 @@
   for I := 0 to Compiler.Producers.Count - 1 do
     ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
+
   ComboBoxAnalyzer.Clear;
   for I := 0 to Compiler.Analyzers.Count - 1 do
@@ -289 +293 @@
 end;
 
+procedure TMainForm.AProjectNewExecute(Sender: TObject);
+begin
+  Project.Clear;
+  Project.Name := 'New project';
+  ProjectManager.UpdateProjectTree;
+  Caption := ApplicationInfo.Name + ' - ' + Project.Name;
+end;
+
 procedure TMainForm.AProjectSaveAsExecute(Sender: TObject);
 begin
   if SaveDialog1.Execute then begin
     Project.SaveToFile(SaveDialog1.FileName);
+    CodeForm.Save;
     Project.Save;
   end;
@@ -299 +312 @@
 procedure TMainForm.AProjectSaveExecute(Sender: TObject);
 begin
+  CodeForm.Save;
   Project.SaveToFile(Project.GetDir(True) + Project.Name + '.tppr');
 end;

trunk/IDE/Forms/UMessagesForm.lfm

@@ -26 +26 @@
         Width = 500
       end>
-    ItemIndex = -1
     OwnerData = True
     ReadOnly = True

trunk/IDE/Forms/UMessagesForm.pas

@@ -47 +47 @@
 procedure TMessagesForm.ListView1Click(Sender: TObject);
 begin
-  ListView1SelectItem(Self, ListView1.Selected, ListView1.Selected.Selected);
+  if Assigned(ListView1.Selected) then
+    ListView1SelectItem(Self, ListView1.Selected, ListView1.Selected.Selected);
 end;
 

trunk/IDE/Forms/UProjectManager.pas

@@ -77 +77 @@
     NewNode.Expand(True);
     EndUpdate;
-    TreeViewProject.TopItem.Items[0].Selected := True;
+    if Assigned(TreeViewProject.TopItem) and
+      (TreeViewProject.TopItem.Count > 0) then
+      TreeViewProject.TopItem.Items[0].Selected := True
+      else CodeForm.ProjectFile := nil;
   end;
 end;