XProfan

Proc GetStatusText

    parameters hndl&,part&
    Declare buf#,text$
    Dim buf#,512
    sendmessage(hndl&,1026,part&,buf#)
    text$ = string$(buf#,0)
    Dispose buf#
    return text$

endproc

cls
Declare s#
Dim s#,12
Long s#,0 = 50, 280, -1
var st& = Create("StatusWindow",%Hwnd,"",3,s#)
dispose s#
settext st&,0,"Feld 1"
settext st&,1,"Feld 2"
settext st&,2,"Feld 3"
print gettext$(st&,0) + ""
print gettext$(st&,1)
print gettext$(st&,2)
print
print "Nun mit Sendmessage"
print GetStatusText(st&,0)
print GetStatusText(st&,1)
print GetStatusText(st&,2)
waitinput