anchor.diff:  begin
     if (keycode = keyReturn) or (keycode = keySpace) or (keycode = keyPEnter) then
     begin
  +    FOnClickPending := True;
       DoPush;
       Consumed := True;
     end
  
positive.code: begin
    if (keycode = keyReturn) or (keycode = keySpace) or (keycode = keyPEnter) then
    begin
      DoRelease(1, 1); // fake co-ordinates to it executes the Click
      Consumed := True;
    end
    else
      inherited;
  
negative.code:     FImageName: string;
      FClicked: Boolean;
      FShowImage: Boolean;
      FClickOnPush: Boolean;    { Used for group buttons where click happens on "down" state. Normal buttons, the click happens on "release" state }
      FGroupIndex: integer;
      FAllowAllUp: boolean;
      FModalResult: TfpgModalResult;
  