anchor.diff:  begin
     if FDesignElement <> Value then
     begin
  -    if FDesignElement <> nil then
  -      RemoveHaftList(Canvas);
       FDesignElement := Value;
  -    if FDesignElement <> nil then
  -      AddHaftList(Canvas);
     end;
   end;
   
   procedure TContainer.PaintBackground(vCanvas: TCanvas);
   begin
  -
   end;
   
   procedure TContainer.ReadElement(Reader: TReader);
  
positive.code: 
  procedure TCustomBoard.Paint;
  begin
    //aRect := Canvas.ClipRect;
    Canvas.Brush.Color := clWindow;
    //Canvas.FillRect(ClientRect);
    RemoveHaftList(Canvas);
    FLayouts.PaintBackground(Canvas);
    FLayouts.Paint(Canvas);
    //FLayouts.ExcludeClipRect(Canvas);
    AddHaftList(Canvas);
  end;
  
  procedure TCustomBoard.RemoveHaftList(vCanvas: TCanvas);
  begin
    if HasHaft then
    begin
      if DesignElement <> nil then
        DesignElement.PaintHaftList(vCanvas);
      HasHaft := False;
    end;
  end;
  
  procedure TCustomBoard.Reset;
  begin
  
  end;
  
  procedure TCustomBoard.Resize;
  
negative.code: interface
  
  uses
    Messages, SysUtils, Classes, Controls, LCLIntf,
    Forms, Graphics, Contnrs, ImgList,
    StdCtrls, ExtCtrls;
  
  const
    OblongCursors: array[0..7] of TCursor = (crSizeNWSE, crSizeNS, crSizeNESW, crSizeWE, crSizeNWSE, crSizeNS, crSizeNESW, crSizeWE);
  