FiveTech Support Forums

FUNCTION Pregunta(Preg,Resp,Titu,cHelpID) //Pregunta que hara,Respuesta por defecto,Titulo del dialogo,Codigo para enlazarse a la ayuda
 LOCAL oDlg,oBtnXDef,oFnt
 LOCAL Lineas,AnchoMax:=0,Alto,AltoDlg,oPreg,oResp,I,X
 DEFINE FONT oFnt NAME "ARIAL" SIZE 0,15 //Define la letra a usar
 Lineas:=MLCOUNT(Preg,120)+1 //No de renglones que tiene la pregunta considerando esos caracteres por renglon
 DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE Titu FONT oFnt
  FOR I:=1 TO Lineas ; AnchoMax:=MAX(oDlg:GetWidth(MEMOLINE(Preg,120,I),oFnt),AnchoMax) ; NEXT //Calcula el ancho maximo
  Alto:=oDlg:nGetChrHeight() //Altura de cada linea
  @ 1,1 BTNBMP oBtnXDef FILENAME ".\BAceptar.BMP" OF oDlg SIZE 58,58 ACTION oDlg:END() TOOLTIP "Aceptar lo que tecleaste"
  @ 59,1 GET Preg MULTILINE OF oDlg SIZE AnchoMax,Lineas*Alto PIXEL WHEN .F. //Muestra la pregunta
  @ ((Lineas+1)*Alto)+58,1 GET oResp VAR Resp OF oDlg SIZE AnchoMax,Alto PIXEL //Toma la respuesta
  ACTIVATE DIALOG oDlg CENTER ;
 ON INIT ( oDlg:nWidth:=AnchoMax+5,oDlg:nHeight:=(Alto*(Lineas+2))+58+53,oDlg:CENTER(),oDlg:REFRESH(),SYSREFRESH() ) //Ajusta el dialogo al texto de la pregunta
 oFnt:END()
RETURN(Resp)

//=============================================================================
//Hace una pregunta en una caja de dialogo ajustandose al tamaño de la pregunta
//NOTA: Los Dialogos usan algunos valores que se duplican, razon por la cual se divide entre 2 varios valores aqui utilizados y otros los multiplico por 2
FUNCTION Pregunta(Preg,Resp,Formato,Titu,cHelpID) //Pregunta que hara,Respuesta por defecto,Titulo del dialogo,Codigo para enlazarse a la ayuda
 LOCAL oDlg,oBtnXDef,oFnt
 LOCAL Lineas,AnchoPreg,AnchoMax:=0,Alto,oPreg,oResp,I,X
 DEFINE FONT oFnt NAME "ARIAL" SIZE 0,16 //Define la letra a usar
 DEFAULT Formato:=REPL("X",LEN(CVALTOCHAR(Resp))),Titu:="Responde lo siguiente" //Define el formato
 IF VALTYPE(Resp)="D" ; Formato:="##/##/####" ; ENDIF //Si es una fecha
 Lineas:=MLCOUNT(Preg,120)+1 //No de renglones que tiene la pregunta considerando esos caracteres por renglon
 DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE Titu FONT oFnt
  AnchoPreg:=oDlg:GetWidth(REPL("M",LEN(CVALTOCHAR(Resp))),oFnt)*1.2 ; AnchoMax:=AnchoPreg
  FOR I:=1 TO Lineas ; AnchoMax:=MAX(oDlg:GetWidth(MEMOLINE(Preg,120,I),oFnt),AnchoMax) ; NEXT //Calcula el ancho maximo
  Alto:=(oDlg:nGetChrHeight()/2) //Altura de cada linea
  @ 1,1 BTNBMP oBtnXDef FILENAME DirSist+"BAceptar.BMP" OF oDlg SIZE 30,30 ACTION oDlg:END() TOOLTIP "Aceptar lo que tecleaste"
  @ 30+1,1 GET Preg MULTILINE OF oDlg SIZE AnchoMax/2,Lineas*Alto PIXEL UPDATE WHEN .F. //Muestra la pregunta
  @ (((Lineas)*Alto)+30+3),1 GET oResp VAR Resp OF oDlg SIZE AnchoPreg/2,Alto*1.6 PIXEL UPDATE PICTURE Formato //Toma la respuesta
  oDlg:bGotFocus:={||oResp:SETFOCUS()} //<---- No funciona
  //oResp:SETFOCUS() aqui o en el "ON INIT" tampoco me funciona <-------------------
  ACTIVATE DIALOG oDlg CENTER ;
 ON INIT ( oDlg:nWidth:=AnchoMax+10,oDlg:nHeight:=((Alto*2)*(Lineas+6))+30,oDlg:CENTER(),oDlg:REFRESH(),SYSREFRESH() ) //Ajusta el dialogo al texto de la pregunta
 oFnt:END()
RETURN(Resp)

 DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE Titu FONT oFnt
  AnchoPreg:=oDlg:GetWidth(REPL("M",LEN(CVALTOCHAR(Resp))),oFnt)*1.2 ; AnchoMax:=AnchoPreg
  FOR I:=1 TO Lineas ; AnchoMax:=MAX(oDlg:GetWidth(MEMOLINE(Preg,120,I),oFnt),AnchoMax) ; NEXT //Calcula el ancho maximo
  Alto:=(oDlg:nGetChrHeight()/2) //Altura de cada linea
  @ (((Lineas)*Alto)+30+3),1 GET oResp VAR Resp OF oDlg SIZE AnchoPreg/2,Alto*1.6 PIXEL UPDATE PICTURE Formato //Toma la respuesta <---En 1er lugar
  @ 1,1 BTNBMP oBtnXDef FILENAME DirSist+"BAceptar.BMP" OF oDlg SIZE 30,30 ACTION oDlg:END() TOOLTIP "Aceptar lo que tecleaste"
  @ 30+1,1 GET Preg MULTILINE OF oDlg SIZE AnchoMax/2,Lineas*Alto PIXEL UPDATE WHEN .F. //Muestra la pregunta
  ACTIVATE DIALOG oDlg CENTER ;
 ON INIT ( oDlg:nWidth:=AnchoMax+10,oDlg:nHeight:=((Alto*2)*(Lineas+6))+30,oDlg:CENTER(),ColocaMB(oBtnXDef),oDlg:REFRESH(),SYSREFRESH() ) //Ajusta el dialogo al texto de la pregunta