Thanks to everyone for your help. I got it to work,
D. On Sat, Sep 9, 2017 at 1:15 PM, Bob Spelten via Ql-Users < ql-users@lists.q-v-d.com> wrote: > Op Fri, 08 Sep 2017 19:59:28 +0200 schreef Daniel Baum via Ql-Users < > ql-users@lists.q-v-d.com>: > > Hi all, >> >> I am trying to get my head around EasyPtr (again). >> >> I have been playing with the new ability to create resizable windows. This >> turns out to be not terribly difficult, and I was able to create a >> resizable version of the calculator from Norman Dunbar's tutorial without >> suffering too much. >> >> However, creating a freely resizable version of QBase is dependent on >> being >> able to read the size of the newly resized window.and its components. I >> have been unable to find any obvious way to do this. >> >> Does anyone know how this is accomplished? >> >> I use the following routine after every move or resize. > It has the advantage of returning the actual values, because calculated > values given to MDRAW for a new position or size can be adjusted by WMAN2. > That may make X even and will always keep the window inside the screen, > including shadow spaces. > > :: > DEFine PROCedure MENU_XYS (kanal%,wdef,xs%,ys%,xo%,yo%) > REM >>> get coords of current outline channel > wdef= MWDEF(#kanal%) : REM >>> get address working definition > xs%= PEEK_W(wdef +32): ys%= PEEK_W(wdef +34) : REM >>> get size > xo%= PEEK_W(wdef +36): yo%= PEEK_W(wdef +38) : REM >>> get position > END DEFine MENU_XYS > :: > > Bob > > -- > The BSJR QL software site at: "http://members.upc.nl/b.spelten/ql/"; > _______________________________________________ > QL-Users Mailing List > _______________________________________________ QL-Users Mailing List
