Cursor Blinkfrequenz
[ Nach unten | Zum letzten Beitrag | Thema abonnieren | Neueste Beiträge zuerst ]
Cursor Blinkfrequenz
von Paradox am 03.02.2009 21:52$H windows.ph
Declare Edit&,Ende&,E%
Proc Blink
~SetCaretBlinkTime(100) 'hier mal andere Werte probieren
EndProc
Window 50,50-480,240
Edit& = @Create("Edit", %hWnd, "Testblinker", 10, 10, 200, 24)
Ende& = @Create("Button",%hWnd, "Ende", 10, 90, 200, 24)
SetFocus (Edit&)
Blink
E% = 0
WhileNot E%
WaitInput
If @Clicked(Ende&)
~SetCaretBlinkTime(500)
END
EndIf
If GetFocus(Edit&)
~SetCaretBlinkTime(100)
EndIf
EndWhile
Declare Edit&,Ende&,E%
Proc Blink
~SetCaretBlinkTime(100) 'hier mal andere Werte probieren
EndProc
Window 50,50-480,240
Edit& = @Create("Edit", %hWnd, "Testblinker", 10, 10, 200, 24)
Ende& = @Create("Button",%hWnd, "Ende", 10, 90, 200, 24)
SetFocus (Edit&)
Blink
E% = 0
WhileNot E%
WaitInput
If @Clicked(Ende&)
~SetCaretBlinkTime(500)
END
EndIf
If GetFocus(Edit&)
~SetCaretBlinkTime(100)
EndIf
EndWhile
Antworten