Statusbar mit Tooltips?

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • Statusbar mit Tooltips?

      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.
    • Er meint wohl sowas

      Quellcode

      1. Proc SetStatusTip 'Der Tip erscheint nur, wenn das Feld Text abschneidet oder nur ein Icon enthält
      2. parameters hndl&,part&,text$
      3. Declare tiptext$,buf#
      4. tiptext$ = text$
      5. if tiptext$ <> ""
      6. sendmessage(hndl&,$410,part&,Addr(tiptext$))
      7. else
      8. Dim buf#,512
      9. sendmessage(hndl&,$402,part&,buf#)
      10. tiptext$ = string$(buf#,0)
      11. Dispose buf#
      12. sendmessage(hndl&,$410,part&,Addr(tiptext$))
      13. endif
      14. endproc
      Alles anzeigen


      Das ist aber auch noch unter XProfan 11.2 nur mit Messages zu erreichen
      Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai.
      dieterzornow.gmxhome.de
    • Bangkok;717020 schrieb:

      Er meint wohl sowas

      Quellcode

      1. Proc SetStatusTip 'Der Tip erscheint nur, wenn das Feld Text abschneidet oder nur ein Icon enthält
      2. parameters hndl&,part&,text$
      3. Declare tiptext$,buf#
      4. tiptext$ = text$
      5. if tiptext$ <> ""
      6. sendmessage(hndl&,$410,part&,Addr(tiptext$))
      7. else
      8. Dim buf#,512
      9. sendmessage(hndl&,$402,part&,buf#)
      10. tiptext$ = string$(buf#,0)
      11. Dispose buf#
      12. sendmessage(hndl&,$410,part&,Addr(tiptext$))
      13. endif
      14. endproc
      Alles anzeigen


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


      Ja, so was.
      Hier Code:

      Quellcode

      1. DEF CreateStatusWindow(4) ! "comctl32","CreateStatusWindow"
      2. Declare Dialog&,Status&,Text$
      3. Windowstyle 31
      4. Windowtitle "Statusbar Test"
      5. Window 0,0-640,440
      6. LET TEXT$="Statusbar im Hauptfenster"+Space$(1000)
      7. Status&=CreateStatusWindow($50000920,ADDR(TEXT$),%HWND,1000)
      8. Sendmessage(Status&,$401,0,@ADDR(TEXT$))
      9. Sendmessage(Status&,$410,0,@ADDR(TEXT$))
      10. While 0=0
      11. Waitinput
      12. SetWindowPos Status&,0,0-0,0
      13. wend
      Alles anzeigen
    • 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.
      Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai.
      dieterzornow.gmxhome.de
    • Bangkok;717186 schrieb:

      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? 8O