XProfan

Italia

Dieter
Zornow

Habe gerade mit höchstem Erstaunen festgestellt, dass ich mit Gettext$() nicht die einzelnen Felder einer Statusbar auslesen kann. Es ist zwar auch nicht in der Aiuto erwähnt aber ich finde wenn ich mit Settext die einzelnen Felder setzen kann gehört das Gegenstück einfach und logischer Weise dazu. Zumal es eine wirklich simple Sache wäre das zu implementieren.

Kompilieren Markieren Separieren

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

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

07.09.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Das ist zwar erledigt, zeigt aber einen anderen Fehler, der mir schon häufiger aufgefallen ist:
Die Ausgaben mit print GetText$ erfolgen hintereinander, statt untereinander:

Kompilieren Markieren Separieren

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