Statusbar mit Tooltips?

[AHT]

In meiner alten XProfan-Version zeigt die Statusbar keinen Tooltip an, wenn der Text nicht in die Statusbarspalte passt (muss da dann immer mit Messages nachbessern). Ist das in der aktuellen Version auch noch so?
Wenn ja, sollte das geändert werden.

[Frabbing]

Tooltipps für die Statusbar? Meinst du sowas? Wenn nein, poste doch mal einen kurzen Testcode.

[Bangkok]

Er meint wohl sowas

Proc SetStatusTip 'Der Tip erscheint nur, wenn das Feld Text abschneidet oder nur ein Icon enthält
parameters hndl&,part&,text$
Declare tiptext$,buf#
tiptext$ = text$
if tiptext$ <> ""
sendmessage(hndl&,$410,part&,Addr(tiptext$))
else
Dim buf#,512
sendmessage(hndl&,$402,part&,buf#)
tiptext$ = string$(buf#,0)
Dispose buf#
sendmessage(hndl&,$410,part&,Addr(tiptext$))
endif
endproc

Das ist aber auch noch unter XProfan 11.2 nur mit Messages zu erreichen

[AHT]

Zitat von Bangkok

Er meint wohl sowas

Proc SetStatusTip 'Der Tip erscheint nur, wenn das Feld Text abschneidet oder nur ein Icon enthält
parameters hndl&,part&,text$
Declare tiptext$,buf#
tiptext$ = text$
if tiptext$ <> ""
sendmessage(hndl&,$410,part&,Addr(tiptext$))
else
Dim buf#,512
sendmessage(hndl&,$402,part&,buf#)
tiptext$ = string$(buf#,0)
Dispose buf#
sendmessage(hndl&,$410,part&,Addr(tiptext$))
endif
endproc

Das ist aber auch noch unter XProfan 11.2 nur mit Messages zu erreichen

Ja, so was.
Hier Code:

DEF CreateStatusWindow(4) ! "comctl32","CreateStatusWindow"
Declare Dialog&,Status&,Text$
Windowstyle 31
Windowtitle "Statusbar Test"
Window 0,0-640,440
LET TEXT$="Statusbar im Hauptfenster"+Space$(1000)
Status&=CreateStatusWindow($50000920,ADDR(TEXT$),%HWND,1000)
Sendmessage(Status&,$401,0,@ADDR(TEXT$))
Sendmessage(Status&,$410,0,@ADDR(TEXT$))
While 0=0
 Waitinput
 SetWindowPos Status&,0,0-0,0
wend

[Frabbing]

Also das läuft bei mir richtig:

Cls
Var x&=Create("StatusWindow",%HWND,"")
SetText x&, "Text"+Space$(10000)
WaitInput
End

[Bangkok]

Also bei mir erscheint kein Tooltip. Mit +space$() erscheint weder bei dem Code von Andreas noch bei Franks Code ein Tip. Space$() abgeändert in MkStr$(), dann erscheint nur beim Code von Andreas ein Tooltip. Sollte es so Unterschiede beim Betriebsystem geben, fast unwahrscheinlich. Ich habe XP SP3.

[AHT]

Zitat von Bangkok

Also bei mir erscheint kein Tooltip. Mit +space$() erscheint weder bei dem Code von Andreas noch bei Franks Code ein Tip. Space$() abgeändert in MkStr$(), dann erscheint nur beim Code von Andreas ein Tooltip. Sollte es so Unterschiede beim Betriebsystem geben, fast unwahrscheinlich. Ich habe XP SP3.

Ooops... Wie kommt das denn?

[Frabbing]

Liegt es daran, dass ich XP SP2 benutze?

[AHT]

Zitat von Frabbing

Liegt es daran, dass ich XP SP2 benutze?

Kann ich mir nicht vorstellen. Das mit MkStr$ dürfte am installierten Zeichensatz liegen...

[Bangkok]

ich wüsste nicht, dass ich einen besonderen Zeichensatz verwende. Vielleicht ist mein Windows intelligenter und erkennt, dass trotz Space$(10000) der Text komplett lesbar ist.

[AHT]

Zitat von Bangkok

ich wüsste nicht, dass ich einen besonderen Zeichensatz verwende. Vielleicht ist mein Windows intelligenter und erkennt, dass trotz Space$(10000) der Text komplett lesbar ist.

Ist ja auch SP3, das muss intelligenter sein!