XProfan

Deutsch

Web
Scanner

Die Toggel - Button - Funktion habe ich in der XProfan 10 Hilfe gefunden.
Kann man den Button auch programmässig vorab reindrücken?

Ich hab 8 Buttons auf dem Hauptfenster, die ich entsprechen bearbeiten will.
Sollen aber nicht immer alle, sondern ein paar gedrückt werden
Kompilieren Markieren Separieren

-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-------------------------------------------------------------------
End

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

01.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ein paar könnte schwierig werden. Wenns nur einer in einer Gruppe sein soll, versuchs mal mit einer Groupbox drumherum.
Sonst mußt Du nach jedem Klick den Status der Buttons abfragen und entsprechend setzen. Das geht sogar ganz einfach mit GetCheck/SetCheck.

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