GFA BASIC 3.0 Bedienungsanleitung Seite 520

Anwender-Dokumentation GFA-BASIC 3.0
' Fensterprogrammierung
DEFFILL 1,2,4
PBOX 0,19,639,399
DEFFILL 1,0
DIM message buffer%(3) ! 16 Byte
adr_mes%=V:message_buffer%(0)
|
ABSOLUTE word0&,adr_mes%
ABSOLUTE x&,adr_mes%+8
ABSOLUTE y&,adr_mes%+10
ABSOLUTE w&,adr_mes%+12
ABSOLUTE h&,adr_mes%+14
handle&=WIND CREATE(&X101111,0,19,639, 380)
titel$="Window"
adr tit%=V:titel$
—WIND_SET(handle&,2,CARD(SWAP(adr_tit%)),CARD(adr_tit%),0,0)
~ WIND OPEN(handle&,100,100,200,100)
~ WIND GET(hand1e&,4,wx&,wy&, ww&,wh&)
PBOX wx& ,wy&,wxätwwä,wy&twh&
raus!=FALSE
REPEAT
' nächste Zeile nur aus Platzgründen geteilt
~ EVNT_MULTI(&X110000,0,0,0,0,0,0,0,0,0,0,0,0,0,adr_mes%,100)
SELECT word0&
CASE 22 I WM CLOSED
raus !=TRUE
CASE 23 | WM FULLED
11 - 94