Caption vom Button in die Statusbar [erledigt]

Klassen, Objekte, Methoden, Instanzen

Moderator: Moderatoren

Antworten
Benutzeravatar
Bruno
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 103
Registriert: So, 16. Apr 2023 23:11
Wohnort: Lauterbach
Hat sich bedankt: 30 Mal
Danksagung erhalten: 5 Mal

Caption vom Button in die Statusbar [erledigt]

Beitrag von 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.
Zuletzt geändert von Bruno am Do, 04. Mai 2023 10:11, insgesamt 1-mal geändert.
Gruss Bruno
Xbase++ 1.9.355 ohne eExpress
Benutzeravatar
Bruno
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 103
Registriert: So, 16. Apr 2023 23:11
Wohnort: Lauterbach
Hat sich bedankt: 30 Mal
Danksagung erhalten: 5 Mal

Re: Caption vom Button in die Statusbar

Beitrag von 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.
Gruss Bruno
Xbase++ 1.9.355 ohne eExpress
Antworten