XProfan

Español

Web
Scanner

El Toggel - Button - Función Yo en el XProfan 10 Ayuda gefunden.
Kann uno el Button auch programmässig vorab reindrücken?

Yo 8 Buttons en el Ventana principal, el Yo entsprechen bearbeiten voluntad.
Sollen pero no siempre todos, pero unos pocos gedrückt voluntad
Kompilieren Marca Separación

-Begin-----------------------------------------------------------------
-HeaderFiles---------------------------------------------------------
 $H Messages.ph
 $H Windows.ph
 $H CommCtrl.ph
-Constants-----------------------------------------------------------
Def &False 0
Def &True 1
-Variables-----------------------------------------------------------
Declare hWin&, hButton&
Declare Ende&
-Function ToggleButton-----------------------------------------------

Proc ToggleButton

    Parameters hButton&
    Declare btnStyle&, Result&
    btnStyle& = ~GetWindowLong(hButton&, ~GWL_STYLE)
    Result& = ~SetWindowLong(hButton&, ~GWL_STYLE, btnStyle& | $1003)

    If Result& = btnStyle&

        Return &True

    Else

        Return &False

    EndIf

EndProc

-Main----------------------------------------------------------------
hWin& = @Create("Window", %hWnd, "Bild im Button", 0, 0, 640, 480)
hButton& = @Create("Button", hWin&, "", 10, 10, 250, 100)
ToggleButton(hButton&)
-Loop--------------------------------------------------------------
Clear Ende&

Repeat

    WaitInput

    If %Key = 2

        Ende& = &True

    EndIf

Until Ende&

-End-------------------------------------------------------------------
./../funcion-referencias/XProfan/end/'>End

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

01.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Ein pocos podría schwierig voluntad. Wenns sólo uno en uno Gruppe ser se, versuchs veces con uno Groupbox drumherum.
Sonst mußt Usted después de cada Clic el Status el Buttons abfragen y entsprechend conjunto. Es incluso bastante simplemente con GetCheck/SetCheck.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...