Caption vom Button in die Statusbar [erledigt]
Verfasst: Sa, 29. Apr 2023 20:10
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.
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.
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