PC Toledo

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

... LIB clipper
BEGINAREA
# C/ASM Modules from CLIPPER.LIB
MOD accept, acopy, adel, ains, appexit, appinit, atail, cmem, dbcmd0
MOD dbcmd1, dbcmd2, dbcmd3, dbcmd4, dbcmd5, dbcreate, dbgapi, dbgshado
MOD dbnubs, dbstruct, delimdyn ...

... pn>)]

* ADEL_VET -> Apaga um elemento do vetor e reajusta o seu tamanho
#DEFINE ADEL_VET(VET,NUM) adel(VET,NUM) ; asize(VET,len(VET) - 1)

* AINS_VET -> Insere in elemento em um vetor
#define AINS_VET(vetor,n_elem,conteudo) ;
iif(n_elem > len(vetor),aadd(vetor,conteudo),vetor[n_elem ...