| |
|
|
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!!! |
|
|
| |
|
|