XProfan

Italia

Web
Scanner

Die Toggel - Button - Funktion habe ich in der XProfan 10 Aiuto 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-------------------------------------------------------------------
./../funcion-referencias/xprofan/end/'>End

Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

01.08.2008 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Ein paar potuto 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 ...