FiveTech Support Forums

#include "resource.h"

IDD_CARTOLERIA_DIALOG DIALOGEX 0, 0, 400, 300
STYLE WS_CAPTION | WS_SYSMENU
CAPTION "Registry"
FONT 8, "MS Sans Serif"
BEGIN
    GROUPBOX        "Operational Headquarters",IDC_STATIC,10,10,380,150
    LTEXT           "Code:",IDC_STATIC,20,30,40,10
    EDITTEXT        IDC_CODE,70,30,50,14,ES_AUTOHSCROLL
    
    LTEXT           "Name:",IDC_STATIC,20,50,60,10
    EDITTEXT        IDC_NAME,70,50,200,14,ES_AUTOHSCROLL

    LTEXT           "Address:",IDC_STATIC,20,70,40,10
    EDITTEXT        IDC_ADDRESS,70,70,200,14,ES_AUTOHSCROLL

    LTEXT           "ZIP Code:",IDC_STATIC,20,90,40,10
    EDITTEXT        IDC_ZIP_CODE,70,90,50,14,ES_AUTOHSCROLL

    LTEXT           "City:",IDC_STATIC,130,90,40,10
    EDITTEXT        IDC_CITY,170,90,100,14,ES_AUTOHSCROLL

    LTEXT           "Country:",IDC_STATIC,20,110,40,10
    COMBOBOX        IDC_COUNTRY,70,110,100,14,CBS_DROPDOWNLIST | WS_VSCROLL

    LTEXT           "Phone:",IDC_STATIC,20,140,50,10
    EDITTEXT        IDC_PHONE,70,140,100,14,ES_AUTOHSCROLL
    LTEXT           "Mobile:",IDC_STATIC,180,140,40,10
    EDITTEXT        IDC_MOBILE,220,140,100,14,ES_AUTOHSCROLL

    LTEXT           "Email:",IDC_STATIC,20,160,50,10
    EDITTEXT        IDC_EMAIL,70,160,150,14,ES_AUTOHSCROLL

    LTEXT           "VAT Number:",IDC_STATIC,20,180,50,10
    EDITTEXT        IDC_VAT_NUMBER,70,180,100,14,ES_AUTOHSCROLL

    PUSHBUTTON      "Add Address...",IDC_BTN_ADD_ADDRESS,250,100,120,14
    PUSHBUTTON      "Attach...",IDC_BTN_ATTACH,250,200,120,14
    PUSHBUTTON      "Documents",IDC_BTN_DOCUMENTS,250,220,120,14
    PUSHBUTTON      "Payments",IDC_BTN_PAYMENTS,250,240,120,14
END

#ifndef RESOURCE_H
#define RESOURCE_H

// Dialog ID
#define IDD_CARTOLERIA_DIALOG         101

// Control IDs
#define IDC_CODE                      1001
#define IDC_NAME                      1002
#define IDC_ADDRESS                   1003
#define IDC_ZIP_CODE                  1004
#define IDC_CITY                      1005
#define IDC_COUNTRY                   1006
#define IDC_PHONE                     1007
#define IDC_MOBILE                    1008
#define IDC_EMAIL                     1009
#define IDC_VAT_NUMBER                1010

#define IDC_BTN_ADD_ADDRESS           1101
#define IDC_BTN_ATTACH                1102
#define IDC_BTN_DOCUMENTS             1103
#define IDC_BTN_PAYMENTS              1104

#endif // RESOURCE_H

#include "FiveWin.ch"
#include "resource.h"

FUNCTION Main()
   LOCAL oDlg
   LOCAL oGetCode, oGetName, oGetAddress, oGetZipCode, oGetCity
   LOCAL oCbxCountry, oGetPhone, oGetMobile, oGetEmail, oGetVAT
   LOCAL oBtnAddAddress, oBtnAttach, oBtnDocuments, oBtnPayments
   LOCAL cCode := Space(10), cName := Space(30), cAddress := Space(50)
   LOCAL cZipCode := Space(10), cCity := Space(30), cCountry := Space(20)
   LOCAL cPhone := Space(15), cMobile := Space(15), cEmail := Space(40), cVAT := Space(15)

   DEFINE DIALOG oDlg RESOURCE IDD_CARTOLERIA_DIALOG

   REDEFINE GET oGetCode VAR cCode     ID IDC_CODE OF oDlg
   REDEFINE GET oGetName VAR cName     ID IDC_NAME OF oDlg
   REDEFINE GET oGetAddress VAR cAddress  ID IDC_ADDRESS OF oDlg
   REDEFINE GET oGetZipCode VAR cZipCode  ID IDC_ZIP_CODE OF oDlg
   REDEFINE GET oGetCity VAR cCity     ID IDC_CITY OF oDlg
   REDEFINE COMBOBOX oCbxCountry VAR cCountry ID IDC_COUNTRY OF oDlg
   REDEFINE GET oGetPhone VAR cPhone    ID IDC_PHONE OF oDlg
   REDEFINE GET oGetMobile VAR cMobile   ID IDC_MOBILE OF oDlg
   REDEFINE GET oGetEmail VAR cEmail    ID IDC_EMAIL OF oDlg
   REDEFINE GET oGetVAT VAR cVAT      ID IDC_VAT_NUMBER OF oDlg

   REDEFINE BUTTON oBtnAddAddress ID IDC_BTN_ADD_ADDRESS OF oDlg ACTION MsgInfo("Add Address clicked")
   REDEFINE BUTTON oBtnAttach     ID IDC_BTN_ATTACH OF oDlg ACTION MsgInfo("Attach clicked")
   REDEFINE BUTTON oBtnDocuments  ID IDC_BTN_DOCUMENTS OF oDlg ACTION MsgInfo("Documents clicked")
   REDEFINE BUTTON oBtnPayments   ID IDC_BTN_PAYMENTS OF oDlg ACTION MsgInfo("Payments clicked")

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

#include "FiveWin.ch"
#include "resource.h"

FUNCTION Main()
   LOCAL oDlg
   LOCAL oGetCode, oGetName, oGetAddress, oGetZipCode, oGetCity
   LOCAL oCbxCountry, oGetPhone, oGetMobile, oGetEmail, oGetVAT
   LOCAL oBtnAddAddress, oBtnAttach, oBtnDocuments, oBtnPayments
   LOCAL cCode := Space(10), cName := Space(30), cAddress := Space(50)
   LOCAL cZipCode := Space(10), cCity := Space(30), cCountry := Space(20)
   LOCAL cPhone := Space(15), cMobile := Space(15), cEmail := Space(40), cVAT := Space(15)

   DEFINE DIALOG oDlg TITLE "Cartoleria Mazzini" FROM 0, 0 TO 25, 70 PIXEL

   @ 1, 1 SAY "Code:" OF oDlg
   @ 1, 10 GET oGetCode VAR cCode OF oDlg

   @ 2, 1 SAY "Name:" OF oDlg
   @ 2, 10 GET oGetName VAR cName OF oDlg

   @ 3, 1 SAY "Address:" OF oDlg
   @ 3, 10 GET oGetAddress VAR cAddress OF oDlg

   @ 4, 1 SAY "ZIP Code:" OF oDlg
   @ 4, 10 GET oGetZipCode VAR cZipCode OF oDlg

   @ 5, 1 SAY "City:" OF oDlg
   @ 5, 10 GET oGetCity VAR cCity OF oDlg

   @ 6, 1 SAY "Country:" OF oDlg
   @ 6, 10 COMBOBOX oCbxCountry VAR cCountry ITEMS {"Italy", "San Marino", "Other"} OF oDlg

   @ 7, 1 SAY "Phone:" OF oDlg
   @ 7, 10 GET oGetPhone VAR cPhone OF oDlg

   @ 8, 1 SAY "Mobile:" OF oDlg
   @ 8, 10 GET oGetMobile VAR cMobile OF oDlg

   @ 9, 1 SAY "Email:" OF oDlg
   @ 9, 10 GET oGetEmail VAR cEmail OF oDlg

   @ 10, 1 SAY "VAT Number:" OF oDlg
   @ 10, 10 GET oGetVAT VAR cVAT OF oDlg

   @ 12, 10 BUTTON oBtnAddAddress PROMPT "Add Address" ACTION MsgInfo("Add Address clicked") OF oDlg
   @ 12, 25 BUTTON oBtnAttach PROMPT "Attach" ACTION MsgInfo("Attach clicked") OF oDlg
   @ 13, 10 BUTTON oBtnDocuments PROMPT "Documents" ACTION MsgInfo("Documents clicked") OF oDlg
   @ 13, 25 BUTTON oBtnPayments PROMPT "Payments" ACTION MsgInfo("Payments clicked") OF oDlg

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL