PC Toledo

... CLASS Megusta
RETURN aLista[nPos]

METHOD arrSize( aLista ) CLASS Megusta
RETURN Len( aLista )

METHOD arrRemove( aLista, nPos ) CLASS Megusta
ADel( aLista, nPos )
ASize( aLista, Len(aLista)-1 )
RETURN NIL

METHOD arrClear( aLista ) CLASS Megusta
ASize( aLista,0 )
RETURN NIL

METHOD ...

... AND. nX <= oTab:rBtnClose[3] .AND. nY >= oTab:rBtnClose[2] .AND. nY <= oTab:rBtnClose[4]
oTab:oPanelPage:End() // Destrói o painel de conteúdo
ADel( ::aTabs, i )
ASize( ::aTabs, Len( ::aTabs ) - 1 )
::nActiveTab := Min( ::nActiveTab, Len( ::aTabs ) )
IF ::nActiveTab > 0
::aTabs[::nActiveTab ...

... HB_AScan(matriz_Botao_Artigo, { |x| ValType( x ) == "C" .AND. x == oldNomeBT } )
IF ponteiro>0
AnulaBotoesArtigos( oldNomeBT )

// HB_ADel( matriz_Botao_Artigo, ponteiro, .T. )
ENDIF
ENDIF

IF aNomeButton !=Nil &&ATIVA OS BOTOES
ponteiro :=HB_AScan(matriz_Botao_Artigo, { |x ...

... HB_AScan(matriz_Botao_Artigo, { |x| ValType( x ) == "C" .AND. x == oldNomeBT } )
IF ponteiro>0
AnulaBotoesArtigos( oldNomeBT )

// HB_ADel( matriz_Botao_Artigo, ponteiro, .T. )
ENDIF
ENDIF

IF aNomeButton !=Nil &&ATIVA OS BOTOES DA ESCOLHA CORRENTE
ponteiro :=HB_AScan(matriz_Botao ...

... oldNomeBT } )
IF ponteiro>0
IF matriz_Botao_Artigo[ponteiro,2]=2
AnulaBotoesArtigos( oldNomeBT )
matriz_Botao_Artigo[ponteiro,2] :=1

// HB_ADel( matriz_Botao_Artigo, ponteiro, .T. )
ENDIF
ENDIF
ENDIF

IF aNomeButton !=Nil
ponteiro :=HB_AScan(matriz_Botao_Artigo, { |x,y| ValType( x[1 ...

... ENDIF

nLen := Len( ::aCB )
FOR i := 1 TO nLen
IF ::aCB[i,1] == nId .AND. ::aCB[i,2] == cId
EXIT
ENDIF
NEXT
IF Empty( block )
IF i <= nLen
ADel( ::aCB, i )
::aCB := ASize( ::aCB, nLen - 1 )
ENDIF
ELSE
IF i > nLen
AAdd( ::aCB, { nId, cId, block } )
ELSE
::aCB[i,3] := block
ENDIF ...

... ENDIF
FOR EACH cUF IN aUFList
IF hb_AScan( GetVizinhos(), { | e | e[1] == cUF } ) == 0
RETURN {}
ENDIF
NEXT
cUFOrigem := aUFList[ 1 ]
hb_ADel( aUFList, 1, .T. )
aUFDestino := aClone( aUFList )
aRotaOk := {}
DO WHILE .T.
aRotas := {}
FOR EACH cUF IN aUFDestino
AAdd( aRotas ...

... EXIT
ENDIF
FOR EACH xItem IN aList
IF xItem[1] == cUFDestino
RETURN xItem[2]
ENDIF
NEXT
cUF := aList[1][1]
aList2 := aList[1][2]
hb_ADel( aList, 1, .T. )
aTrajeto := GetVizinhos( cUF )
//? "vizinhos", nPass, hb_ValToExp( aTrajeto )
//Inkey(10)
FOR EACH xItem IN aTrajeto
aNewList ...

... NEXT
NEXT

// tentar 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 ...

... IF Empty( oBrowseSource:aArray )
RETURN Nil
ENDIF
AAdd( oBrowseTarget:aArray, AClone( oBrowseSource:aArray[ oBrowseSource:nCurrent ] ) )
hb_ADel( oBrowseSource:aArray, oBrowseSource:nCurrent, .T. )
oBrowseSource:Refresh()
oBrowseTarget:Refresh()
RETURN Nil

STATIC FUNCTION AllToBrowse ...

... IF Empty( oBrowseSource:aArray )
RETURN Nil
ENDIF
AAdd( oBrowseTarget:aArray, AClone( oBrowseSource:aArray[ oBrowseSource:nCurrent ] ) )
hb_ADel( oBrowseSource:aArray, oBrowseSource:nCurrent, .T. )
oBrowseSource:Refresh()
oBrowseTarget:Refresh()
RETURN Nil
}

@ 207, 147 BUTTON aControls ...

... BrwArrayDelElem( obrw )

* Delete array element

IF ( obrw:aArray == Nil ) .OR. Empty( obrw:aArray )
* Nothing to delete
RETURN NIL
ENDIF
Adel( obrw:aArray, obrw:nCurrent )
ASize( obrw:aArray, Len( obrw:aArray ) - 1 )
obrw:lChanged := .T.
obrw:Refresh()

RETURN Nil

STATIC FUNCTION ...

... x,...>] ) => AScan( <x> )
#xtranslate hb_RAScan( [<x,...>] ) => RAScan( <x> )
#xtranslate hb_AIns( [<x,...>] ) => AIns( <x> )
#xtranslate hb_ADel( [<x,...>] ) => ADel( <x> )
#xtranslate hb_At( [<x,...>] ) => At( <x> )

#xtranslate hb_DateTime( [<x,...>] ) => DateTime( <x> )
#xtranslate hb ...

... aControls[ i ] )
ENDDO

i := Ascan( ::aControls, { |o| hwg_Isptreq( o:handle,h ) } )
hwg_Sendmessage( h, WM_CLOSE, 0, 0 )
IF i != 0
ADel( ::aControls, i )
ASize( ::aControls, Len( ::aControls ) - 1 )
ENDIF


A idéia era apagar controles-filho antes de apagar o controle-pai, caso ...

... xDlg, @xStatusbar, "" ) )

RETURN Nil

METHOD ShowText( cText ) CLASS DlgTextMsgClass

LOCAL cItem

IF Len( ::aText ) = ::nMaxRow
ADel( ::aText, 1 )
::aText[ Len( ::aText ) ] := cText
ELSE
AAdd( ::aText, cText )
ENDIF
::cText := ""
FOR EACH cItem IN ::aText
::cText += cItem ...