status bar text

[lord_icon]

Greetings.
I wish to change the text in the status bar on my app.
I am using OE 10.1 on a Windows box.
I wish to change the text on my window as I change the tabs page.
So on each page set the text to display whatever.
I also require the syntax to get the page number.
So my code will look something like:
iPageNbr = dynamic function here to get page number.
case iPageNbr:
WHEN 1
DO:
/* WHATEVER */
END.
WHEN 2
DO:
/* WHATEVER */
END.
TIA

 

[TomBascom]

Are you looking for the STATUS statement?

STATUS { DEFAULT [ expression ] | INPUT [ OFF | expression ] } [ IN WINDOW window ]

DEFAULT expression
Replaces the default status message when a user is running a procedure (the default status message is blanks). The expression must be character and must be enclosed in quotes if it is a constant. If you do not specify an expression, the AVM resets the STATUS DEFAULT line to its original state. The STATUS DEFAULT is a maximum of 63 characters.

INPUT OFF
Tells the AVM not to display an input status message.

INPUT expression
Replaces the default status message when a user is entering data into a frame field. The expression must be character and must be enclosed in quotes if it is a constant. If you do not specify an expression, the AVM resets the STATUS INPUT line to its original state.

IN WINDOW window
Specifies the window in which to set the status message. If you omit the IN WINDOW phrase, the STATUS statement applies to the current window.

 

[lord_icon]

No I am displaying it currently, I do not require the syntax for that.
Just the syntax to set the attribute.
eg {&window-name}:statusText = "whatever I want to see"
TIA

 

[lord_icon]

Worked it out
I used this syntax
STATUS DEFULT 'pants'
I can now alter as appropriate.

 

[lord_icon]

I just require the dynamic function needed to get the page number.
I do not know the ADM 2 method to retrieve the window page number.
I knew it in ADM(1), though currently trying to retrieve it in ADM 2 ??.
TIA

 

[lord_icon]

DEFINE VARIABLE iPage AS INTEGER NO-UNDO .

{get CurrentPage iPage}.