Changeset 130 for branches/generator/UGrammer.pas

Timestamp:

Dec 24, 2017, 11:13:05 AM (7 years ago)

Author:

chronos

Message:

• Modified: Show rules list docked directly to main form.

Location:

branches/generator

Files:

• . (modified) (1 prop)
• UGrammer.pas (modified) (7 diffs)

branches/generator

@@ +1 @@
+generator
 generator.exe
 generator.lps
 lib
 heaptrclog.trc
+Generated

@@ +1 @@
+generator
 generator.exe
 generator.lps
 lib
 heaptrclog.trc
+Generated

branches/generator/UGrammer.pas

@@ -113 +113 @@
   private
     FModified: Boolean;
+    FOnChange: TNotifyEvent;
+    FOnDestroy: TNotifyEvent;
     procedure SetModified(AValue: Boolean);
+    procedure DoChange;
+    procedure DoDestroy;
   public
     FileName: string;
@@ -125 +129 @@
     procedure GetUsedByRule(RefRule: TRule; UsedByRules: TStrings);
     function GetString: string;
+    procedure Change;
     property Modified: Boolean read FModified write SetModified;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property OnDestroy: TNotifyEvent read FOnDestroy write FOnDestroy;
   end;
 
@@ -141 +148 @@
   if FModified = AValue then Exit;
   FModified := AValue;
+  if AValue then DoChange;
+end;
+
+procedure TGrammer.DoChange;
+begin
+  if Assigned(FOnChange) then FOnChange(Self);
+end;
+
+procedure TGrammer.DoDestroy;
+begin
+  if Assigned(FOnDestroy) then FOnDestroy(Self);
 end;
 
@@ -165 +183 @@
     end;
   finally
-    Doc.Free;
+    FreeAndNil(Doc);
   end;
 
@@ -195 +213 @@
     Modified := False;
   finally
-    Doc.Free;
+    FreeAndNil(Doc);
   end;
 end;
@@ -213 +231 @@
 destructor TGrammer.Destroy;
 begin
+  DoDestroy;
   FreeAndNil(Rules);
   inherited Destroy;
@@ -229 +248 @@
 begin
   Result := Rules.GetString;
+end;
+
+procedure TGrammer.Change;
+begin
+  DoChange;
 end;
 

@@ +1 @@
+generator
 generator.exe
 generator.lps
 lib
 heaptrclog.trc
+Generated