Deutsch
Bugs und vermeintliche

Gettext$() und Statuswindow

 

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 Hilfe 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.
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  
 




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:
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
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
04.11.2011  
 



@Jörg: Wie hier:  [...] 
 
04.11.2011  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

5.741 Betrachtungen

Unbenanntvor 0 min.
RudiB.26.12.2021
Jörg Sellmeyer30.05.2018
Wilfried22.05.2016
Achim Engelhardt12.02.2015
Mehr...

Themeninformationen

Dieses Thema hat 3 Teilnehmer:

iF (1x)
Jörg Sellmeyer (1x)
Dieter Zornow (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie