FiveTech Support Forums

#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

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
}