anchor.diff:    Canvas.SetColor(clGreen);
     Canvas.FillRectangle(r);
   }
  -  Canvas.EndDraw;
   end;
   
   constructor TMyWidget.Create(AOwner: TComponent);
  
positive.code: var
    r: TfpgRect;
  begin
    Canvas.BeginDraw;
    inherited HandlePaint;
    Canvas.Clear(clBlue);
  
  
negative.code:     x := 3;
  
    Canvas.DrawString(x + pofs, y + pofs, FText);
  end;
  
  procedure TXPButton.HandleLMouseDown(X, Y: integer; ShiftState: TShiftState);
  