Una duda sobre FOLDEREX
Posted: Wed Aug 17, 2022 2:17 amHola 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:
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