anchor.diff:      FBottomPanel: TPanel;
       FCancelBtn: TBitBtn;
       FOkBtn: TBitBtn;
  +    FOkToAllBtn : TBitBtn;
  +    FOkToAllBtnOnClick : TNotifyEvent;
       procedure FormShow(Sender: TObject);
       procedure OkBtnClick(Sender: TObject);
  +    procedure OkToAllBtnClick(Sender: TObject);
     public
       constructor CreateNew(AOwner: TComponent; Num: Integer = 0); override;
       procedure SetReadOnly;
  +    procedure ShowOkToAllButton; virtual;
     public
       property EditingPanel: TmEditingPanel read FEditingPanel;
  +    property OkToAllBtnOnClick : TNotifyEvent read FOkToAllBtnOnClick write FOkToAllBtnOnClick;
     end;
   
   
  
positive.code:   end;
  end;
  
  constructor TmEditingForm.CreateNew(AOwner: TComponent; Num: Integer = 0);
  begin
    inherited CreateNew(AOwner, Num);
  
negative.code:   FOkBtn.OnClick:= OkBtnClick;
    FOkBtn.ModalResult:= mrNone;
  
    FOkToAllBtn:= TBitBtn.Create(FBottomPanel);
    FOkToAllBtn.Kind:= bkOK;
    FOkToAllBtn.Caption:= SOkToAllBtnCaption;
  
    FOkToAllBtn.Width := ScaleForMagnification(75, true);
    FOkToAllBtn.Height := ScaleForMagnification(30, true);
    FOkToAllBtn.Parent:= FBottomPanel;
    FOkToAllBtn.Left := 0;
    FOkToAllBtn.Top := ScaleForMagnification(8, true);
    FOkToAllBtn.Anchors:= [akTop, akRight];
    FOkToAllBtn.DefaultCaption:= true;
    FOkToAllBtn.OnClick:= OkToAllBtnClick;
    FOkToAllBtn.ModalResult:= mrNone;
    FOkToAllBtn.Visible := false;
  
    FOkToAllBtnOnClick := nil;
  
    FCancelBtn:= TBitBtn.Create(FBottomPanel);
    FCancelBtn.Kind:= bkCancel;
  
  