Changeset 49 for trunk/Compiler/UProducer.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Compiler/UProducer.pas (modified) (2 diffs)

trunk/Compiler/UProducer.pas

@@ -10 +10 @@
 type
 
+  TWriteTargetEvent = function (Name: string; Code: string): Boolean of object;
+
   { TProducer }
 
   TProducer = class
+  private
+    FOnWriteTarget: TWriteTargetEvent;
+  public
     TextSource: TStringList;
     IndentationLength: Integer;
@@ -23 +28 @@
     constructor Create;
     destructor Destroy; override;
+    property OnWriteTarget: TWriteTargetEvent read FOnWriteTarget write FOnWriteTarget;
   end;