PC Toledo

... mover pra onde foi chamada, se só chamada 1 vez

FOR EACH aItem IN aNewList DESCEND
IF MoveItem( aItem, aNewList )
hb_ADel( aNewList, aItem:__EnumIndex(), .T. )
ENDIF
NEXT

ShowList( aNewList, "" )

? "Fim"
Inkey(0)

RETURN

FUNCTION ShowList( aList, cText )

LOCAL aItem
FOR EACH aItem IN ...

Lembrando também que o FOR/EACH vale pra letras.

... Activate()



IF ! Empty( oDay )
oCheck := ObjFromStack():New( xDlg, oDay )
IF oCheck:Value
cTxt += Dtoc( Stod( "2025" + StrZero( oMonth:__EnumIndex(), 2 ) + StrZero( oDay:__EnumIndex(), 2 ) ) ) + " "
ENDIF
ENDIF


Foi só teste, são tão poucas linhas, que usar OOP parece perda de tempo.
Mas ...

... FOR EACH oDay IN oMonth
IF ! Empty( oDay ) .AND. GetProperty( xDlg, oDay, "Value" ) // error
cTxt += Dtoc( Stod( "2025" + StrZero( oMonth:__EnumIndex(), 2 ) + StrZero( oDay:__EnumIndex(), 2 ) ) ) + " "
ENDIF
NEXT
NEXT
MsgBox( cTxt )

(xDlg);(xTab) // warning -w3 -es2

RETURN Nil ...

... FOR EACH oMonth IN aValue
FOR EACH oDay IN oMonth
IF ValType( oDay ) == "O" .AND. oDay:Value
cTxt += Dtoc( Stod( "2025" + StrZero( oMonth:__EnumIndex(), 2 ) + StrZero( oDay:__EnumIndex(), 2 ) ) ) + " "
ENDIF
NEXT
NEXT
hwg_MsgInfo( cTxt )

RETURN Nil


E agora mais um, pra ano anterior ...

... cTxt := "", oMonth, oDay

FOR EACH oMonth IN aValue
FOR EACH oDay IN oMonth
IF ValType( oDay ) == "O" .AND. oDay:Value
cTxt += Dtoc( Stod( "2025" + StrZero( oMonth:__EnumIndex(), 2 ) + StrZero( oDay:__EnumIndex(), 2 ) ) ) + " "
ENDIF
NEXT
NEXT
hwg_MsgInfo( cTxt )

RETURN Nil


checkbox.png

... APP_DLG_HEIGHT, cTitle,,,.T. )

DEFINE MAIN MENU OF ( xDlg )
FOR EACH aGroupList IN aMenuList
DEFINE POPUP "Data" + Ltrim( Str( aGroupList:__EnumIndex ) )
FOR EACH cDBF IN aGroupList
MENUITEM cDBF ACTION frm_funcMain( cDBF, aAllSetup ) ICON "ICOWINDOW"
NEXT
END POPUP
NEXT
END MENU

gui ...

... function(s): MessageBox(),
i18n(), HGetCaseMatch(), ANSIToWide(), HexToNum(), WideToANSI(),
RAScan(), HHasKey(), SToT(), ValToPrgExp(), hb_enumIndex(),
hb_regexReplace(), hb_Exec(), DateTime(), AtSkipStrings(), TToS(),
WildMatch(), hb_Decode(), HMerge(), HSetCaseMatch(), Notify(),
HexToStr ...

... Nil

STATIC FUNCTION LentaClick( oLenta, aPanelList )

LOCAL oChild

IF ! Empty( aPanelList )
FOR EACH oChild IN aPanelList
IF oChild:__EnumIndex() == oLenta:Value
oChild:Show()
ELSE
oChild:Hide()
ENDIF
NEXT
ENDIF

RETURN .T.

STATIC FUNCTION LentaStyles( aPanelList )

LOCAL nIndex ...

... abas

STATIC FUNCTION LentaClick( oLenta, aChildList )

LOCAL oChild

IF ! Empty( aChildList )
FOR EACH oChild IN aChildList
IF oChild:__EnumIndex() == oLenta:Value
oChild:Show()
ELSE
oChild:Hide()
ENDIF
NEXT
ENDIF

RETURN .T.


Style pra cada coluna, sei lá quantas

STATIC FUNCTION ...

... FUNCTION Browse3()

LOCAL oBrw3, aRow, aCol
LOCAL aList := Array(10,10)

FOR EACH aRow IN aList
FOR EACH aCol IN aRow
aCol := Str( aRow:__EnumIndex(), 3 ) + "." + Str( aCol:__EnumIndex(), 3 )
NEXT
NEXT

@ 500, 20 BROWSE oBrw3 ;
ARRAY ;
SIZE 280, 300 ;
STYLE WS_BORDER + WS_VSCROLL + WS ...

... again for storage after editing)
*/
aBrowseList := Array(10,10)
FOR EACH aRow IN aBrowseList
FOR EACH aCol IN aRow
aCol := Ltrim( Str( aCol:__EnumIndex() ) ) + "." + Ltrim( Str( aCol:__EnumIndex() ) )
NEXT
NEXT

IF lWithDialog
INIT DIALOG oDlg ;
TITLE "demobrowsearr.prg - Browse Array" ;
AT ...

... não é.


//hwg_CREATEARLIST( oBrowse, aBrowseList )

oBrowse:aArray := aBrowseList
FOR EACH oCol IN aBrowseList[1]
FOR EACH nTmp IN { oCol:__EnumIndex() }
oBrowse:AddColumn( HColumn():New( Ltrim(Str(nTmp, 5)),{|v,o|(v),o:aArray[o:nCurrent,nTmp]},"C",10,0,.F.,DT_CENTER ) )
NEXT
NEXT ...

... que quiser pra linhas e colunas

aBrowseList := Array(10,10)
FOR EACH aRow IN aBrowseList
FOR EACH aCol IN aRow
aCol := Ltrim( Str( aRow:__EnumIndex() ) ) + "." + Ltrim( Str( aCol:__EnumIndex() ) )
NEXT
NEXT


Mas tem o título....

hwg_CREATEARLIST( oBrowse, aBrowseList )
FOR EACH oCol ...

... pragma __text|<v>+=%s+hb_eol();<v>:=""

/* SWITCH ... ; case ... ; DEFAULT ; ... ; END */
#xcommand DEFAULT => OTHERWISE

/* FOR EACH hb_enumIndex() */
#xtranslate hb_enumIndex( <!v!> ) => <v>:__enumIndex()

/* TRY / CATCH / FINALLY / END */
#xcommand TRY => BEGIN SEQUENCE WITH ...