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