[futurebasic] Re: Zoom Window without scrollbars...

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 1998 : Group Archive : Group : All Groups

From: tedd <tedd@...>
Date: Wed, 27 May 1998 00:04:36 -0400
>>
>Is it possible to build a window WITHOUT scroll bars but WITH the "resize"
>block at the bottom right?
>
>------------------------------------------------
>Mark Chappell, Professor of Biology


Mark:

Yes, it is. I did it in PG Pro. Check out the GROW.FTLR provided by STAZ's
PG Pro and use the following code to draw the grow box in the lower right
corner. It makes for a nice window that allows sizing without the scroll
bars.

'==============================================================
'----------------------- draw grow box ------------------------
'==============================================================

LOCAL FN drawGrowBox
DIM t,l,b,r
DIM oldOut, grwRgn&, saveCurClipRgn&

oldOut = WINDOW(_outputWnd)
WINDOW OUTPUT(_mapWnd)
b = WINDOW(_height)
r = WINDOW(_width)
t = b - 16
l = r - 16
grwRgn& = FN NEWRGN
CALL RECTRGN(grwRgn&,t)
saveCurClipRgn& = FN NEWRGN
CALL GETCLIP(saveCurClipRgn&)
CALL SETCLIP(grwRgn&)
CALL DRAWGROWICON(WINDOW(_wndPointer))
CALL SETCLIP(saveCurClipRgn&)
CALL DISPOSERGN(grwRgn&)
CALL DISPOSERGN(saveCurClipRgn&)
IF oldOut THEN WINDOW OUTPUT(oldOut)

END FN

---

tedd

___________________________________________________________________
<mailto:tedd@...>	               http://sperling.com/