[futurebasic] Re: [FB] PassRectangle

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 2001 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Wed, 4 Apr 2001 12:35:59 +0100
>How do I pass a rectangle (or its pointer) from one function to another?

This works too...

'----------- Non-functioning FB^3 demo----------

LOCAL FN buildEF(theRect as Ptr To Rect)
DIM efRect as Rect
efRect = theRect
  EDIT FIELD#1,,@efRect,_Framed,_LeftJust
END FN

LOCAL
DIM efRect as rect
LOCAL FN buildWnd
  WINDOW#1,"Pass Rectangle.Demo",(0,0)-(300,300),_docNoGrow
  CALL SETRECT(efRect,30,60,200,100)
  FN buildEF(efRect)
END FN

FN buildWnd
DO
  HANDLEEVENTS
UNTIL FN STILLDOWN