FiveTech Software tech support forums

... not "see" Value assign to aSizes := --- METHOD PaintLR() have   nTextW = GetTextWidth() but PaintTB() not ... --- does METHOD DelItem(nPos) work correct :?: CLASS TFolder() have DelItem() and DelItemPos(nPos) ...

... For WingDings add 0x10000 or 0x20000 or 0x30000 to the asc value of the character for WingDings, WingDings 2, WingDings 3 * New: TMenu: New METHOD DelItem * Enhancement: MenuItem: adjust left side of items when bitmaps have different width

Biel Soy adicto a los Hash, para mi me eliminaron los DO CASE, SWITCH en algunos casos cuando quiero pasar muchos parametros a una funcion, los envio en forma de hash y se envia un solo parametro para el extend codeblock, son extremadamente practicos para ejecutar codigo que involucra pocas lineas, ...

Yo la ventaja que le veía a los arrays es que la funcionalidad quedaba encapsulada en la clase, y de esta forma queda externa y en manos del usuario. Pero la realidad es que se consigue la misma funcionalidad manteniendo la homogeneidad, personalmente la propuesta de Daniel me parece buena, y en el ...

Si, esa fue mi primera idea Dejar los dos codeblocks del DelItem y asignar a esos codeblocks las acciones que se necesiten para cada pestaña La idea de Biel tampoco me pareció mala, por eso lo implementé también, pero, evidentemente, tienes razón en ...

... 3", "Option 4", "Option 5", "Option 6";//                    BITMAPS aBitmaps;          ACTION( ::DelItem( nOption ) );          TOP ALIGN FLDBMP_RIGHT, FLDBMP_RIGHT, FLDBMP_RIGHT, FLDBMP_RIGHT, FLDBMP_RIGHT, FLDBMP_RIGHT   FOR i = 1 ...

METHOD AddItem( cItem, cResName, bRedefineControls, cnHelpId, bPrevItemDeleted, bPostItemDeleted) CLASS TFolderEx //Dos nuevos parámetros local oDlg local nLen local n local oThis := Self if ValType( ::bPrevItemAdded ) == "B" // New Eval( ::bPrevItemAdded, Self, ::nOption ) endif if Empty...

Biel, eso ya lo he quitado y alguna modificacion mas
A lo largo del fin de semana pongo el definitivo, pero como sabes, me gustaria que lo probaras cuando puedas

Buen trabajo Cristobal, yo lo veo perfecto. Ahora ando un poco justo de tiempo, pero en cuanto pueda lo pruebo en profundidad. Aunque no es problema, no veo la necesidad de iniciar los codeblocks a {||.t.}, puesto que antes de evaluar el codeblock revisas el tipo de de dato, y si no ha sido asignado...

... } )    ::aPostItemDeleted  := Array( nLen )    // New   AFill( ::aPostItemDeleted, { || .T. } ) .../...  Metodo DelItem METHOD DelItem( nOption ) CLASS TFolderEx   local nLen  := Len( ::aDialogs )   local oDlg   DEFAULT nOption := ::nOption   if ...

Saludos

Cristobal, Biel

tienen una alta calidad, si ustedes han hecho pruebas y les funciona correctamente, el siguiente paso seria implementar los cambios expuestos

Gracias

A la espera de la opinión de Daniel, quizás seria interesante disponer de un array de codeblocks para poder asignar acciones distintas según la pestaña que se cierre. Como comente antes, actualmente suplo esta ausencia colocando el codeblock en el valid del dialogo asociado a la pestaña. En el addit...

... ::bPostItemAdded, Self, ::nOption )   endifRETURN NIL//------------------------------------------------------------------------//METHOD DelItem( nOption ).../...   if Len( ::aPrompts ) > 0      if ValType( ::bPrevItemDeleted ) == "B"         Eval( ...

Biel, aun no me termina de convencer
Sigo haciendo pruebas.
Lo del bValid, creo que no es imprescindible ponerlo

Estoy buscando la Function CalPos que es llamada desde el metodo del mismo nombre pero no la encuentro

Si, así a mi también me funciona bien, gracias Cristobal.
El único pero a esta implementación para mi es el

Code: Select all  Expand view

::aDialogs[ nOption ]:bValid = { || .t. }
 

ya que yo utilizo este codeblock para asignar acciones que se ejecutan al cerrar la pestaña.