Una duda sobre FOLDEREX

[remtec]

Hola Amigos.

Tengo una duda, estoy probando FOLDEREX, aconsejado por la cantidad de datos que debo solicitar, he trasladado unos SAY que tenia en un DIALOG con coordenadas SIZE PIXEL, pero al ponerlos en una Folder en una pestaña, las posiciones se han movido completamente, como que los PIXELES entre ambos son diferentes.

Alguien me puede confirmar esto.

Muchos Saludos.

Antonio

Codigo:

Code: Select all  Expand view

FUNCTION PRUE2()
 local oDlg, oFld, oFont6,oTitu //, nOption := Array(5)
     Local oSay1,oSay2,oSay3,oSay4,oSay5


     DEFINE FONT oFont2 NAME "TAHOMA" SIZE 0,-12  BOLD
     DEFINE FONT oFont4 NAME 'TAHOMA' SIZE 0,20   BOLD
     DEFINE FONT oFont5 NAME 'TAHOMA' SIZE 0,24   BOLD
     DEFINE FONT oFont6 NAME "TAHOMA" SIZE 0,-12  BOLD
     DEFINE FONT oFont10 NAME "TAHOMA" SIZE 0,-13
     DEFINE FONT oFont7 NAME "TAHOMA" SIZE 0,-12  BOLD


   DEFINE DIALOG oDlg SIZE 850,620 PIXEL TRUEPIXEL FONT oFont6 STYLE nOr( WS_POPUP, WS_VISIBLE, WS_DLGFRAME )
        oDlg:lTransparent := .F.

 

   @ 15, 05 FOLDEREX oFld SIZE 840,535 OF oDlg PIXEL ROUND 5        ;
     PROMPT  "Evaluación 1", "Evaluación 2", "Ficha Medica"

   oFld:cToolTip := { || MyToolTip( oFld:nOver ) }

     oFld:aDialogs[1]:lTransparent   := .F.
   @ 1, 1 BUTTON "&ENTRE A EVALUACION 2" SIZE 100, 20 OF oFld:aDialogs[2] PIXEL

     // FOLDEREX 1
     @ 00,60 SAY otitu PROMPT " EVALUACION MEDICA "  PIXEL OF oFld:aDialogs[1] COLORS RGB(0,100,0)   FONT oFont5   TRANSPARENT

     @ 020,001 SAY "Nro. Evaluacion"     SIZE 50,10 PIXEL OF oFld:aDialogs[1]  RIGHT   FONT oFont2    COLORS RGB(80, 28, 14)      TRANSPARENT
     @ 20,100 SAY "Fecha "               SIZE 60,10 PIXEL OF oFld:aDialogs[1]  RIGHT   FONT oFont2  COLORS RGB(80, 28, 14)  TRANSPARENT
   @ 020,190 SAY "R.u.t."           SIZE 60,10 PIXEL OF oFld:aDialogs[1]  RIGHT   FONT oFont2     COLORS RGB(80, 28, 14)      TRANSPARENT
   @ 020,310 SAY "Fecha Naci." SIZE 50,10 PIXEL OF oFld:aDialogs[1]  RIGHT      FONT oFont2    COLORS RGB(80, 28, 14)       TRANSPARENT
   @ 032,001 SAY "Nombre"           SIZE 50,10 PIXEL OF oFld:aDialogs[1]  RIGHT   FONT oFont2     COLORS RGB(80, 28, 14)      TRANSPARENT
   @ 032,260 SAY "Edad"             SIZE 60,10 PIXEL OF oFld:aDialogs[1]   RIGHT   FONT oFont2    COLORS RGB(80, 28, 14)      TRANSPARENT
     @ 032,347 SAY "Años"              SIZE 30,10 PIXEL OF oFld:aDialogs[1]     FONT oFont2    COLORS RGB(80, 28, 14)      TRANSPARENT


     Nro_Fic1=12530043
     Fec_Ing1=date()
     Rut_Pac1="79.815.570-9"
     Nom_Pac1=   Repl("O",50)
     Fec_Nac1=date()
     Eda_Pac1=61


     @ 020,60 SAY oSay1  Prompt  Nro_Fic1   SIZE     40,10 PIXEL OF oFld:aDialogs[1]      COLOR RGB(0,0,128), RGB(159,233,255) Picture "9999999999"  FONT oFont2 BORDER
     @ 020,165 SAY oSay2  Prompt  Fec_Ing1   SIZE     45,10 PIXEL OF oFld:aDialogs[1]      COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont2 BORDER
     @ 020,258 SAY oSay3  Prompt  Rut_Pac1   SIZE     45,10 PIXEL OF oFld:aDialogs[1]      COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont2 BORDER
     @ 020,365 SAY oSay4  Prompt  Fec_Nac1   SIZE     45,10 PIXEL OF oFld:aDialogs[1]      COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont2 BORDER
     @ 032,60  SAY oSay5  Prompt Nom_Pac1   SIZE 230,10  PIXEL OF oFld:aDialogs[1]      COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont2 BORDER
     @ 032,326  SAY oSay5  Prompt Eda_Pac1   SIZE 15,10  PIXEL OF oFld:aDialogs[1]  PICTURE "999"    COLOR RGB(0,0,128), RGB(159,233,255)   FONT oFont2 BORDER

     @  555,20 GROUP oGroup  TO 615,665 PIXEL OF oDlg

     @ 568,530 BTNBMP oBtn3  SIZE 50,40 PROMPT "SALIR"  OF oDlg PIXEL 2007 Resource "#8053"  FONT oFont6 oGroup FLAT;
                    ToolTip  "SALIR DEL SISTEMA";
                    ACTION msginfo("DIO SALIR",oDlg:End())





   ACTIVATE DIALOG oDlg CENTERED ;
      ON CLICK oFld:aDialogs[ 1 ]:Refresh()

return nil

 

[karinha]

Una imagen? Ó un ejemplo completo, porfa?

Regards, saludos.

[remtec]

Hola João

Buen dia.

Muchas gracias por responder.

Como comente, lo que hice fue copiar los SAY que habia avanzado en un DIALOG normal, que ya este formateado con los SIZE en PIXEL, pero al traerlos a este codigo que mostre, la posicion de las filas y columnas ya habian cambiado, por lo que tuve que adecuar todo. Era solo una curiosidad, pensando que si sucedia esto por alguna diferencia, que de echo si la debe haber, no acostumbro a trabajar con Dialog RES o REC, formatear los dialog a mano con coordenadas cuesta mas e lleva mas tiempo.

Me he dado cuenta que a ti te acomoda mucho esta FOLDEREX.

Muchas gracias

Antonio

[cmsoft]

Antonio, si tu dialogo original era truepixel, puedes probar haciendo truepixel a los dialogos internos (no se si los hereda del dialogo contenedor)

Code: Select all  Expand view

oFld:aDialogs[1]:lTruepixel := .t.

[remtec]

Antonio, si tu dialogo original era truepixel, puedes probar haciendo truepixel a los dialogos internos (no se si los hereda del dialogo contenedor)

Code: Select all  Expand view

oFld:aDialogs[1]:lTruepixel := .t.

Amigo.

Efectivamente al aplicar ahora tu indicacion, se deforma todas las filas y columnas.

Si vuelvo a copiar los SAY originales, quedan con el mismo formato que tenian en el otro Dialog.

Muchas gracias amigo.

El que sabe sabe, si lo contrario le paso lo que me sucede ami.

Saludos.

Antonio.