FiveTech Software tech support forums

Code: Select all

hborland := LoadLibrary("BWCC32.dll")
BWCCRegister( GetResources() )
....

Code: Select all

Recurso( "PalmZap.Dll" )
DEFINE DIALOG oDlg RESNAME "Nexos_001" Of oWndp

REDEFINE GET      oNexos[1] VAR aNexos[1] ID 100 Of oDlg
REDEFINE GET      oNexos[2] VAR aNexos[2] ID 101 Of oDlg
REDEFINE COMBOBOX oNexos[3] VAR aNexos[3] ITEMS aModalidades ID 102 Of oDlg ;
         ON CHANGE If( aNexos[4] == 1,;
                       ( aNexos[5] := aListaModali[ AScan( aListaModali, {|x| x[1] == aNexos[3] } ), 2 ],;
                         aNexos[5] := aListas[ AScan( aListas, {|x| Left(x,8) == aNexos[5] } ) ],;
                         oNexos[5]:Refresh() ),;
                       ( aNexos[5] := Spac(8),;
                         oNexos[5]:Refresh() ) ) ;
         VALID ( Eval( oNexos[3]:bChange ), .T. )
oNexos[3]:bGotFocus := {|| Eval( oNexos[3]:bChange ) }

REDEFINE RADIO    oNexos[4] VAR aNexos[4] ID 103,104 Of oDlg ON CLICK Eval( oNexos[3]:bChange )

REDEFINE COMBOBOX oNexos[5] VAR aNexos[5] ITEMS aListas ID 105 Of oDlg
REDEFINE RADIO    oNexos[6] VAR aNexos[6] ID 106,107 Of oDlg
REDEFINE RADIO    oNexos[7] VAR aNexos[7] ID 108,109 Of oDlg

REDEFINE GET      oNexos[8] VAR aNexos[8] ID 110 Of oDlg

REDEFINE BUTTON oBtnSalir  ID 150 Of oDlg ACTION oDlg:End()
REDEFINE BUTTON oBtnGrabar ID 160 Of oDlg ACTION ( Grabar( aNexos, cModo ), oDlg:End() )

ACTIVATE DIALOG oDlg CENTERED

Code: Select all

NEXOS_001 DIALOG 115, 105, 355, 167
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Configuración de Sistema"
FONT 8, "Ms Sans Serif"
{
 EDITTEXT 100, 146, 14, 87, 12
 EDITTEXT 101, 146, 30, 188, 12
 COMBOBOX 102, 146, 46, 60, 82, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP
 RADIOBUTTON "Modalidad", 103, 147, 63, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP
 RADIOBUTTON "Cliente", 104, 207, 63, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP
 COMBOBOX 105, 146, 76, 188, 82, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP
 RADIOBUTTON "Palm", 106, 147, 93, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP
 RADIOBUTTON "Sistema", 107, 207, 93, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP
 RADIOBUTTON "Palm", 108, 147, 107, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP
 RADIOBUTTON "Sistema", 109, 207, 106, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP
 EDITTEXT 110, 146, 119, 28, 12
 PUSHBUTTON "&Salir", 150, 7, 145, 50, 14
 PUSHBUTTON "&Grabar", 160, 60, 145, 50, 14
 RTEXT "Descripción :", -1, 8, 32, 135, 8
 RTEXT "Modalidad :", -1, 8, 48, 135, 8
 RTEXT "Utilizar Lista de Precios desde :", -1, 8, 64, 135, 8
 RTEXT "Lista de Precios :", -1, 8, 79, 135, 8
 RTEXT "Fecha de Notas de Venta desde :", -1, 8, 94, 135, 8
 RTEXT "Fecha de Pagos desde :", -1, 8, 109, 135, 8
 RTEXT "Largo del Número PDA : ", -1, 8, 122, 135, 8
 RTEXT "DSN de Conexion ODBC :", -1, 8, 16, 134, 8
 GROUPBOX "", -1, 9, 2, 336, 137, BS_GROUPBOX
}

Code: Select all

c:\bcc55\bin\bcc32 -c screen32.c

c:\bcc55\bin\brc32 -r palmzap.rc
c:\bcc55\bin\brc32 -r TemaXP.rc

c:\bcc55\bin\ilink32 /Tpd c:\bcc55\lib\c0d32.obj screen32.obj, palmzap.dll,,c:\bc55\lib\cw32.lib c:\bcc55\lib\import32.lib,, palmzap.res TemaXp.res

IF ERRORLEVEL 1 PAUSE

del *.i*
del *.map
del *.obj
del *.res
del *.tds

copy palmzap.dll .. /y
del palmzap.dll

echo done!