anchor.diff:    PntPanel: TWinControl; //TPaintPanel;
     Tmp: ThtFont;
   begin
  -  inherited;
  +  inherited Create(Parent,Position,L,Prop);
     CodePage := Prop.CodePage;
     Multiple := L.Find(MultipleSy, T);
     PntPanel := Document.PPanel;
  
positive.code: 
  procedure TTextAreaFormControlObj.ProcessProperties(Prop: TProperties);
  begin
    inherited;
    if BkColor <> clNone then
      FControl.Color := BkColor;
  end;
  
negative.code: var
    x, y: Integer;
  begin
    inherited DrawInline1(Canvas,X1,Y1);
    if IsCopy then
      with FControl do
      begin
  