CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics

Eliminar TaskGroup y Crear Uno nuevo en su misma ubicación

View previous topic View next topic Go down

Eliminar TaskGroup y Crear Uno nuevo en su misma ubicación

Post  hjvargas on Mon Jun 25, 2012 2:16 pm

Hola Andres, Ante todo una gran felicitación por tan prodigiosa clase, mis mas sinceros respetos, estoy trantando de activar un tastkgroup con items que actualicen al taskgroup siguiente. esta es la secuencia de código que estoy intentando pero a pesar de eliminar el taskgroup y crear el nuevo, me queda un espacio vacio entre el taskgroup y el nuevo taskgroup como si se reservara el espacio. este es el código que estoy utilizando:
oTaskPanel:Item(3):Collapse()
oTaskPanel:Item(3):Destroy()
oTaskPanel:Update()
oTaskPanel:Item(3):New( "Centros "+cParroquia,, .F., oTaskPanel,,, .T., .F.,.T.,, )
oTaskPanel:Item(3):nTop := nTop
oWndDefault := GetWndDefault()
SetWndDefault( oTaskPanel:Item(3) )
FOR x:= 1 TO LEN( aData )
cAction := "ShowMapa('"+ALLTRIM(aData[x,4])+"','"+ALLTRIM(aData[x,5])+"',oActiveX)"
oTaskPanel:Item(3):AddTask(aData[x,1], NIL,{|| &cAction }, aData[x,1]+CRLF+"Electores ="+STR(aData[x,2],7,0)+CRLF+"Mesas ="+STR(aData[x,3],3,0),.f. )
NEXT x
oTaskPanel:Item(3):Move( nTop, nLeft, oTaskPanel:Item(3):nWidth, oTaskPanel:Item(3):nHeight, .F. )
MsgInfo(STR(nLeft)+CRLF+STR(oTaskPanel:Item(3):nTop))
SetWndDefault( oTaskPanel:Item(3) )
oTaskPanel:Item(3):Update()
oTaskPanel:Update()
oTaskPanel:Item(3):Expand()

Podrias ayudarme a corregir esta falla, y a medida que voy seleccionando otros items, deja más y más espacio como si reservara el espacio de los taskgroup que existian anteriormente.

hjvargas

Posts : 2
Reputation : 0
Join date : 2012-06-25
Age : 50
Location : Venezuela, Monagas

View user profile

Back to top Go down

Resuelto

Post  hjvargas on Wed Jun 27, 2012 3:09 pm

oTaskPanel:Item(3):Collapse()
oTaskPanel:Item(3):Destroy()
oTaskPanel:Update()
ADel( oTaskPanel:aControls, 3 )
ASize( oTaskPanel:aControls, 2 )

oTaskPanel:AddGroup( "Centros "+cParroquia,, .F.,,, .T., .F.,.F.,, )
oWndDefault := GetWndDefault()
SetWndDefault( oTaskPanel:Item(3) )
cNombre, oCon )
FOR x:= 1 TO LEN( aData )
cAction := "ShowMapa('"+ALLTRIM(aData[x,4])+"','"+ALLTRIM(aData[x,5])+"',oActiveX,'"+aData[x,1]+"')"
oTaskPanel:Item(3):AddTask(aData[x,1], NIL,{|| &cAction }, aData[x,1]+CRLF+"Electores ="+STR(aData[x,2],7,0)+CRLF+"Mesas ="+STR(aData[x,3],3,0),.f. )
NEXT x
oTaskPanel:Item(3):Update()
oTaskPanel:Update()
oTaskPanel:Item(3):Expand()
SetWndDefault( oTaskPanel:Item(3) )

hjvargas

Posts : 2
Reputation : 0
Join date : 2012-06-25
Age : 50
Location : Venezuela, Monagas

View user profile

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum