PC Toledo

... Nil &&ATIVA OS BOTOES
ponteiro :=HB_AScan(matriz_Botao_Artigo, { |x| ValType( x ) == "C" .AND. x == aNomeButton } )
IF ponteiro==0
HB_AIns( matriz_Botao_Artigo, , aNomeButton, .T. )
ENDIF
Carrega_Botoes_Artigos( aNomeButton )
ENDIF
Return Nil

No formulário PanelFamilias quando ...

... OS BOTOES DA ESCOLHA CORRENTE
ponteiro :=HB_AScan(matriz_Botao_Artigo, { |x| ValType( x ) == "C" .AND. x == aNomeButton } )
IF ponteiro==0
HB_AIns( matriz_Botao_Artigo, , aNomeButton, .T. )
ENDIF
Carrega_Botoes_Artigos( aNomeButton )
ENDIF
Return Nil
Basta fazer isto com o nome do botão na ...

... StrToHex( <c> )

#xtranslate hb_AScan( [<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 ...

... cName != "Mainwin"
RETURN Nil
ENDIF
aList := { ::cName }

oThis := Self
oThisAnt := oThis
DO WHILE ( oThis := oThis:oParent ) != Nil
hb_AIns( aList, 1, oThis:cName, .T. )
oThisAnt := oThis
ENDDO
DoMethod( hb_ArrayToParams( aList ), cName )
IF cName == "Activate"
::lCreated := .T ...

... LOCAL aList, oThis, oThisAnt

aList := { ::cName }

oThis := Self
oThisAnt := oThis
DO WHILE ( oThis := oThis:oParent ) != Nil
hb_AIns( aList, 1, oThis:cName, .T. )
oThisAnt := oThis
ENDDO
IF oThisAnt:lCreated
DoMethod( hb_ArrayToParams( aList ), cName )
ENDIF

RETURN Nil ...

Olá Quintas;

Use hb_AIns( <aArray>, [<nPos>], [<xValue>], [<lAutoSize>] ) → aArray

Quanto ao assunto não depender do fonte HMG; é justamente o oposto do que penso, pois posso usar o designer para posicionar os objetos rapidamente sem interferir em absolutamente nada e quanto a mudanças no núcleo da ...

Parece piada, mas apanhando com coisa básica.

Aquele AIns()..... não deu certo.

AIns() insere, mas ele não altera o tamanho do array, então o array ficava sempre só com um elemento.

... METHOD DoMethod( cName ) CLASS WINDOWClass

LOCAL aList, oThis

aList := { ::cName }

oThis := Self
DO WHILE ( oThis := oThis:oParent ) != Nil
AIns( aList, 1 )
aList[ 1 ] := oThis:cName
ENDDO
DoMethod( hb_ArrayToParams( aList ), cName )

RETURN Nil

METHOD GetProperty( cName ) CLASS ...

... METHOD DoMethod( cName ) CLASS WINDOWClass

LOCAL aList

aList := { ::cName }

oThis := Self
DO WHILE ( oThis := oThis:oParent ) != Nil
AIns( aList, 1 )
aList[ 1 ] := oThis:oParent:cName
ENDDO
DoMethod( hb_ArrayToParams( aList ), cName )

RETURN Nil


Pra usar tipo: DoMethod( "form1 ...

... StrToHex( <c> )

#xtranslate hb_AScan( [<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 ...

... aParams := hb_aParams()

if "(" $ aParams[ 1 ]
aParams[ 1 ] = StrTran( aParams[ 1 ], "()", "" )
endif

ASize( aParams, Len( aParams ) + 1 )
AIns( aParams, 1 )
aParams[ 1 ] = Self

return hb_execFromArray( aParams )

#endif


//------------------------------------------------//

METHOD ...

... L1, L2, L3 }


Quer adicionar um elemento em cada uma das listas
AEval vai processar cada uma das listas


AEval( aPrincipal, { | e | AAdd( e, 4 ) } )


É isso?

Ou vai adicionar uma lista nova?


AAdd( aPrincipal, { 1, 2, 3 } )


O AIns() é pra INSERIR em outra posição que não seja a última

Usando aEval e Hb_aIns, usado para adicionar em vetor bidimensional
Só pra não perder a dica.

... 20, 80, "Filter" )
DO WHILE .t.
acTxtActive := ::FilterOptionsAsArray( .f. )
aSize( acTxtActive, Len( acTxtActive ) + 4 )
FOR nCont = 1 TO 4
AIns( acTxtActive, 1 )
NEXT
acTxtActive[ 1 ] := "Select Fields"
acTxtActive[ 2 ] := "Show Data"
acTxtActive[ 3 ] := "Change Filter"
acTxtActive[ 4 ...

... 20, 80, "Filter" )
DO WHILE .t.
acTxtActive := ::FilterOptionsAsArray( .f. )
aSize( acTxtActive, Len( acTxtActive ) + 4 )
FOR nCont = 1 TO 4
AIns( acTxtActive, 1 )
NEXT
acTxtActive[ 1 ] := "Select Fields"
acTxtActive[ 2 ] := "Finish Filter"
acTxtActive[ 3 ] := "Change Filter"
acTxtActive ...