anchor.diff:    H2, Addon: Integer;
     ARect: TRect;
   begin
  -  inherited;
  +  inherited DrawInline1(Canvas,X1,Y1);
     if IsCopy then
     begin
       if FControl.BorderStyle <> bsNone then
  
positive.code: 
  procedure TComboFormControlObj.ProcessProperties(Prop: TProperties);
  begin
    inherited;
    if BkColor <> clNone then
      FControl.Color := BkColor;
  end;
  
negative.code: 
  procedure TTextAreaFormControlObj.ProcessProperties(Prop: TProperties);
  begin
    inherited ProcessProperties(Prop);
    if BkColor <> clNone then
      FControl.Color := BkColor;
  end;
  