'===========================================================================
' 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