| |
| |
|
Julian
Schmidt | Dieser Bildschirmschoner kann sólo darse por concluido, si una Blindpasswort eingeben se. En Passworteingabe es Groß- y Kleinschreibung egal.
Noch effektiver es si la FastMode aktiviert se!
KompilierenMarcaSeparaciónWindowStyle $F0
Window 0, 0 - %MaxX, %MaxY
Setwindowpos %hwnd=0, 0 - %MaxX, %MaxY;-1
Cls 0
ShowCursor 0
var blindpasswort$=Upper$("XProfan")
var passwort_edit& = Create("Edit",%HWnd,"",%MaxX,%MaxY,0,(-1)*25)
ShowWindow(passwort_edit&,0)
while 1
sleep 30
setfocus(passwort_edit&)
case Upper$(Gettext$(passwort_edit&))<>Left$(blindpasswort$,Len(Gettext$(passwort_edit&))) : Settext passwort_edit&,""
case Upper$(Gettext$(passwort_edit&))=blindpasswort$ : end
'Bildschirmschoner - Algorithmus
Color Rnd(16),Rnd(16)
print MkStr$(" ",%MaxX/8)
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 26.07.2011 ▲ | |
|
| |
|
|
 | Bisl Murx es el aber ya. ^ ^
Vlt. UserMessage wm_keyUp oder una Editar en el no-sichtbaren Zona y el Fokus festkleben. |
|
| |
| |
| |
|
|
Julian
Schmidt | ¿Cómo se puede uno porque el Fokus festkleben?  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
| |
|
|
| Si usted una Sleep 30 machst simplemente danach una SetFocus -
oder eben "ordentlich" por Subclassing. |
|
| |
| |
| |
|
|
Julian
Schmidt | IF (26.07.11)
Si usted una Sleep 30 machst simplemente danach una SetFocus -
Exactamente el Yo doch getan, con el Línea:
KompilierenMarcaSeparación
Der Diferencia liegt en él el el Foco sólo gesetzt se, si todavía no gesetzt es.... |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
| |
|
|
| Hatte Yo no gesehen - sorry.
Tip: casenot getfocus(passwort_edit&) : setfocus(passwort_edit&) benötigt ungefähr 3veces mehr CPU/ Strom/ Tiempo como simplemente sólo setFocus(passwort_edit&). |
|
| |
| |
| |
|
|
Julian
Schmidt | ¿Por qué zieht casenot getfocus(passwort_edit&) : setfocus(passwort_edit&) "ungefähr 3veces mehr CPU/ Strom/ Zeit"?
Pensé más weniger!   |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 26.07.2011 ▲ |
|
| |
|
|
| Laienhaft gezählt:
1: getfocus
2: casenot
2,5: setfocus
sólo en:
1: setfocus
In dieser Situation "lohnt" el Prüfen no como el Prüfung lastiger es como el letztendliche Anweisung. |
|
| |
| |
| |
|
(652)
Deutsch
English
Français
Español
Italia