Para el Sr. Cristobal Navarro

[D.Fernandez]

Sr. Navarro, anteriormente mencioné EasyDialog, una funcionde Mr. Tim autor de EasyReport.
Ya que Ud. mostró interes en esta utilidad, le dejo un link para bajar un ejecutable.
Este instala EasyDialog con con un ejemplo de lo que hace y varios carpetas con libs para Harbour, xHarbour y Clipper.

Sería excelente poder incluirlo en algun momento en FW.

Gracias y disculpe el atrevimiento.

www.reportdesigner.info/downloads/EasyDialog.exe

Saludos y gracias.
Dario Fernandez

[karinha]

+ 1

Y también un editor de recursos estilo WorkShop.exe by Borland.

Regards, saludos.

[karinha]

¡Qué lástima LIB muy antigua!



Regards, saludos.

[cnavarro]

Sr. Navarro, anteriormente mencioné EasyDialog, una funcionde Mr. Tim autor de EasyReport.
Ya que Ud. mostró interes en esta utilidad, le dejo un link para bajar un ejecutable.
Este instala EasyDialog con con un ejemplo de lo que hace y varios carpetas con libs para Harbour, xHarbour y Clipper.

Sería excelente poder incluirlo en algun momento en FW.

Gracias y disculpe el atrevimiento.

http://www.reportdesigner.info/downloads/EasyDialog.exe

Saludos y gracias.
Dario Fernandez

Dario, a tu disposición, ningún problema.
Mi interés en este tema, del que conozco su código, precisamente para intentar actualizarlo a las nuevas versiones de Harbour, es sólo para que los compañeros que lo utilizan expliquen sus ventajas e inconvenientes que han encontrado y pongan ejemplos e imágenes para clarificar el tema.
Aquí tienes el código

http://forums.fivetechsupport.com/viewtopic.php?f=30&t=29057#p163656

Lo que no me gusta de EasyDialog es que ha de guardar los datos en un fichero externo que ha de leer cuando va a crear el diálogo, o estoy equivocado?
Busco una solución como la que estoy intentando desarrollar con la claúsula INFIELD, es decir, que sea automático, y que para el usuario, crear una pantalla sea algo sencillo y trivial ( yo no utilizo recursos desde hace ya unos años, precisamente por el problema de redimensionar los diálogos en función de la resolución, tamaño de monitor, etc., salvo para guardar imágenes ).

[D.Fernandez]

Sr. Navarro: Muchas gracias por su tiempo.
La inquietud nace de que los dialogos se puedan redimencionar así como lo hace EasyDialog.
Para mi uso personal no es necesario que guarde nada, en realidad lo unico que me interesa
es que se redimencionen todos los componentes de un dialogo de la forma que lo hace ED.

Con el uso de recursos...ME ENCANTARIA NO UTILIZARLO. Quizas algún tip suyo me ayude.

Su solución me parece impecable, no necesitaría mas que eso. Gracias.


Muchas gracias y disculpe.

Saludos
Dario Fernandez

[cnavarro]

Tú estás utilizando EasyDialog?
Yo no lo he utilizado nunca, por eso es mi comentario

[D.Fernandez]

No, porque la lib que tengo no me funciona.

Intentaré con los prg que baje.
Voy a incluir los prg que baje, para ver si funciona.
Creo que lo que Ud. esta haciendo es espectacular, ya que es de FW.

Aclarando...Algunos cliente necesitan agrandar los dialogos para sentirse mas comodos.
Solo hasta ahi es mi interes.

Muy amable y gracias.

Saludos

Dario Fernandez

[cnavarro]

No, porque la lib que tengo no me funciona.

Intentaré con los prg que baje.
Voy a incluir los prg que baje, para ver si funciona.
Creo que lo que Ud. esta haciendo es espectacular, ya que es de FW.

Aclarando...Algunos cliente necesitan agrandar los dialogos para sentirse mas comodos.
Solo hasta ahi es mi interes.

Muy amable y gracias.

Saludos

Dario Fernandez

Dario, por favor, no dejes de compartir con todos tu experiencia en su uso e implementacion
Saludos

[D.Fernandez]

Si Sr. gracias.

Seguiré en este hilo con lo que hago al respecto.

Gracias.

Saludos
Dario Fernandez

[D.Fernandez]

Hola:
incluí los 2 prg de easydialog.
Megenera este error.

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Fuentes\Alfainmo\alfainmo.Exe (32 bits)
   Size: 6,119,424 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.06
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 20 secs
   Error occurred at: 30/11/2018, 21:28:03
   Error description: Error BASE/1004  Message not found: TXBROWSE:GETCOLSIZES

Stack Calls
===========
   Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR( 247 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:GETCOLSIZES( 9916 )
   Called from: easydlg.prg => ED_ADJUSTBROWSE( 0 )
   Called from: edintern.prg => ED_RESIZEONEDLG( 0 )
   Called from: easydlg.prg => ED_SETONEDLG( 0 )
   Called from: easydlg.prg => (b)ED_USE( 0 )
   Called from:  => AEVAL( 0 )
   Called from: easydlg.prg => ED_USE( 0 )
   Called from: alfax2.prg => (b)COTIZA( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 714 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: alfax2.prg => COTIZA( 0 )
   Called from: alfainmo2.PRG => (b)MAINMENU( 0 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1376 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1081 )
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 262 )
   Called from:  => TMDIFRAME:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3337 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1037 )
   Called from: alfainmo2.PRG => MAIN( 0 )

Ni idea de que es.

Gracias

Dario Fernandez

[cnavarro]

intenta sustituyendo por

Code: Select all  Expand view  RUN

oDlg:aControls[i]:nWidths                 // Asi como está escrito
 

[D.Fernandez]

Sigue el mismo error.

Sustitui la linea de easydialog.prg

Code: Select all  Expand view  RUN

FUNCTION ED_AdjustBrowse( oDlg, cDef, i, nOldWidth )

   LOCAL y, cValue, nValue, aBrwCurSize, cMode
   LOCAL cAddDef := ""

   IF ED_IsBrowse( StrToken( cDef, 21, "|" ) ) = .T.

      cMode := ALLTRIM(StrToken( cDef, 23, "|" ))

      aBrwCurSize := IIF( lxBrowse, ED_xBrwGetColSizes([b]oDlg:aControls[i]:nWidths[/b]), ;
                                    oDlg:aControls[i]:GetColSizes() )              
............

[cnavarro]

Prueba asi

Code: Select all  Expand view  RUN

      aBrwCurSize := IIF( lxBrowse, ED_xBrwGetColSizes( oDlg:aControls[i] ), ;
                                    oDlg:aControls[i]:nWidths )
 

[D.Fernandez]

Lamentablemente sigue el error.

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Fuentes\Alfainmo\alfainmo.Exe (32 bits)
   Size: 6,119,424 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.06
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 11 secs
   Error occurred at: 03/12/2018, 10:10:20
   Error description: Error BASE/1005  Message not found: TXBROWSE:ACOLSIZES

Stack Calls
===========
   Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR( 247 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:_ACOLSIZES( 9916 )
   Called from: easydlg.prg => ED_ADJUSTBROWSE( 0 )
   Called from: edintern.prg => ED_RESIZEONEDLG( 0 )
   Called from: easydlg.prg => ED_SETONEDLG( 0 )
   Called from: easydlg.prg => (b)ED_USE( 0 )
   Called from:  => AEVAL( 0 )
   Called from: easydlg.prg => ED_USE( 0 )
   Called from: alfax2.prg => (b)COTIZA( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 714 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: alfax2.prg => COTIZA( 0 )
   Called from: alfainmo2.PRG => (b)MAINMENU( 0 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1376 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1081 )
   Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 262 )
   Called from:  => TMDIFRAME:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3337 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1037 )
   Called from: alfainmo2.PRG => MAIN( 0 )

Gracias
Dario Fernandez

[cnavarro]

Prueba poniéndolo en los dos

Code: Select all  Expand view  RUN

      aBrwCurSize := IIF( lxBrowse, oDlg:aControls[i]:nWidths, ;
                                    oDlg:aControls[i]:nWidths )