'===========================================================================
' Subject: SET DEFAULT BUTTON IN DIALOG      Date: 09-16-99 (23:12)       
' Author:  Dave Navarro, Jr.                 Code: PBDLL                  
' Origin:  dave@powerbasic.com             Packet: PBDLL.ABC
'===========================================================================
'
' Set the default button in a dialog
' Requires PB/DLL 6.0 or later
' by Dave Navarro, Jr. (dave@powerbasic.com)
'

SUB ButtonSetDefault(BYVAL hDlg AS LONG, BYVAL CtlId AS LONG, BYVAL focus AS LONG)

  LOCAL OldButton AS LONG

  DIALOG SEND hDlg, %DM_GETDEFID, 0, 0 TO OldButton
  CONTROL SEND hDlg, OldButton, %BM_SETSTYLE, %BS_PUSHBUTTON, %TRUE
  CONTROL SEND hDlg, CtlId, %BM_SETSTYLE, %BS_DEFPUSHBUTTON, %TRUE
  DIALOG SEND hDlg, %DM_SETDEFID, CtlId, 0

  IF focus THEN
    CONTROL SET FOCUS hDlg, CtlId
  END IF

END SUB