Ocx scrollbar

kashton

New Member
I have a smartwindow with a Flexgrid Ocx inside.
When i upsize the window everything goes fine as i still have the use of the ocx scrollbar.
But when i downsize the window the, scrollbar(s) are still here but i just can't move them as they are like frozen.

here's my code for the trigger :
On window-resize of wWin
ASSIGN FRAME {&FRAME-NAME}:WIDTH-PIXELS = wWin:WIDTH-PIXELS - 2
FRAME {&FRAME-NAME}:HEIGHT-PIXELS = wWin:HEIGHT-PIXELS - 2
CtrlFrame:WIDTH-PIXELS = wWin:WIDTH-PIXELS - 2
CtrlFrame:HEIGHT-PIXELS = wWin:HEIGHT-PIXELS - 2.
CtrlFrame is the com handle for the flexgrid ocx.
Any idea :confused:
 
Ok i have solved my problem using this code :

On window-resized of wWin:
IF wXFrame < {&WINDOW-NAME}:WIDTH-PIXELS OR
wYFrame < {&WINDOW-NAME}:HEIGHT-PIXELS THEN DO:
ASSIGN FRAME {&FRAME-NAME}:WIDTH-PIXELS = {&WINDOW-NAME}:WIDTH-PIXELS
FRAME {&FRAME-NAME}:HEIGHT-PIXELS = {&WINDOW-NAME}:HEIGHT-PIXELS
CtrlFrame:WIDTH-PIXELS = {&WINDOW-NAME}:WIDTH-PIXELS - 4
CtrlFrame:HEIGHT-PIXELS = {&WINDOW-NAME}:HEIGHT-PIXELS - 2.
END.

IF wXFrame > {&WINDOW-NAME}:WIDTH-PIXELS OR
wYFrame > {&WINDOW-NAME}:HEIGHT-PIXELS THEN DO:
ASSIGN CtrlFrame:WIDTH-PIXELS = {&WINDOW-NAME}:WIDTH-PIXELS - 4
CtrlFrame:HEIGHT-PIXELS = {&WINDOW-NAME}:HEIGHT-PIXELS - 2
FRAME {&FRAME-NAME}:WIDTH-PIXELS = {&WINDOW-NAME}:WIDTH-PIXELS
FRAME {&FRAME-NAME}:HEIGHT-PIXELS = {&WINDOW-NAME}:HEIGHT-PIXELS
FRAME {&FRAME-NAME}:VIRTUAL-WIDTH-PIXELS = {&WINDOW-NAME}:WIDTH-PIXELS
FRAME {&FRAME-NAME}:VIRTUAL-HEIGHT-PIXELS = {&WINDOW-NAME}:HEIGHT-PIXELS.
END.

ASSIGN wXFrame = FRAME {&FRAME-NAME}:WIDTH-PIXELS
wYFrame = FRAME {&FRAME-NAME}:HEIGHT-PIXELS.
 
Back
Top