FoxPro/Visual FoxPro - este es Codigo para las teclas de direc en reporte

 
Vista:

este es Codigo para las teclas de direc en reporte

Publicado por Anonimous (20 intervenciones) el 05/06/2001 18:58:47
Siempre me han inquietado las vistas preliminares de los informes en VFP, ya que estas tienen muy poco control con el teclado y se debe de recurrir al mouse (cosa que ha muchos de mis clientes no les parece muy correcto).
Últimamente he visto en el grupo que se han hecho varias consultas, acerca del tema, y me he dicho:
"Venga Jesús, a ver si haces algo que valga para todo el grupo de fox que tanto te ha enseñado a ti"
Y mira por donde, dando algunas que otras vueltas, me ha salido la siguiente rutina. No es que sea la panacea universal, pero algo de control dá.
A ver si entre todo la mejoramos un poco:
SET RESOURCE OFF
PUSH KEY

DEFINE WINDOW wPreview FROM 0,0 TO 1,1;
TITLE 'Vista preliminar' CLOSE SYSTEM NAME oPreview
ZOOM WINDOW wPreview MAX

ON KEY LABEL UPARROW;
MOUSE CLICK AT 5,oPreview.Width-8;
PIXELS WINDOW wPreview

ON KEY LABEL DNARROW;
MOUSE CLICK AT oPreview.Height-22,oPreview.Width-8;
PIXELS WINDOW wPreview

ON KEY LABEL LEFTARROW;
MOUSE CLICK AT oPreview.Height-10,6;
PIXELS WINDOW wPreview

ON KEY LABEL RIGHTARROW;
MOUSE CLICK AT oPreview.Height-10,oPreview.Width-22;
PIXELS WINDOW wPreview

ON KEY LABEL HOME;
MOUSE DBLCLICK AT 18,oPreview.Width-8;
PIXELS WINDOW wPreview

ON KEY LABEL END;
MOUSE DBLCLICK AT oPreview.Height-35,oPreview.Width-8;
PIXELS WINDOW wPreview

REPORT FORM (NombreInforme);
TO PRINTER PROMPT PREVIEW WINDOW wPreview

POP KEY
SET RESOURCE ON
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder