XProfan

Español

Descripción:

CreateStatusWindow - Statusausgabecontrol al unteren Ende des angegebenen Fensters.

Deklaration:

DEF CreateStatusWindow(4) ! comctl32,CreateStatusWindow

Parámetro:

1.Parámetro: Flag para el Fensterstil des a erzeugenden Controls. Mehrere Flags puede con | addiert voluntad (siehe en el Profano Windows.PH bajo { Ventana Styles } =>
-$10000000 = Control es sichtbar (WS_VISIBLE).
-$40000000 = Control es Kindfenster uno Hauptfensters (WS_CHILD).
-....

2.Parámetro: Adresse uno Cuerdas oder Bereichsvariable con un String, el una Texto angiebt, el en el StatusWindow Control erscheinen se.

3.Parámetro: Handle la ventana, en el el Control erscheinen se como LongInt.

4.Parámetro: Hier puede ser una ID para el Control angeben.

Rückgabewert:

0 en Misserfolg, ansonsten el Handle des Controls.

Beispiele:

Kompilieren Marca Separación

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