' *****************************************************
' BCX Source Code Generated With Dialog Converter 3.01
' For Use With BCX Translator Version 3.0
' *****************************************************
$HSCROLL 800
$VSCROLL 600


Gui "Your Application Class"
$include "Scrollfuncts.bas"

Sub FormLoad()
' *****************************************************
' Create application forms and controls
' *****************************************************
  Global Form1 As Control

  Form1 = BCX_FORM("Dialog Title", 0, 0, 160, 100, _
  DS_MODALFRAME or WS_POPUP or WS_VISIBLE or WS_CAPTION or WS_SYSMENU)
' *****************************************************
  Global Form2 As Control

  Form2 = BCX_FORM("Dialog Title", 100, 100, 160, 100, _
  DS_MODALFRAME or WS_POPUP or WS_VISIBLE or WS_CAPTION or WS_SYSMENU or WS_VSCROLL Or WS_HSCROLL)

  Global lpForm2_Proc As WNDPROC
  lpForm2_Proc = SubclassWindow(Form2, Form2_Proc)
' *****************************************************
  Global Form3 As Control

  Form3 = BCX_FORM("Dialog Title", 200, 200, 160, 100, _
  DS_MODALFRAME or WS_POPUP or WS_VISIBLE or WS_CAPTION or WS_SYSMENU)

  Global lpForm3_Proc As WNDPROC
  lpForm3_Proc = SubclassWindow(Form3, Form3_Proc)
' *****************************************************
  Global Button1 As Control
  Const  IDC_BUTTON1 = 101

  Button1 = BCX_BUTTON("Form 1 -- Button 1", _
  Form1, IDC_BUTTON1, 20, 16, 116, 14)
' *****************************************************
  Global Form2_Button1 As Control
  Const  IDC_FORM2_BUTTON1 = 201

  Form2_Button1 = BCX_BUTTON("Form 2 -- Button 2", _
  Form2, IDC_FORM2_BUTTON1, 20, 68, 100, 14)
' *****************************************************
  Global Form3_Button1 As Control
  Const  IDC_FORM3_BUTTON1 = 301

  Form3_Button1 = BCX_BUTTON("Form 3 -- Button 3", _
  Form3, IDC_FORM3_BUTTON1, 8, 12, 96, 14)
' *****************************************************

  Call Show(Form1)

  Call Show(Form2)

  Call Show(Form3)

End Sub


Begin Events
Select Case CBMSG
' *************
  Case WM_COMMAND
' *************
  IF CBCTL = IDC_BUTTON1 THEN MSGBOX "Processed from Main Events Loop"
' *************
  Case WM_CLOSE
' *************

' *************
  Case WM_DESTROY
' *************
  PostQuitMessage(0)
  Exit Function
End Select
End Events


Callback Function Form2_Proc()
'Call to InitScrollBars
   Static Frame1Scroll As BCXScrollBarParms
   Static BCX_ScrollInit As Integer
   Static BCX_siX As  SCROLLINFO
   Static BCX_siY As  SCROLLINFO

  If( NOT BCX_ScrollInit) Then
     InitScrollBars(hWnd, (&Frame1Scroll), 600,400, 1, 20, 1, 20)
     BCX_siY.cbSize=sizeof(BCX_siY)
     BCX_siX.cbSize=sizeof(BCX_siX)
     BCX_siY.fMask=SIF_ALL
     BCX_siX.fMask=SIF_ALL
     BCX_siX.nMax= Frame1Scroll.BCX_ScrollViewWidth
     BCX_siY.nMax= Frame1Scroll.BCX_ScrollViewHeight
     BCX_siY.nPage=1
     BCX_siX.nPage=1
     SetScrollInfo(hWnd,SB_VERT,&BCX_siY,TRUE)
     SetScrollInfo(hWnd,SB_HORZ,&BCX_siX,TRUE)
     BCX_ScrollInit = TRUE
  End If
'$COMMENT

  if(Msg=WM_VSCROLL) Then ' BOR WM_VSCROLL BOR WM_SIZE) Then
     ScrollBCX(hWnd,Msg,wParam,lParam,Frame1Scroll)
    EXIT FUNCTION
  End If
$COMMENT


$CCODE
  static int BCX_SmallChangeX;
  static int BCX_SmallChangeY;
  static int BCX_LargeChangeX;
  static int BCX_LargeChangeY;
  static int BCX_ScrollInit;
  static int BCX_ViewWidth  = 800;
  static int BCX_ViewHeight  = 600;
  if(!BCX_ScrollInit)
   {
     BCX_siY.cbSize=sizeof(BCX_siY);
     BCX_siX.cbSize=sizeof(BCX_siX);
     BCX_siY.fMask=SIF_ALL;
     BCX_siX.fMask=SIF_ALL;
     BCX_siX.nMax=BCX_ViewWidth;
     BCX_siY.nMax=BCX_ViewHeight;
     BCX_SmallChangeX=1;
     BCX_LargeChangeX=20;
     BCX_SmallChangeY=1;
     BCX_LargeChangeY=20;
     BCX_siY.nPage=1;
     BCX_siX.nPage=1;
     SetScrollInfo(hWnd,SB_VERT,&BCX_siY,TRUE);
     SetScrollInfo(hWnd,SB_HORZ,&BCX_siX,TRUE);
     BCX_DynaScroll=TRUE;
     BCX_ScrollInit=TRUE;
   }
 if(Msg==WM_HSCROLL||WM_VSCROLL||WM_SIZE)
   {
     BCX_Scroll(hWnd,Msg,wParam,lParam,BCX_LargeChangeX,
     BCX_LargeChangeY,BCX_SmallChangeX,BCX_SmallChangeY,
     BCX_ViewWidth,BCX_ViewHeight,BCX_DynaScroll);
   }
$CCODE
 if (Msg=WM_HSCROLL BOR WM_VSCROLL) Then 'WM_HSCROLL BOR WM_VSCROLL BOR WM_SIZE) Then
     BCX_Scroll(hWnd,Msg,wParam,lParam,Frame1Scroll.BCX_LargeChangeX, _
     Frame1Scroll.BCX_LargeChangeY,Frame1Scroll.BCX_SmallChangeX,Frame1Scroll.BCX_SmallChangeY, _
     Frame1Scroll.BCX_ScrollViewWidth,Frame1Scroll.BCX_ScrollViewHeight,Frame1Scroll.BCX_DynaScroll)
   EXIT FUNCTION
 End If
$COMMENT



Select Case CBMSG
' *************
  Case WM_COMMAND
' *************

  IF CBCTL = IDC_FORM2_BUTTON1 THEN MSGBOX "Processed from Form2_Proc()"


' *************
  Case WM_CLOSE
' *************
  Dim Raw id

  id = MessageBox(     _
  hWnd,            _
  "Are you sure?", _
  "Close Window!", _
  MB_YESNO or MB_ICONQUESTION)

  If id = IDYES Then ShowWindow(hWnd, SW_HIDE)
  Exit Function

' *************
  Case WM_DESTROY
' *************
  PostQuitMessage(0)
End Select

Function = DefWindowProc(hWnd, Msg, wParam, lParam)
End Function

Callback Function Form3_Proc()
Select Case CBMSG
' *************
  Case WM_COMMAND
' *************
  IF CBCTL = IDC_FORM3_BUTTON1 THEN MSGBOX "Processed from Form3_Proc()"
' *************
  Case WM_CLOSE
' *************
  Dim Raw id

  id = MessageBox(     _
  hWnd,            _
  "Are you sure?", _
  "Close Window!", _
  MB_YESNO or MB_ICONQUESTION)

  If id = IDYES Then ShowWindow(hWnd, SW_HIDE)
  Exit Function

' *************
  Case WM_DESTROY
' *************
  PostQuitMessage(0)
End Select

Function = DefWindowProc(hWnd, Msg, wParam, lParam)
End Function