anchor.diff:      procedure   AddUnitToProject(const AUnitName: TfpgString);
       procedure   miProjectAddUnitToProject(Sender: TObject);
       procedure   tvProjectDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
  +    procedure   tvProjectKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
       procedure   grdMessageKeyPressed(Sender: TObject; var KeyCode: Word; var ShiftState: TShiftState; var Consumed: Boolean);
       procedure   TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet);
       procedure   BuildTerminated(Sender: TObject);
  
positive.code:   end;
  end;
  
  procedure TMainForm.grdMessageKeyPressed(Sender: TObject; var KeyCode: Word; var ShiftState: TShiftState; var Consumed: Boolean);
  var
    cr: TClipboardKeyType;
  
negative.code:     Hint := '';
      TabOrder := 20;
      OnDoubleClick := @tvProjectDoubleClick;
      OnKeyPress := @tvProjectKeyPressed;
    end;
  
    tsFiles := TfpgTabSheet.Create(pnlTool);
  