XProfan

Español

Andre
Hilprecht

¡Hola zusammen,

GETFOCUS(EDIT1%) funktioniert aber GETFOCUS(Texto1%) no.

Nach una Waitinput frage Yo qué porque nun geklickt wurde, also kommen entonces el Zeilen

IF GETFOCUS(EDIT1%)
Eingabe
ELSEIF GETFOCUS(EDIT2%)
Eingabe
ELSEIF GETFOCUS(TEXT1%)
Eingabe
ENDIF

Clic en Editar1 - sprung a Proc Eingabe
Clic en Editar2 - sprung a Proc Eingabe
Clic en Texto1 - Nix pasiert

Was mache Yo falso, wo es mein Denkfehler?
Saludo 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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi una Textfeld es una Static y dieses kann nie el Focus bekommen.

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

Ist Texto1% una Static? Yo mi, hast du lo con Crear("Text" producido?
Meines Wissens después de puede Static-Controls (solche, como Textos, Bidler, etc.) gar no Foco obtener, por lo tanto es auch el Abfragen des Foco sinnlos.

Nico Madysa

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Das war el gesuchte Solución. Gracias euch, porque ihr habt me en el Sprünge geholfen.
Kompilieren Marca Separación

IF Clicked(Text1%)

    Eingabe

EndI

Nächste Cuestión wäre entonces:
Nun Yo una hübschen VScroll-Balken, como benutze Yo, el nun más en el Ventana principal?
Kompilieren Marca Separación

ElseIF VScroll1%

Rollen_vertikal

Finde dazu kein Ejemplo.

Saludo Andre

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jaja Scrollbalken son así una Thema.

Lo son sí getscrollpos

, si aber una fertige ScrollArea haben möchtest entonces kannst Usted Usted el gleichnamige Unit invitar.

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Fertige ScrollArea klingt bien, Yo vermute aber veces, el Yo entonces otra vez tausend Fragen habe, porque Yo costumbre el para Verständnis vom Urschleim her.
Gleich veces ne blöde Cuestión: Wo lade Yo el fertige gleichnamige Unit?

Also

VScroll1% = GetScrollPos(%hwnd)

son me valor zurück, wo el Knopf vom Scrollbalken es.
Soll sí zwischen 0 y 100 ser, Yo schiebe also al Knopf, el Valor wäre ahora angenommen 11,
como bewege Yo ahora synchron dazu mein Ventana principal, el Yo sicher de el Größe her ahora größer
hacer muss como el Bildschirm selber de el Auflösung her?

Fals el Unit para una Principiante como mich ligeramente a händeln es, o. uno se hay ligeramente reinfinden kann,
Yo me zumindest veces anschauen.

Saludo y Gracias en el Voraus de Andre

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

[...]

Lo son auch SetScrollPos y SetScrollRange.

Näheres en el Ayuda. (Kapitel 20.9.)

Schöne Grüße
Michael Wodrich

P.S.: ...y natürlich el Hilfetext en Crear("VScroll",... no vergessen.

Programmieren, das spannendste Detektivspiel der Welt.

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

El Unit es alles otro como ligeramente a handeln - incluso erfahrene XProfan bekommen lo kaum hin. Dennoch Yo Beispiele para fast todos Eventualitäten beigelegt.

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Como sieht uno veces otra vez, dass ROC doch no así schlecht es.
Hier sólo con Subclassmanager gearbeitet y Incluya el direkt en el código geschrieben.
Ist sólo Subclass - como va todavía mehr

Kompilieren Marca Separación

 $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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das todo va wohl a Not auch sin Subclassing en API ScrollWindow, dazu muss uno aber algo rechnen.

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Das Yo geahnt, habe me de tiempo el Teil angesehen y komme así überhaupt no está claro.
Jetzt brauche Yo, el XPSE-Compiler, toll, Yo bin begeistert.
Und después de que nun alles a seinem Platz hatte, also el Verweis en Incluya el y el
en el XPSE-Compiler, sagt él me jetz Unitdefinitionsdatei <SCROLLAREA> fehlt, obwohl ellos como es
y luego Programa fehlerhaft.

Also el hilft No wirklich más.

SetScrollPos y SetScrollRange conjunto doch eben sólo el Position des Knopfes innerhalb des
VScroll1%-Elementes, no aber el ahora la ventana principal incluso gescrollt se. Das bräuchte Yo
doch sólo, si yo el Ventana en uno gescrollten Position speichern/schließen voluntad en lo a dieser
Position otra vez a abierto. Dann muss Todavía auch el Knopf a el Position conjunto.?

Oder bin Yo como vollkommen en el falschen Dampfer?

Saludo Andre

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

@AH,
klar gehts en API y genauso con Profanboardmitteln. Jedoch son el así Stur, lo se nichts LIVE aktualisiert. Für algo como es Subclass simplemente genial!!!

17.02.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

►