FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Problema o Bug TSAY
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Problema o Bug TSAY
Posted: Fri Jan 30, 2015 07:57 PM
Hola,

Intento poner un tamaño y posicionar desde código un control TSAY.

Le asigno un font y le digo tamaño y posición, pero veo que sale entrecortado por debajo, le añado la clausula BORDER y veo que el texto, se pinta desplazado hacia abajo dentro de la caja de texto.

¿Cual es el problema o que estoy haciendo mal?

Code (fw): Select all Collapse
@ nFila , nCol  SAY oSay2 PROMPT cHora COLOR CLR_WHITE PIXEL BORDER SIZE nAnchoText,oFont2:nHeight TRANSPARENT FONT oFont2 OF oPanelDer


Y Este es el resultado erróneo:

Un Saludo,

Joaquín Martínez
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Fri Jan 30, 2015 08:49 PM

Hola,

He descubierto algo más.

Si quiero que se vea completo hay que hacer que la altura del TSAY sea

oFont:nHeight + (oFont2:nHeight/2)

Pero el texto aparece centrado verticalmente, debería existir la forma que se ponga arriba, abajo o centrado y sin esos márgenes alrededor.

Un Saludo,

Joaquín Martínez
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problema o Bug TSAY
Posted: Sun Feb 01, 2015 08:00 AM

Joaquín,

Si revisas la Clase TSay verás que nosotros no hacemos nada, es decir, es el API de Windows quien lo dibuja así.

regards, saludos

Antonio Linares
www.fivetechsoft.com
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Sun Feb 01, 2015 08:38 AM

Sí Antonio,

La había revisado, ¿pero que solución tiene?

Reescribir la clase con drawtext? Recalcular internamente en la Tsay actual?

Desde luego, en otros lenguajes y entornos no existe ese problema. No creo que sea buena idea dejarlo así, no?

Un Saludo,

Joaquín Martínez
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problema o Bug TSAY
Posted: Sun Feb 01, 2015 08:44 AM

Joaquín,

Si asi lo hace Windows, para mi la solución es usar las dimensiones correctas en relación al font que estemos usando.

regards, saludos

Antonio Linares
www.fivetechsoft.com
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Sun Feb 01, 2015 09:06 AM

Antonio de acuerdo,

¿Pero sería posible modificar la Tsay, para que si el programador quiere pintar en una posició, la clase lo pinte y aumente la altura si es necesario para que no salga entrecortada?

Creo que no sería muy complicado y sería lo ideal. Me he vuelto loco intentando posicionar textos y viendo que la Tsay no lo hacía como la lógica me decía.

Un Saludo,

Joaquín Martínez
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Sun Feb 01, 2015 09:31 AM

Por cierto,

Además si activo la clausula Design, cuando cliqueo se rompe la aplicación.

No se si actualmente no se puede usar Design.

Un Saludo,

Joaquín Martínez
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Sun Feb 01, 2015 11:05 PM

Antonio,

He estado leyendo sobre el tema, y parece ser que setwindowtext, realmente llama a drawtext con unos estilos de alineación predefinidos.

Creo que sustituyendo en la clase Tsay, la llamada setwindowtext , por una llamada a drawtext alineada correctamente, quedaría solucionado el problema y coherente el resultado con lo que espera el programador.

¿Que te parece?

Un Saludo,

Joaquín Martínez
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problema o Bug TSAY
Posted: Mon Feb 02, 2015 07:13 AM

Joaquín,

Pruébalo y nos comentas. Gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Mon Feb 02, 2015 11:55 AM

Buenos días Antonio,

Ya lo he probado y he analizado todas las posibilidades. El TSAY no usa setWindowText, nada más que para cambiar el Caption, pero realmente, el control se encarga de pintarlo internamente sin poder influir yo en el pintado.

La única solución que he encontrado, pero no sé como implementarla, es añadirle el estilo SS_OWNERDRAW y encargarnos nosotros del pintado.

Si me explicas el camino a seguir, lo intento. Por lo que he visto, en el método new, se añade el estilo y a partir de ahí, no pinta nada, ¿Cómo implemento el pintado?

Un Saludo,

Joaquín Martínez
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problema o Bug TSAY
Posted: Mon Feb 02, 2015 11:58 AM

Joaquín,

Es preferible crear una clase nueva, en donde tengas el control total.

regards, saludos

Antonio Linares
www.fivetechsoft.com
jmartial
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema o Bug TSAY
Posted: Mon Feb 02, 2015 12:14 PM

Ya,

Pero, ¿Como conmutamos la aplicación para que trabaje con una o con otra? Para no romper la compatibilidad.

No obstante es la mejor idea que veo, porque si en un futuro fivedit también sirve para diseñar los recursos, se necesita un control text que nos permita multilinea, alineaciones horizontales, verticales y autoajustes a su ancho y alto.

Tú me dices.

Un Saludo,

Joaquín Martínez
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problema o Bug TSAY
Posted: Mon Feb 02, 2015 01:05 PM
Code (fw): Select all Collapse
#Include "FiveWin.Ch"

STATIC oDlgRelog, oTimerRelog, lDesliga := .F., oWnd, oTimerPorta
STATIC oFnt, oSaida

FUNCTION RELOG()

    LOCAL oBrush
    LOCAL dDataDia := DTOC( DATE() )

    DEFINE FONT oFnt      NAME "Arial"         SIZE 08,  20 BOLD

    DEFINE DIALOG oDlgRelog FROM 3, 3 TO 20, 50                               ;
           TITLE OemToAnsi( "Gerenciador do Rel¢gio do Sistema - "  +         ;
                            "Data: " + dDataDia )                             ;
           COLORS CLR_BLACK, CLR_WHITE TRANSPARENT STYLE nOR( DS_MODALFRAME )

    oDlgRelog:lHelpIcon := .F.

    @ 005, 010 BUTTON oSaida PROMPT "&Salida" OF oDlgRelog SIZE 70, 14        ;
               ACTION ( oDlgRelog:End ) CANCEL

    oSaida:cToolTip := OemToAnsi( "Finalizar Gerenciador do Rel¢gio " )

    SET FONT OF oSaida   TO oFnt

    ACTIVATE DIALOG oDlgRelog CENTERED RESIZE16                               ;
             ON INIT( ACIONA_TIMER( oWnd ) )

    IF lDesliga  //-> Se For .T., Desligar  o TIMER.
       oTimerRelog:DeActivate()
       oTimerPorta:DeActivate()
    ENDIF

    oFnt:End()
    Release All

RETURN NIL

STATIC FUNCTION ACIONA_TIMER( oWnd )

    DEFINE TIMER oTimerPorta INTERVAL 50  OF oDlgRelog                        ;
           ACTION ACIONA_RELOGIO( oWnd )

    ACTIVATE TIMER oTimerPorta

RETURN NIL

//---------------------------------------------------------------------------//

STATIC FUNCTION ACIONA_RELOGIO( oWnd )

    LOCAL oFont

    DEFINE FONT oFont NAME "Arial" SIZE  0, -70 BOLD //-> Fonte Para o Relogio
    DEFINE FONT oFnt  NAME "Arial" SIZE 08,  20 BOLD //-> Fonte Para o BotÆo

    DEFINE TIMER oTimerRelog INTERVAL 50                                      ;
           ACTION ExibeRelogio()

    ACTIVATE TIMER oTimerRelog

    SET FONT OF oDlgRelog TO oFont
    SET FONT OF oSaida    TO oFnt

    oFont:End()

    lDesliga := .T.

    oTimerPorta:DeActivate()

RETURN NIL

STATIC FUNCTION ExibeRelogio()

    IF ISWINDOWVISIBLE( oDlgRelog:hWnd )

       oDlgRelog:Say( 3, 07, TIME(),                                         ;
                 CLR_YELLOW, CLR_BLACK,, .F. )
       // .T. Esquerda - .F. Direita da Dialog.

    ENDIF

RETURN NIL

//-> FIM DO PROGRAMA <-------------------------------------------------------//


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Problema o Bug TSAY
Posted: Mon Feb 02, 2015 01:07 PM
Code (fw): Select all Collapse
#Include "FiveWin.ch"

STATIC oTimer

FUNCTION Inicio()

    LOCAL oDlg, oSay1, oSay2
    LOCAL oFont1:=TFont():New("Ms Sans Serif",0,-8,.F.,.t.)

    SET DATE BRITISH
    SET EPOCH TO 1950
    SET CENTURY ON

    DEFINE DIALOG oDlg FROM 1,1 TO 100,345 ;
           TITLE OemToAnsi("El viacrucis de las actualizaciones") ;
           PIXEL TRANSPARENT

    oDlg:lHelpIcon := .F.

    @  05,15 SAY oSay1 PROMPT OemToAnsi("Fecha y hora actuales") OF oDlg ;
             PIXEL FONT oFont1 SIZE 100,12

    @  05,80 SAY oSay2 PROMPT ":   "+DTOC(DATE())+"  -  "+Time() OF oDlg ;
             PIXEL SIZE 100,12 FONT oFont1

    @  30,65 BUTTON "&Salir" OF oDlg PIXEL ACTION oDlg:End()

    ACTIVATE DIALOG oDlg CENTERED ON INIT ( Timer( oDlg, oSay2 ) )

    oFont1:End()
    oTimer:End()

    Release All

RETURN NIL

FUNCTION Timer( oDlg, oSay2 )

  DEFINE TIMER oTimer INTERVAL 1000 OF oDlg ;
         ACTION ( oSay2:VarPut( ":   " + DTOC(DATE())+"  -  " + ;
                  TIME() ), oSay2:Refresh() )

  ACTIVATE TIMER oTimer

RETURN NIL

//-> FIM DO PROGRAMA


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion

Static archive · New replies & topics via GitHub Discussions