| |
| |
|
Andre
Hilprecht | allô zusammen,
GETFOCUS(EDIT1%) funktioniert mais GETFOCUS(Text1%) pas.
Pour einem Waitinput frage je quoi car eh bien geklickt wurde, alors venons ensuite qui Zeilen
IF GETFOCUS(EDIT1%)
Eingabe
ELSEIF GETFOCUS(EDIT2%)
Eingabe
ELSEIF GETFOCUS(TEXT1%)
Eingabe
ENDIF
Klick sur Éditer1 - sprung zur Proc Eingabe
Klick sur Éditer2 - sprung zur Proc Eingabe
Klick sur Text1 - Nix pasiert
quoi fais je faux, wohin ist mon Denkfehler?
Salut Andre |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 17.02.2007 ▲ |
|
| |
|
|
Rolf
Koch | | Hi un Textfeld est un Static et cet peux nie den Concentrer bekommen. |
|
| |
| |
| |
|
|
Nico
Madysa | Ist Text1% un Static? je mon, la hâte du es avec Créer("Text" erzeugt?
Meines Wissens pour peut Static-Controls (solche, comment Textes, Bidler, etc.) gar keinen Concentrer conservé, daher ist aussi cela Abfragen des Concentrer sinnlos. |
|
| |
| |
| |
|
|
Andre
Hilprecht | cela était qui gesuchte Solution. merci euch, car vous avez mir sur qui Sprünge geholfen.
KompilierenMarqueSéparation
prochain Frage wäre ensuite:
eh bien habe je une hübschen VScroll-poutre, comment benutze Je l' eh bien plus im Hauptfenster?
KompilierenMarqueSéparation
Finde en supplément ne...aucune Beispiel.
Salut Andre |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 17.02.2007 ▲ |
|
| |
|
|
 | Jaja Scrollbalken sommes so un Thema.
il y a oui getscrollpos  , si Du mais une fertige ScrollArea avons vouloir ensuite peux Du Dir qui gleichnamige Unit magasin. |
|
| |
| |
| |
|
|
Andre
Hilprecht | Fertige ScrollArea klingt bien, je vermute mais la fois, le moi ensuite juste wieder mille Fragen habe, weil je coutume cela zum Verständnis vom Urschleim her.
juste la fois ne blöde Frage: wohin lade je qui fertige gleichnamige Unit?
alors
VScroll1% = GetScrollPos(%hwnd)
gibt mir la valeur zurück, wohin qui Knopf vom Scrollbalken steht.
Soll oui entre 0 et 100 son, je schiebe alors am Knopf, qui Wert wäre maintenant angenommen 11,
comment bewege je maintenant synchron en supplément mon Hauptfenster, le moi sûrement de qui Taille her maintenant größer
faire muss comme qui Bildschirm selber de qui Auflösung her?
Fals qui Unit pour une Débutant comment mich léger trop händeln ist, bzw. on sich là léger reinfinden peux,
ensuite serait je mir cela zumindest la fois anschauen.
Salut et merci im Voraus de Andre |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 17.02.2007 ▲ |
|
| |
|
|
Michael
Wodrich | [...]
il y a aussi SetScrollPos et SetScrollRange.
Particularités dans qui Aider. (le chapitre 20.9.)
belle Grüße
Michael Wodrich
P.S.: ...et naturellement den Hilfetext chez Créer("VScroll",... pas oublier qc. |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 17.02.2007 ▲ |
|
| |
|
|
| | qui Unit ist alles autre comme léger trop agir - selbst erfahrene XProfaner bekommen es à peine hin. toutefois habe je Beispiele pour presque alle Eventualitäten beigelegt. |
|
| |
| |
| |
|
|
Rolf
Koch | là sieht on la fois wieder, dass ROC doch pas so mal ist.
ici arrêt avec Subclassmanager gearbeitet et qui Include direct dans den Code geschrieben.
Ist arrêt Sous-classe - là allez encore plus 
KompilierenMarqueSéparation $P+
SET("ERRORLEVEL",0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.5b
DATUM 17.02.2007 um 14:39 Uhr
VERWENDETE PROFANVERSION IST 10.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
Subclass für %hwnd ist eingeschaltet!
!!! Dieser Code wird von Roc immer neu erzeugt !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
!!! Verändern Sie ggf. feste Pfade in variable Pfade !!!
DECLARE VSCROLL1&
DECLARE TEXT1&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
$H C:PROFANAKTUELLE PROJEKTEROCLIBWINDOWS.PH ANPASSEN!!!!!!!!!
$H C:PROFANAKTUELLE PROJEKTEROCLIBMESSAGES.PH ANPASSEN!!!!!!
Hier nichts ändern **************************************
declare p_x1&,p_x2&
PROC INITSUBCLASS
p_x1&=~Getwindowlong(%Hwnd,~Gwl_wndproc)
p_x2&=Procaddr(Windowproc,4)
~Setwindowlong(%Hwnd,~Gwl_wndproc, p_x2&)
ENDPROC
PROC SETSTANDARDMESSAGE
~Setwindowlong(%Hwnd,~Gwl_wndproc, p_x1&)
ENDPROC
PROC SETEXTENDMESSAGE
~Setwindowlong(%Hwnd,~Gwl_wndproc, p_x2&)
ENDPROC
*********************************************************
Hier können die eigenen Abfragen hin ********************
Proc Windowproc
Parameters Wnd&, Msg&, Wparam&, Lparam&
If Msg& = ~Wm_close
~Postquitmessage(0)Programm-Ende
Endif
IF MSG& = ~WM_VSCROLL
SETTEXT TEXT1&,"Aktuelle Position: "+STR$(GETSCROLLPOS(VSCROLL1&)) hier als Beispiel die Position in Textfeld!!!!!!!!!!!!!!
SPIELEREI:
setwindowpos %hwnd=22,20-(250+GETSCROLLPOS(VSCROLL1&)),(310+GETSCROLLPOS(VSCROLL1&))
ENDIF
Return ~Callwindowproc(p_x1&,Wnd&, Msg&, Wparam&, Lparam&)
Endproc
WINDOWSTYLE 63
WINDOWTITLE "The Elder scrolls *lol*"
WINDOW 22,20-250,310
SET("TRUECOLOR",1)
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Set("FASTMODE",1)
VSCROLL1& = CREATE("VScroll",%HWND,"VScroll",0187,0017,0014,0216)
TEXT1& = CREATE("TEXT",%HWND,"Aktuelle Position:",0017,0017,0158,0020)
INITSUBCLASS muss an diese Position
SETSTANDARDMESSAGE muss an diese Position
SETFOCUS(%HWND)
SETEXTENDMESSAGE muss an diese Position
WHILENOT ENDE%
WAITINPUT
SETSTANDARDMESSAGE muss an diese Position
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ENDIF
SETEXTENDMESSAGE muss an diese Position
ENDWHILE
|
|
| |
| |
| |
|
|
 | | cela ganze allez wohl zur Not aussi sans Subclassing sur qui API ScrollWindow, en supplément muss on mais quelque chose le calcul. |
|
| |
| |
| |
|
|
Andre
Hilprecht | cela habe je geahnt, habe mir la fois cela partie angesehen et viens avec cela pas du tout bien sûr.
maintenant brauche Je l' XPSE-Compiler, toll, je suis begeistert.
et après que je eh bien alles à seinem place hatte, alors den Verweis sur qui Include et den
sur den XPSE-Compiler, sagt il mir jetz Unitdefinitionsdatei <SCROLLAREA> fehlt, quoique vous voilà
et ensuite Programme incorrect.
alors cela hilft Je ne wirklich plus.
SetScrollPos et SetScrollRange mettons doch plan seulement qui Position des Knopfes dedans des
VScroll1%-Elementes, pas mais cela maintenant cela Hauptfenster selbst gescrollt wird. cela bräuchte je
doch seulement, si je cela la fenêtre dans einer gescrollten Position Sauver/schließen veux um es à cette
Position wieder trop ouvrir. ensuite muss je doch aussi den Knopf à qui Position mettons.?
ou bien suis je là vollkommen sur dem falschen le vapeur?
Salut Andre |
|
| |
| Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen
XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils | 17.02.2007 ▲ |
|
| |
|
|
Rolf
Koch | @AH,
bien sûr gehts sur qui API et genauso avec Profanboardmitteln. cependant sommes qui so Stur, es wird rien LIVE aktualisiert. Pour quelque chose comme ist Sous-classe simple genial!!! |
|
| |
| |
| |
|
(858)
Deutsch
English
Français
Español
Italia