FWDBG - tamaño de la ventana

[goosfancito]

Hola.
Como puedo hacer para que el FWDBG se muestre con la ventana un poco mas grande que por defecto?
me pasa que quiero mostrar tres datos y tengo que "estirar" la ventana para que me muestre el tercer dato (forma vertical). Puedo darle tamaño a la ventana del FWDBG?

gracias.

[Antonio Linares]

Puedes modificar el tamaño de la ventana en esta línea:

DEFINE DIALOG ::oDlg TITLE 'FWH Debugger' FROM 1, 1 TO 50,80

en source\classes\fwdbg.prg

[goosfancito]

sabes que lo intenté poniendo ese prg junto a los mios pero la ventana no cambio el tamaño. ahora lo intento nuevamente.

Termino de hacerlo y no cambia el tamaño, se "acomoda" automaticamente pero no puedo cambiarlo.

Estoy intentando cambiar el tamaño de la fuente y tampoco veo cambios visibles.

Code: Select all  Expand view

   DEFINE FONT ::oFont    NAME 'Arial'   SIZE  0, -8
    DEFINE FONT ::oFontBrw NAME 'Courier New' SIZE  0, -8

    DEFINE DIALOG ::oDlg TITLE 'FWH Debugger' FROM 1, 1 TO 170,180

                  ::oDlg:lHelpIcon := .F.
                  ::oDlg:nStyle    := nOr( WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
                  ::oDlg:SetFont( ::oFont )
                  ::oDlg:SetIcon( TIcon():New( ,, "Debug" ) )
 

[goosfancito]

Algo estoy haciendo mal, porque modifique el fwdbg.prg antes de la linea que define dialogo puse

Code: Select all  Expand view

? "Hola"
    DEFINE DIALOG ::oDlg TITLE 'FWH Debugger' FROM 1, 1 TO 170,180

                  ::oDlg:lHelpIcon := .F.
                  ::oDlg:nStyle    := nOr( WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
                  ::oDlg:SetFont( ::oFont )
                  ::oDlg:SetIcon( TIcon():New( ,, "Debug" ) )

pero no me aparece nada. Tengo que agregar alguna llamada desde mi prg antes de usar el FWDBG?

[goosfancito]

por lo que veo en el fivewin.ch nunca va a hacer lo que quiero, porque llama directamente al xbrowser

Code: Select all  Expand view

#xcommand FWDBG <vars,...> => ;
            XBrowse( ArrTranspose( \{ \{ <"vars"> \}, Eval( \{ || \{ <vars> \} \} ) \} ), ;
            ProcName(0) + " : Line : " + LTrim( Str( ProcLine(0) ) ),, ;
            { |o| o:cHeaders := { "Variable", "Value" } } )

[Antonio Linares]

Algo estoy haciendo mal, porque modifique el fwdbg.prg antes de la linea que define dialogo puse

Code: Select all  Expand view

? "Hola"
    DEFINE DIALOG ::oDlg TITLE 'FWH Debugger' FROM 1, 1 TO 170,180

                  ::oDlg:lHelpIcon := .F.
                  ::oDlg:nStyle    := nOr( WS_THICKFRAME, WS_SYSMENU, WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
                  ::oDlg:SetFont( ::oFont )
                  ::oDlg:SetIcon( TIcon():New( ,, "Debug" ) )

pero no me aparece nada. Tengo que agregar alguna llamada desde mi prg antes de usar el FWDBG?

Copia tu código modificado al final de tu PRG principal

[goosfancito]

Perdon,
pero no entendi.
lo que hice fue hacer la modificacion que me decias al principio de este post pero no vi diferencia en el tamaño de la ventana, por lo que quise ver si el código se estaba ejecutando y puse un ? "A" en el metodo

Code: Select all  Expand view

METHOD Activate() CLASS TDbg

pero ese ? "A" nunca se ejecuta por lo que pienso que el metodo

Code: Select all  Expand view

METHOD Activate() CLASS TDbg

no se ejecuta

[Antonio Linares]

Estimado Gustavo,

Lo estamos modificando y te enviamos las librerias modificadas cuanto antes

[Antonio Linares]

Enviado por email

Por favor pruébalo y dime si te sirve el nuevo ancho

[goosfancito]

El alto de la ventana ha cambiado, de todas maneras estaría bueno que se pueda manipular en mi caso aun sigue siendo chico para que me muestre todos los datos que necesito.
esta dentro de un for each y cada vez que muestra la ventana tengo que cambiar el tamaño (que es lo que quiero evitar) pero si cambió el tamaño esta vez.
Solo agregue las dos lib a mi proyecto.,

gracias.

[Antonio Linares]

lo que se ha modificado es el ancho

Necesitas mas ancho ?

[goosfancito]

alto, que entren mas renglones, digamos unos 10
1
2
3
4
5
...

[Antonio Linares]

Estimado Gustavo,

Dale la altura que quieras usando el ratón, y luego selecciona la opción "Remove coors settings" desde el menu

Preferiblemente, borra el fichero fwdbg.ini antes de todo

[goosfancito]

Cuando quiero hacer un

Code: Select all  Expand view

fwdbg ::oTree

me tira esta pantalla:

https://drive.google.com/file/d/1blUqTcHiefqM0O_v_1ZddF6BmxE3ffhW/view?usp=drive_link

[karinha]

Cuando quiero hacer un

Code: Select all  Expand view

fwdbg ::oTree

me tira esta pantalla:

https://drive.google.com/file/d/1blUqTcHiefqM0O_v_1ZddF6BmxE3ffhW/view?usp=drive_link

Mira se no está en:

Code: Select all  Expand view

C:\FWH..\SOURCE\CLASSES\CONTROL.PRG
 

Regards, saludos.