| |
|
|
Web Scanner | qui Toggel - Button - Funktion habe je dans qui XProfan 10 Aider trouvé. peux on den Button aussi programmässig vorab reindrücken? je hab 8 Buttons sur dem Hauptfenster, qui je entsprechen Travailler veux. devoir mais pas toujours alle, mais un paire gedrückt volonté KompilierenMarqueSéparation-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/'>Fin
Grüße
Web |
|
|
| |
|
|
|
Jörg Sellmeyer | un paire pourrait schwierig volonté. Wenns seulement einer dans einer Gruppe son soll, versuchs la fois avec einer Groupbox drumherum. Sonst dois Du pour chaque Klick den Status qui Buttons abfragen et entsprechend mettons. cela allez sogar entier simple avec GetCheck/SetCheck. |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 01.08.2008 ▲ |
|
|
|