Moverse en el Preview

Diana: lo puedes hacer asi.

DEFINE WINDOW wRPreview ;
FROM 0,0 TO SROWS()-1, SCOLS() ;
NAME wRPreview ;
FLOAT ;
SYSTEM ;
GROW ;
CLOSE ;
noMINIMIZE ;
ZOOM ;
TITLE cTitulo

wRPreview.WINDOWSTATE = 2 && maximizada
ACTIVATE WINDOW wRPreview

PUSH KEY

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

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

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

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

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

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

ON KEY LABEL ENTER;
MOUSE CLICK AT int(wRPreview.Height/2),int(wRPreview.Width/2);
PIXELS WINDOW wRPreview

REPORT FORM &cReport. NOCONSOLE TO PRINTER PROMPT PREVIEW WINDOW wRPreview

RELEASE WINDOWS wRPreview

POP KEY


Saludos;
Mario Acevedo
Montevideo-Uruguay

"Diana Borello" escribió en el mensaje
news:

Se puede mover hacia arriba y hacia abajo en el Preview de un Report con

las

flechas del teclado?
Creo que sería interesante.
Gracias

VFP6 - SP5
Un saludo para todos.
Diana Borello.-