FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index Bugs report & fixes / Informe de errores y arreglos error en MsgGet
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
error en MsgGet
Posted: Fri Sep 07, 2007 11:53 AM

Antonio:

Hay varios errores en msgget:

a) El espacio Ref A, que es por si se especifica un bitmap, deber铆a eliminarse cuando NO se especifica, para que quede centrado.

b) El espacio Ref B es muy peque帽o. El m谩rgen izquierdo deber铆a ser igual al margen derecho cuando NO hay bitmap.

c) El espacio inferior es tambi茅n peque帽o.

En definitiva, redimensionar bien el di谩logo.

d) Los botones se muestran en ingl茅s. Deber铆an mostrarse en el mismo idioma que el sistema operativo, como sucede con msgstop, msgalert, etc.

Muchas gracias.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
error en MsgGet
Posted: Fri Sep 07, 2007 11:53 AM
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
error en MsgGet
Posted: Sun Sep 16, 2007 08:20 AM
Moises,

Aqui lo tienes con las dimensiones correctas. Faltan solo los textos en el idioma propio:
Code: Select all Collapse
#include "FiveWin.ch"

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

function MsgGet( cTitle, cText, uVar, cBmpFile, cResName)

   local oDlg, oBmp
   local uTemp := uVar
   local lOk   := .f.

   DEFAULT cText := ""

   DEFINE DIALOG oDlg FROM 10, 20 TO 18, 59.5 TITLE cTitle

   if ! Empty( cBmpFile ) .or. ! Empty( cResName )
      if ! Empty( cBmpFile )
         @ 1, 1 BITMAP oBmp FILENAME cBmpFile SIZE 20, 20 NO BORDER OF oDlg
      endif

      if ! Empty( cResName )
         @ 1, 1 BITMAP oBmp RESOURCE cResName SIZE 20, 20 NO BORDER OF oDlg
      endif

      @ 0.5, 6 SAY cText OF oDlg SIZE 250, 10
      @ 1.6, 4 GET uTemp SIZE 120, 12 OF oDlg
   else   
      @ 0.5, 3.3 SAY cText OF oDlg SIZE 250, 10
      @ 1.6, 2.3 GET uTemp SIZE 120, 12 OF oDlg
   endif   

   @ 2.25, 7.5 - If( oBmp == nil, 2, 0 ) BUTTON "&Ok"  OF oDlg SIZE 35, 12 ;
      ACTION ( oDlg:End(), lOk := .t. ) DEFAULT

   @ 2.25, 16.5 - If( oBmp == nil, 2, 0 ) BUTTON "&Cancel" OF oDlg SIZE 35, 12 ;
      ACTION ( oDlg:End(), lOk := .f. )

   ACTIVATE DIALOG oDlg CENTERED

   if lOk
      uVar := uTemp
   endif

return lOk

//----------------------------------------------------------------------------//
regards, saludos

Antonio Linares
www.fivetechsoft.com
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
error en MsgGet
Posted: Fri Nov 16, 2007 12:02 PM

Antonio,

Sigue pendiente que los botones se muestran en ingl茅s. Deber铆an mostrarse en el mismo idioma que el sistema operativo, como sucede con msgstop, msgalert, etc.

Muchas gracias!!.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
error en MsgGet
Posted: Tue Nov 20, 2007 08:58 AM

Antonio:

驴Lo podr谩s incluir en el build de diciembre?. Muchas gracias. ;)

Un saludo,

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
error en MsgGet
Posted: Tue Nov 20, 2007 09:40 AM

Moises,

De momento la soluci贸n es que modifiques el c贸digo fuente de MsgGet() y que pongas el texto en espa帽ol

regards, saludos

Antonio Linares
www.fivetechsoft.com
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
error en MsgGet
Posted: Tue Nov 20, 2007 11:27 AM

Antonio,

Ya claro, pero me parece una soluci贸n chapucera, 驴no crees?. En fin, creo que es una cosa que debe solucionarse, no entiendo el comportamiento distinto de esta funci贸n frente a msgalert, msgabout,etc.

Otra cosilla, 驴c贸mo va el tema del error de impresi贸n que te coment茅?. Eso es m谩s urgente y priotirario.

Un saludo

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
error en MsgGet
Posted: Tue Nov 20, 2007 12:22 PM

Mois茅s,

>
Ya claro, pero me parece una soluci贸n chapucera, 驴no crees?. En fin, creo que es una cosa que debe solucionarse, no entiendo el comportamiento distinto de esta funci贸n frente a msgalert, msgabout,etc.
>

MsgAlert(), etc. son funciones propias de Windows, y Windows usa el lenguaje instalado en el ordenador. MsgGet() no es de Windows, es propia de FW, y a煤n no hemos encontrado en donde se guarda el "aceptar", "cancelar" en Windows. De todas formas, si tu aplicaci贸n s贸lo se va a usar en espa帽ol, que importa modificar el c贸digo de MsgGet() ?

>
Otra cosilla, 驴c贸mo va el tema del error de impresi贸n que te coment茅?. Eso es m谩s urgente y priotirario.
>

A que error te refieres ? Por favor proporcioname el enlace al mensaje en donde lo hayas publicado, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
error en MsgGet
Posted: Tue Nov 20, 2007 12:50 PM

Antonio:

Muchas gracias por tu pronta respuesta.

Si, claro, tengo modificado el C贸digo fuente, lo que sucede es que prefiero evitar modifcar las clases de fivewin, porque luego con las actualizaciones es un foll贸n, pero vamos, que el tema NO es urgente.

En cuanto al segundo error, que si es imprtante, el link es http://fivetechsoft.com/forums/viewtopic.php?t=8801

Un saludo

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions