anchor.diff:      FImageName: string;
       FClicked: Boolean;
       FShowImage: Boolean;
  -    FClickOnPush: 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;
  
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: begin
    if (keycode = keyReturn) or (keycode = keySpace) or (keycode = keyPEnter) then
    begin
      FOnClickPending := True;
      DoPush;
      Consumed := True;
    end
  