[futurebasic] Re: [FB] [FB II] Moving Controls (here's that code, ian)

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

From: Alain Pastor <apastor@...>
Date: Thu, 08 Nov 2001 10:19:39 +0100
Bowerbird@... wrote:

> so, does anyone else (or everyone else)
> get the same anomaly with that code i posted?
> 

I'm not sure of the anomaly you are speaking of. Is it still the
moving of the window instead of the growing of the same?
If so, I've tested the idea I gave about the raw event handler and
it works for me. If you want a preview, just plug the code below
into your  listing and add the following vector: ON FN doEvent
It is not tested in FBII, but I believe it should work the same
considering how I have aped the style.
Actually, I think you should better handle the resizing of the
window entirely in the raw event handler. The code below is just for
testing because the behavior is not fully correct (you can resize
the window with any of its borders, a bit à la Windows):

CLEAR LOCAL FN doEvent
  LONG IF {EVENT} = _mbutdwnevt
    GET WINDOW 1,wptr&
    LONG IF wptr&
      xrgn&=FN NEWRGN
      LONG IF xrgn&
        CALL COPYRGN(wptr&.structrgn&,xrgn&)
        CALL INSETRGN(xrgn&,6,6)
        CALL DIFFRGN(wptr&.structrgn&,xrgn&,xrgn&)
        CALL GETMOUSE(pt&)
        CALL LOCALTOGLOBAL(pt&)
        LONG IF FN PTINRGN(pt&,xrgn&)
          top=0:left=0
          bottom=SYSTEM(_scrnHeight):right=SYSTEM(_scrnWidth)
          delta&=FN GROWWINDOW(wptr&,pt&,top)
          w=FN LOWORD(delta&) : h=FN HIWORD(delta&)
          LONG IF w>=gminwide AND h>=gminhigh
            CALL SIZEWINDOW(wptr&,w,h,_true)
          END IF
          % EVENT,0
        END IF
        CALL DISPOSERGN(xrgn&)
      END IF
    END IF
  END IF
END FN

-- 

Cheers

Alain

-----------------------------------------------------
FB^3 in Europe:  http://euro.futurebasic.com/
FB II Pouch:     http://www.pixmix.com/FB/outils.html
-----------------------------------------------------