anchor.diff:  
   { TfpgFrame }
   
  +procedure TfpgFrame.HandleShow;
  +begin
  +  inherited HandleShow;
  +  HandleAlignments(0, 0);
  +  if Assigned(FOnShow) then
  +    FOnShow(self);
  +end;
  +
   procedure TfpgFrame.AfterConstruction;
   begin
  +  AfterCreate;
     inherited AfterConstruction;
  -  AfterCreate;
  +  if Assigned(FOnCreate) then
  +    FOnCreate(self);
   end;
   
   procedure TfpgFrame.AfterCreate;
  
positive.code:     "forms" inside other forms. You should also be able to design such
      frames with the UI designer too. }
    TfpgFrame = class(TfpgAbstractPanel)
    protected
      WindowTitle: TfpgString;
    public
      procedure   AfterConstruction; override;
      procedure   AfterCreate; virtual;
    published
      property    AcceptDrops;
      property    Align;
  
negative.code:     property    OnDragEnter;
      property    OnDragLeave;
      property    OnDragStartDetected;
      property    OnClose: TNotifyEvent read FOnClose write FOnClose;
      property    OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
      property    OnMouseDown;
      property    OnMouseMove;
      property    OnMouseUp;
      property    OnPaint;
      property    OnShow: TNotifyEvent read FOnShow write FOnShow;
      property    OnShowHint;
    end;
  
  