anchor.diff:  
   {%endregion}
   
  -
   end.
  -
  -
  
positive.code:     procedure SetImageListPicture(AImageList: TImageList; AIndex : SizeInt);
    end;
  
  implementation
  
  {%region TApplicationForm}
  
  
negative.code:       procedure DoClose(var CloseAction: TCloseAction); override;
        procedure DoDestroy; override;
        procedure DoDestroyed; virtual;
      public
        property ActivationCount : UInt32 read FActivatedCount;
        function AutoDispose(AObject : TObject) : TObject;
      published
        property CloseAction : TCloseAction read FCloseAction write FCloseAction;
        property OnActivateFirstTime : TNotifyEvent read FActivateFirstTime write FActivateFirstTime;
        property OnDestroyed : TNotifyEvent read FDestroyed write FDestroyed;
    end;
  
    { TWinControlHelper }
  