Después de una aproximación surgen preguntas: ¿Quieres que el añadido y la edición se haga sobre la misma lista o en un textbox aparte como hace ListEditor?
Si lo quieres en la misma lista hay que:
-Establecer un botón de insertar (el de añadir solo no vale porque no estamos al final de la lista)
-Establecer un botón de Editar y una tecla rápida que lo lance
Si lo quieres en un textbox (o valuebox) aparte, las opciones son:
-Que esté siempre visible debajo, como hace ListEditor
-Que el control no sea visible y sólo aparezca debajo cuando se pulse el botón de insertar/añadir
-Que el control aparezca "flotante" sobre el ítem seleccionado en ese instante al pulsar dicho botón (al estilo InputBox)
Por otra parte en el mecanismo de pintar los iconos he hecho dos pequeña modificaciones
Código:
)
Dim ch As Object
Dim myclass As Class
myclass = Object.Class(obj)
If myclass.Symbols.Exist("Children") Then 'No todos los contenedores tienen Arrangement, por ejemplo los HBox
For Each ch In obj.Children
If Object.Type(ch) = "ToolButton" And Not IsNull(ch.tag) Then 'no todos los toolbuttons tienen tag
If aThemes Then
ch.Picture = TagPic(ch.Tag, ch.W - 7,, IIf(aThemes.Count > 0, aThemes, []))
Else
ch.Picture = TagPic(ch.Tag, ch.W - 7)
Endif
Else
If aThemes Then
Update(ch, IIf(aThemes.Count > 0, aThemes, []))
Else
Update(ch)
Endif
Endif
Next
Endif
End
Ya me cuentas el camino a seguir.
Saludos