Refactoring

Src/Myc.Signals.pas

@@ -30,6 +30,7 @@ type
                 procedure Unsubscribe;
             end;
 
+    {$REGION 'private'}
     strict private
         class var
             FNull: ISignal;
@@ -37,7 +38,7 @@ type
 
     private
         FSignal: ISignal;
-
+    {$ENDREGION}
     public
         constructor Create(const ASignal: ISignal);
         class operator Initialize(out Dest: TSignal);
@@ -55,6 +56,7 @@ type
                 procedure Trigger;
             end;
 
+    {$REGION 'private'}
     strict private
         class var
             FNull: IEvent;
@@ -62,7 +64,7 @@ type
 
     private
         FEvent: IEvent;
-
+    {$ENDREGION}
     public
         constructor Create(const AEvent: IEvent);
         class operator Initialize(out Dest: TEvent);
@@ -85,6 +87,7 @@ type
                 property IsSet: Boolean read GetIsSet;
             end;
 
+    {$REGION 'private'}
     strict private
         class var
             FNull: IState;
@@ -93,7 +96,7 @@ type
     private
         FState: IState;
         function GetIsSet: Boolean; inline;
-
+    {$ENDREGION}
     public
         constructor Create(const AState: IState);
         class operator Initialize(out Dest: TState);
@@ -120,6 +123,7 @@ type
                 property State: TState read GetState;
             end;
 
+    {$REGION 'private'}
     strict private
         class var
             FNull: ILatch;
@@ -128,7 +132,7 @@ type
     private
         FLatch: ILatch;
         function GetState: TState; inline;
-
+    {$ENDREGION}
     public
         constructor Create(const ALatch: ILatch);
         class operator Initialize(out Dest: TLatch);
@@ -155,6 +159,7 @@ type
                 property State: TState read GetState;
             end;
 
+    {$REGION 'private'}
     strict private
         class var
             FNull: IFlag;
@@ -164,6 +169,7 @@ type
         FDirty: IFlag;
         function GetState: TState; inline;
 
+    {$ENDREGION}
     public
         constructor Create(const ADirty: IFlag);
         class operator Initialize(out Dest: TFlag);