| |
|
|
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 KompilierenMarkierenSeparieren-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 |
|
|
| |
|
|
|
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 ... | 01.08.2008 ▲ |
|
|
|