Caption vom Button in die Statusbar [erledigt]

[Bruno]

Hallo,
kann mir einer verraten, welche Anweisung ich machen muss, um die Caption eines Button in die Statusbar zu bekommen. Es sind mehrere Button und wenn einer angeklickt wird soll seine Caption in der Statusbar stehn.
Es soll natürlich wieder die ursprüngliche Caption des Status panels in der Statusbar erscheinen, wenn die Buttonaktion beendet ist.

Code: Alles auswählen

  PROCEDURE AenderCaption( oSBar, oXbp )
    LOCAL oParent := oSBar:setParent()
    LOCAL oPanel
    LOCAL a

       oPanel := oSbar:getItem( "TXTPANEL" )
       oPanel:caption  := oXbp:caption
       oPanel:autoSize := XBPSTATUSBAR_AUTOSIZE_CONTENTS


  RETURN

Damit bekomme ich zwar die Caption des Button in die Statusbar, aber ich finde keine Lösung dafür, die ursprüngliche Caption wiederherzustellen, hänge da momentan.

[Bruno]

Hallo Mitglieder,
habe die Lösung:

Code: Alles auswählen

PROCEDURE AenderCaption( oSBar, oXbp,cOldCaption )
    LOCAL oParent := oSBar:setParent()
    LOCAL oPanel
    oPanel := oSbar:getItem( "TXTPANEL" )
    IF oPanel:caption <> oXbp:caption
        oPanel:caption  := oXbp:caption
        oPanel:autoSize := XBPSTATUSBAR_AUTOSIZE_CONTENTS
    ELSE
        oPanel:caption:=cOldCaption
        oPanel:autoSize := XBPSTATUSBAR_AUTOSIZE_CONTENTS
    ENDIF
RETURN

Ich gebe einfach die alte Caption mit und vergleiche ob sie geändert ist.

Wäre erfreut, wenn zusätzliche Möglichkeiten erwähnt würden.