anchor.diff:      end;
   end;
   
  -constructor TfpgWidget.Create(aowner: TComponent);
  +constructor TfpgWidget.Create(AOwner: TComponent);
   begin
     FOnScreen := False;
  -  FVisible := True;
  +  FVisible  := True;
     FActiveWidget := nil;
     FEnabled      := True;
     FFocusable := False;
  
positive.code:   FAlign := alNone;
  //  OnKeyPress := nil;
  
    if (aowner <> nil) and (aowner is TfpgWidget) then
      FParent := TfpgWidget(aowner)
    else
      FParent := nil;
  
  
negative.code: end;
  
  procedure TfpgWidget.MsgMouseDown(var msg: TfpgMessageRec);
  var
    mb: TMouseButton;
  begin
    case msg.Params.mouse.Buttons of
      MOUSE_LEFT:
        begin
          mb := mbLeft;
          HandleLMouseDown(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate);
        end;
      MOUSE_RIGHT:
        begin
          mb := mbRight;
          HandleRMouseDown(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate);
        end;
      MOUSE_MIDDLE:
        begin
          mb := mbMiddle;
        end;
    end;
    if Assigned(FOnMouseDown) then
      FOnMouseDown(self, mb,
          GetKeyboardShiftState(msg.Params.mouse.shiftstate),
          Point(msg.Params.mouse.x, msg.Params.mouse.y));
  end;
  
  procedure TfpgWidget.MsgMouseUp(var msg: TfpgMessageRec);
  var
    mb: TMouseButton;
  begin
    case msg.Params.mouse.Buttons of
      MOUSE_LEFT:
        begin
          mb := mbLeft;
          HandleLMouseUp(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate);
        end;
      MOUSE_RIGHT:
        begin
          mb := mbRight;
          HandleRMouseUp(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate);
        end;
      MOUSE_MIDDLE:
        begin
          mb := mbMiddle;
        end;
    end;
    if Assigned(FOnMouseUp) then
      FOnMouseUp(self, mb,
          GetKeyboardShiftState(msg.Params.mouse.shiftstate),
          Point(msg.Params.mouse.x, msg.Params.mouse.y));
  end;
  
  procedure TfpgWidget.MsgMouseMove(var msg: TfpgMessageRec);
  