XProfan

English

Description:

CreateStatusWindow - Statusausgabecontrol on the downstairs end the angegebenen Fensters.

Deklaration:

DEF CreateStatusWindow(4) ! comctl32,CreateStatusWindow

Parameter:

1.Parameter: Flag for Fensterstil the To erzeugenden Controls. several ? Happen? can with | add go (see in the Profan windows.PH under { Window Styles } =>
-$10000000 = Control is visible (WS_VISIBLE).
-$40000000 = Control is Kindfenster a main window (WS_CHILD).
-....

2.Parameter: address one Strings or Memory-Variable with a String, the a Text angiebt, the in the Status Window Control attend should.

3.Parameter: lever the Fensters, on the the control attend should as LongInt.

4.Parameter: here can a ID for the Control indicate.

Return Value:

0 with failure, otherwise the lever the Controls.

Examples:

Compile Mark Separation

DEF @CreateStatusWindow(4) ! "comctl32","CreateStatusWindow"
Declare Dialog&,Status&,Text$
Windowstyle 31
Windowtitle "Statubar Test"
Window 0,0-640,440
Dialog& = @CreateDialog(%hwnd,"Dialog",10,10,300,300)
LET TEXT$="Statusbar im Dialog"
Status& = @CreateStatusWindow($50000000,@ADDR(TEXT$),Dialog&,1000)

While 0=0

    Waitinput

    IF @AND(@GetActiveWindow()=Dialog&,%MENUITEM=-2)

        @Destroywindow(Dialog&)

    Endif

wend