FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oDlg, cValue

   DEFINE DIALOG oDlg

   @ 1, 1 LISTBOX cValue ITEMS { "one", "two", "three" } ;
      ON CHANGE Another()
      
   @ 3, 6 BUTTON "Ok" ACTION MsgInfo( "ok" )
   
   @ 3, 13 BUTTON "Cancel" ACTION MsgInfo( "Cancel" )

   ACTIVATE DIALOG oDlg CENTERED

return nil

function Another()

   local oDlg
   
   DEFINE DIALOG oDlg SIZE 200, 100
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil

Borg DIALOG 0, 0, 260, 245
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "BORG"
FONT 8, "Ms Shell Dlg"
{
    CONTROL         "OK", 6, WC_BUTTON, WS_TABSTOP | BS_DEFPUSHBUTTON, 77, 219, 50, 14
    CONTROL         "Cancel", 7, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 219, 50, 14
    CONTROL         "Dyspnea", 1, WC_STATIC, NOT WS_GROUP | SS_LEFT, 61, 2, 29, 8
    CONTROL         "", 2, WC_EDIT, NOT WS_BORDER | ES_AUTOHSCROLL, 55, 15, 40, 14
    CONTROL         "", 3, WC_EDIT, NOT WS_BORDER | ES_AUTOHSCROLL, 164, 15, 40, 14
    CONTROL         "Fatigue", 4, WC_STATIC, NOT WS_GROUP | SS_LEFT, 170, 2, 24, 8
    CONTROL         "0", 10, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 22, 37, 50, 50
    CONTROL         "0.5", 11, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 77, 37, 50, 50
    CONTROL         "1", 12, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 37, 50, 50
    CONTROL         "2", 13, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 187, 37, 50, 50
    CONTROL         "3", 14, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 21, 92, 50, 50
    CONTROL         "4", 15, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 77, 92, 50, 50
    CONTROL         "5", 16, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 92, 50, 50
    CONTROL         "6", 17, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 187, 92, 50, 50
    CONTROL         "7", 18, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 21, 147, 50, 50
    CONTROL         "8", 19, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 77, 147, 50, 50
    CONTROL         "9", 20, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 132, 147, 50, 50
    CONTROL         "10", 21, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 187, 147, 50, 50
}

PatList DIALOG 0, 0, 367, 190
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Select Patient"
FONT 8, "Ms Shell Dlg"
{
    CONTROL         "", 1, WC_LISTBOX, WS_TABSTOP | WS_VSCROLL | NOT WS_BORDER | LBS_DISABLENOSCROLL | LBS_NOINTEGRALHEIGHT | LBS_SORT | LBS_NOTIFY, 2, 5, 300, 180
    CONTROL         "Exit", 2, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 307, 171, 55, 14
    CONTROL         "New Patient", 3, WC_BUTTON, WS_TABSTOP | BS_DEFPUSHBUTTON, 307, 5, 55, 14
    CONTROL         "Search", 4, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 307, 24, 55, 14
    CONTROL         "Unread Reports", 5, WC_BUTTON, WS_TABSTOP | BS_PUSHBUTTON, 307, 43, 55, 14
}

#include "FiveWin.ch"

function Main()

   local oDlg, cVal1, cVal2

   DEFINE DIALOG oDlg RESOURCE "Borg"
   
   REDEFINE GET cVal1 ID 200 OF oDlg
   REDEFINE GET cVal2 ID 3 OF oDlg
   
   REDEFINE BUTTON ID 10 OF oDlg ACTION MsgInfo( 10 )
   REDEFINE BUTTON ID 11 OF oDlg ACTION MsgInfo( 11 )
   REDEFINE BUTTON ID 12 OF oDlg ACTION MsgInfo( 12 )
   REDEFINE BUTTON ID 13 OF oDlg ACTION MsgInfo( 13 )
   REDEFINE BUTTON ID 14 OF oDlg ACTION MsgInfo( 14 )
   REDEFINE BUTTON ID 15 OF oDlg ACTION MsgInfo( 15 )
   REDEFINE BUTTON ID 16 OF oDlg ACTION MsgInfo( 16 )
   REDEFINE BUTTON ID 17 OF oDlg ACTION MsgInfo( 17 )
   REDEFINE BUTTON ID 18 OF oDlg ACTION MsgInfo( 18 )
   REDEFINE BUTTON ID 19 OF oDlg ACTION MsgInfo( 19 )
   REDEFINE BUTTON ID 20 OF oDlg ACTION MsgInfo( 20 )
   REDEFINE BUTTON ID 21 OF oDlg ACTION MsgInfo( 21 )

   REDEFINE BUTTON ID 6 OF oDlg ACTION MsgInfo( "ok" )
   REDEFINE BUTTON ID 7 OF oDlg ACTION MsgInfo( "cancel" )
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil