XProfan

Français

Beschreibung:

CreateStatusWindow - Statusausgabecontrol am unteren Ende des angegebenen Fensters.

Deklaration:

DEF CreateStatusWindow(4) ! comctl32,CreateStatusWindow

paramètre:

1.paramètre: Flag pour den Fensterstil des trop erzeugenden Controls. plusieurs Flags peut avec | addiert volonté (siehe dans qui Profan Windows.PH sous { Fenêtre Styles } =>
-$10000000 = Contrôle ist sichtbar (WS_VISIBLE).
-$40000000 = Contrôle ist Kindfenster eines Hauptfensters (WS_CHILD).
-....

2.paramètre: Adresse eines Cordes ou bien Bereichsvariable avec einem String, qui une Text angiebt, qui im StatusWindow Contrôle erscheinen soll.

3.paramètre: Handle des Fensters, sur dem cela Contrôle erscheinen soll comme LongInt.

4.paramètre: ici peux on une ID pour cela Contrôle angeben.

Rückgabewert:

0 chez Misserfolg, ansonsten cela Handle des Controls.

Beispiele:

Kompilieren Marque Séparation

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