I want build it
I try this source
why it not run ?
- Code: Select all Expand view
#INCLUDE "FIVEWIN.CH"
Function Main()
Local odlg
Local olbx
LOCAL nLargo
Local aMat := {}
LOCAL aJus := {}
LOCAL aTit := {}
LOCAL i
LOCAL k
AADD( aMat, { "Lunedi" } )
AADD( aMat, { "Martedi" } )
AADD( aMat, { "Mercoledi" } )
AADD( aMat, { "Giovedi" } )
AADD( aMat, { "Venerdì" } )
AADD( aMat, { "Sabato" } )
nLargo := LEN( aMat )
FOR k := 1 TO 8
AADD( aMat[ nLargo ], SPACE( 10 ) )
NEXT
FOR i := 1 TO 8
AADD( aJus, 2 )
AADD( aTit, i )
NEXT
DEFINE DIALOG oDlg NAME "AGENDA" ;
TITLE "Desiderata"
REDEFINE LISTBOX oLbx FIELDS "" ;
HEADERS "" ;
ID 201 OF oDlg UPDATE
oLbx:aHeaders := aTit
oLbx:nAt := 1
oLbx:bLine := { || { aMat[ oLbx:nAt, 01 ] , ;
aMat[ oLbx:nAt, 02 ] , ;
aMat[ oLbx:nAt, 03 ] , ;
aMat[ oLbx:nAt, 04 ] , ;
aMat[ oLbx:nAt, 05 ] , ;
aMat[ oLbx:nAt, 06 ] , ;
aMat[ oLbx:nAt, 07 ] , ;
aMat[ oLbx:nAt, 08 ] ;
} }
oLbx:bGoTop := { || oLbx:nAt := 1 }
oLbx:bGoBottom := { || oLbx:nAt := EVAL( oLbx:bLogicLen ) }
oLbx:bSkip := { | nWant, nOld | nOld := oLbx:nAt, oLbx:nAt += nWant,;
oLbx:nAt := MAX( 1, MIN( oLbx:nAt, EVAL( oLbx:bLogicLen ) ) ),oLbx:nAt - nOld }
oLbx:bLogicLen := { || LEN( aMat ) }
oLbx:SetArray( aMat )
oLbx:lCellStyle := .T.
ACTIVATE DIALOG oDlg CENTERED
return nil
resource file
- Code: Select all Expand view
AGENDA DIALOG 39, 25, 378, 199
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION ""
FONT 8, "Tahoma"
{
CONTROL "", 201, "TWBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 4, 368, 170
}
