Para el Sr. Cristobal Navarro

Para el Sr. Cristobal Navarro

Postby D.Fernandez » Fri Nov 30, 2018 1:15 am

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
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby karinha » Fri Nov 30, 2018 12:27 pm

+ 1

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

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Para el Sr. Cristobal Navarro

Postby karinha » Fri Nov 30, 2018 1:11 pm

¡Qué lástima LIB muy antigua!

Image

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7872
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Para el Sr. Cristobal Navarro

Postby cnavarro » Fri Nov 30, 2018 2:13 pm

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 ).
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Para el Sr. Cristobal Navarro

Postby D.Fernandez » Fri Nov 30, 2018 7:29 pm

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
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby cnavarro » Fri Nov 30, 2018 7:39 pm

Tú estás utilizando EasyDialog?
Yo no lo he utilizado nunca, por eso es mi comentario
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Para el Sr. Cristobal Navarro

Postby D.Fernandez » Fri Nov 30, 2018 7:45 pm

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 Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby cnavarro » Fri Nov 30, 2018 7:51 pm

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
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Para el Sr. Cristobal Navarro

Postby D.Fernandez » Fri Nov 30, 2018 8:16 pm

Si Sr. gracias.

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

Gracias.

Saludos
Dario Fernandez
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby D.Fernandez » Sat Dec 01, 2018 12:31 am

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
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby cnavarro » Sat Dec 01, 2018 1:13 am

intenta sustituyendo por

Code: Select all  Expand view  RUN

oDlg:aControls[i]:nWidths                 // Asi como está escrito
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Para el Sr. Cristobal Navarro

Postby D.Fernandez » Sat Dec 01, 2018 2:02 am

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() )              
............
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby cnavarro » Sat Dec 01, 2018 10:39 am

Prueba asi

Code: Select all  Expand view  RUN

      aBrwCurSize := IIF( lxBrowse, ED_xBrwGetColSizes( oDlg:aControls[i] ), ;
                                    oDlg:aControls[i]:nWidths )
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Para el Sr. Cristobal Navarro

Postby D.Fernandez » Mon Dec 03, 2018 1:12 pm

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
Dario Fernandez
FWH 24.09, Harbour, MVS2022 Community, BCC, MySql & MariaDB, Dbf/Cdx VSCode.
Maldonado - Uruguay
D.Fernandez
 
Posts: 488
Joined: Wed Jul 31, 2013 1:14 pm
Location: Maldonado - Uruguay

Re: Para el Sr. Cristobal Navarro

Postby cnavarro » Mon Dec 03, 2018 2:56 pm

Prueba poniéndolo en los dos
Code: Select all  Expand view  RUN


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

 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6552
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 120 guests