Changeset 6 for trunk/Forms/UProjectManager.pas

Timestamp:

Nov 5, 2010, 11:31:04 AM (14 years ago)

Author:

george

Message:

• Added: Typecasting support.
• Fixed: Function call in expressions.
• Added: Producer module specify generated file name, extension and placing.

File:

• trunk/Forms/UProjectManager.pas (modified) (3 diffs)

trunk/Forms/UProjectManager.pas

@@ -34 +34 @@
 procedure TProjectManager.TreeViewProjectChange(Sender: TObject; Node: TTreeNode
   );
-var
-  FileName: string;
 begin
   with MainForm, CodeForm do
@@ -41 +39 @@
     if TProjectNode(Node.Data) is TProjectFile then begin
       SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
-      FileName := Compiler.TargetFolder + DirectorySeparator +
-        Compiler.CompiledFolder + DirectorySeparator +
-        Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
-        if FileExists(FileName) then
+(*        if FileExists(TProjectFile(Node.Data).ProducedFileName) then
         CompiledForm.SynEdit1.Lines.LoadFromFile(FileName) else
           CompiledForm.SynEdit1.Lines.Clear;
@@ -55 +50 @@
         if ComboBoxTargetSelection.ItemIndex = 3 then
           CompiledForm.SynEdit1.Highlighter := CompiledForm.SynXMLSyn1;
-
+  *)
       (*// Load code tree view
       Compiler.Producer.Free;