Français
Forum

GETFOCUS(Text1%)

 

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.
 
17.02.2007  
 




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.
 
Nico Madysa
17.02.2007  
 




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.
 
17.02.2007  
 




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.
 
17.02.2007  
 




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

 
17.02.2007  
 



cela ganze allez wohl zur Not aussi sans Subclassing sur qui API ScrollWindow, en supplément muss on mais quelque chose le calcul.
 
17.02.2007  
 




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




répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

14.021 Views

Untitledvor 0 min.
Manfred Barei13.11.2015
Uwe Lang01.01.2012

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie