anchor.diff:    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;
   
  
positive.code:   end;
  end;
  
  constructor TmEditingForm.CreateNew(AOwner: TComponent; Num: Integer = 0);
  begin
    inherited CreateNew(AOwner, Num);
  
negative.code: 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 }
  