FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

Para el Sr. Cristobal Navarro

https://fivetechsupport.com/forums/viewtopic.php?t=36395

Page 1 of 2

Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 1:15 am
by 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

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 12:27 pm
by karinha
+ 1

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

Regards, saludos.

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 1:11 pm
by karinha
¡Qué lástima LIB muy antigua!

Image

Regards, saludos.

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 2:13 pm
by cnavarro
D.Fernandez wrote: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 ).

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 7:29 pm
by 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

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 7:39 pm
by cnavarro
Tú estás utilizando EasyDialog?
Yo no lo he utilizado nunca, por eso es mi comentario

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 7:45 pm
by 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

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 7:51 pm
by cnavarro
D.Fernandez wrote: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

Re: Para el Sr. Cristobal Navarro

Posted: Fri Nov 30, 2018 8:16 pm
by D.Fernandez
Si Sr. gracias.

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

Gracias.

Saludos
Dario Fernandez

Re: Para el Sr. Cristobal Navarro

Posted: Sat Dec 01, 2018 12:31 am
by D.Fernandez
Hola:
incluí los 2 prg de easydialog.
Megenera este error.

Code: Select all | Expand

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

Re: Para el Sr. Cristobal Navarro

Posted: Sat Dec 01, 2018 1:13 am
by cnavarro
intenta sustituyendo por

Code: Select all | Expand


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

Re: Para el Sr. Cristobal Navarro

Posted: Sat Dec 01, 2018 2:02 am
by D.Fernandez
Sigue el mismo error.

Sustitui la linea de easydialog.prg

Code: Select all | Expand

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

Re: Para el Sr. Cristobal Navarro

Posted: Sat Dec 01, 2018 10:39 am
by cnavarro
Prueba asi

Code: Select all | Expand


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

Re: Para el Sr. Cristobal Navarro

Posted: Mon Dec 03, 2018 1:12 pm
by D.Fernandez
Lamentablemente sigue el error.

Code: Select all | Expand

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

Re: Para el Sr. Cristobal Navarro

Posted: Mon Dec 03, 2018 2:56 pm
by cnavarro
Prueba poniéndolo en los dos

Code: Select all | Expand



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

 
All times are UTC
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited