anchor.diff:  procedure TmEditingForm.SetReadOnly;
   begin
     FOkBtn.Visible:= false;
  +end;
  +
  +procedure TmEditingForm.ShowOkToAllButton;
  +begin
  +  FOkToAllBtn.Visible:= true;
  +  FOkToAllBtn.Left:= FCancelBtn.Left - FOkToAllBtn.Width - ScaleForMagnification(10, true);
  +  FOkBtn.Left:= FOkToAllBtn.Left - FOkBtn.Width - ScaleForMagnification(10, true);
   end;
   
   { TmEditingPanel }
  
positive.code:   end;
  end;
  
  constructor TmEditingForm.CreateNew(AOwner: TComponent; Num: Integer = 0);
  begin
    inherited CreateNew(AOwner, Num);
  
negative.code:     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;
  
  
  