Changeset 49 for trunk/IDE/Forms/UFormTargetCode.pas

Timestamp:

Mar 4, 2012, 5:26:20 PM (12 years ago)

Author:

chronos

Message:

• Added: Compiled target code now can be browsed using Target project navigation.

File:

• trunk/IDE/Forms/UFormTargetCode.pas (modified) (3 diffs)

trunk/IDE/Forms/UFormTargetCode.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, SynEdit,
   SynHighlighterMulti, SynHighlighterVB, SynHighlighterPas, SynHighlighterCpp,
-  SynHighlighterXML;
+  SynHighlighterXML, UProject;
 
 type
@@ -20 +20 @@
     SynXMLSyn1: TSynXMLSyn;
   private
-    { private declarations }
+    FProjectFile: TProjectFile;
+    procedure SetProjectFile(AValue: TProjectFile);
   public
-    { public declarations }
-  end; 
+    procedure UpdateInterface;
+    property ProjectFile: TProjectFile read FProjectFile write SetProjectFile;
+  end;
 
 var
@@ -32 +34 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
+procedure TFormTargetCode.SetProjectFile(AValue: TProjectFile);
+begin
+  if FProjectFile = AValue then Exit;
+  FProjectFile := AValue;
+  if Assigned(AValue) then
+    SynEdit1.Lines.Assign(FProjectFile.Source)
+    else SynEdit1.ClearAll;
+end;
+
+procedure TFormTargetCode.UpdateInterface;
+begin
+  SynEdit1.Enabled := FormMain.Project.Active;
+  if not FormMain.Project.Active then SynEdit1.ClearAll;
+end;
+
+
 end.