XProfan

Deutsch

Beschreibung:

CreateStatusWindow - Statusausgabecontrol am unteren Ende des angegebenen Fensters.

Deklaration:

DEF CreateStatusWindow(4) ! comctl32,CreateStatusWindow

Parameter:

1.Parameter: Flag für den Fensterstil des zu erzeugenden Controls. Mehrere Flags können mit | addiert werden (siehe in der Profan Windows.PH unter { Window Styles } =>
-$10000000 = Control ist sichtbar (WS_VISIBLE).
-$40000000 = Control ist Kindfenster eines Hauptfensters (WS_CHILD).
-....

2.Parameter: Adresse eines Strings oder Bereichsvariable mit einem String, der einen Text angiebt, der im StatusWindow Control erscheinen soll.

3.Parameter: Handle des Fensters, auf dem das Control erscheinen soll als LongInt.

4.Parameter: Hier kann man eine ID für das Control angeben.

Rückgabewert:

0 bei Misserfolg, ansonsten das Handle des Controls.

Beispiele:

Kompilieren Markieren Separieren

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