XProfan

English

Dieter
Zornow

have straight with höchstem amazing fixes, I with Gettext$() not each boxes of/ one Statusbar read can. its of course not in Help erwähnt but I find if I with Settext each boxes settle can heard the Gegenstück simply and logischer point moreover. especially since it a really simple thing would the To implementieren.

Compile Mark Separation

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 with Sendmessage"
print GetStatusText(st&,0)
print GetStatusText(st&,1)
print GetStatusText(st&,2)
waitinput

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

09/07/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

this is of course Done, shows but a others Error, the me already more frequently noticed is:
The expenses with print GetText$ erfolgen one after another, instead of among themselves:

Compile Mark Separation

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 with Sendmessage"
print GetStatusText(st&,0)
print GetStatusText(st&,1)
print GetStatusText(st&,2)
waitinput