Op 5/08/2016 om 13:18 schreef Giorgio Garabello:
The moment I need information I have already designed a screen menu so
I can not perform an additional MDRAW ...maybe a SETUP?
2016-08-05 12:36 GMT+02:00 François Van Emelen <
[email protected]>:
Op 5/08/2016 om 1:23 schreef Giorgio Garabello:
When you draw a menu with Easymenu, that design is the minimum size of the
menu.
I can not make it smaller by SBASIC, using MDRAW command.
Now, is there any way to read this minimum size of the menu? The manual I
could not find anything useful, but my English is bad and probably escaped
me.
Thanks in advanced
Giorgio
_______________________________________________
QL-Users Mailing List
Hi,
I think is is not possible to make the menu smaller than the size you gave
it in Easymenu_exe, but I can be wrong.
To find the smallest size suffice to 'mdraw' it without parameters and
look for the size with something like:
dim result%(15)
mdraw#xyz,name of menu without parameters
PVAL#xyz,result%
result%(8) holds the width
result%(9) holds the heigt
You're right there seems to be nothing about minimum size in the manuals,
but I can be wrong.
François Van Emelen
_______________________________________________
QL-Users Mailing List
Hi,
MSETUP doesn't draw the menu, it only sets it up. MSETUP must be
followed by a MDRAW.
It is how I do it.
200 suqpictch=NEWCHAN%: OPEN#suqpictch,con_
:FLIM#suqpictch,xs%,ys%,xo%,yo%::MDRAW#suqpictch,'ql2pc',-1,-1,512,ys%
:DIM erg%(15)
205 r%=MSTAT%(#suqpictch,-1 TO 0):rem SPRW#suqpictch,6,4,'dbslogo':
210 REPeat loopmenu
215 number=MCALL(#suqpictch):
220 PVAL #suqpictch,erg% : venster_xs=erg%(8):venster_ys=erg%(9) :
venster_xo=erg%(10): venster_yo=erg%(11)
221 rem size and coordinates of menu(mdraw) are stored in the previous line
223 rem ------------------------------
224 rem So you don't need a second MDRAW to find the size
225 rem ------------------------
226 SELect ON number
230 =2^16 TO 2^32
235 REMark application subwindows
240 minum=INT(number/2^16)-1
440 ....
445 END SELect
450 =REMAINDER
455 END SELect
460 .....
465
480
485 =-1: REMark quit loose item
490 MCLEAR#suqpictch: CLOSE#suqpictch :
595 ...
600 END REP LOOPMENU
François Van Emelen
_______________________________________________
QL-Users Mailing List
