XProfan

English

Web
Scanner

The Toggel - Button - function have I in the XProfan 10 Help found.
Can whom Button too programmässig beforehand reindrücken?

I Have 8 Buttons on the Mainwindow, The I correspond to Edit wants.
should but not always any, separate a couple pressed go
Compile Mark Separation

-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

Regards

Web

Xprofan X3.1

Win7 auf AMDX6

08/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

a couple could difficult go. If only of/ one in a group his should, versuchs time with of/ one Groupbox drumherum.
otherwise must You to each Click whom status the Buttons inquire and properly settle. the goes even integrally simply with GetCheck/SetCheck.

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