XProfan

Español

Timotheus

¡Hola,

3 Fragen:

1. Kann uno a Edits (Como en Listboxen) una waagerechten Scrollbalken einfügen? Weil Yo möchte el Zeilenanzahl en uno EditBox Mostrar, y si entonces z.B. el Línea a lang se, entonces el Scrallbalken plötzlich en el letzten Línea.

2. Kann uno en uno Editar el Anfang uno Línea marca, en el uno sólo el Zeilennummer sabe, pero no el número Signo el davor posición?

3. Como viele Zeilen umfassen el el Befehle SendString(Edit&,{PGUP}) y SendString(Edit&,{PGDN})? Ist el de el größe des Edits abhängig, oder ha el siempre una festen Valor? :rolleyes:

Gracias para Respuesta, Timo

14.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Timo...

Bin a Tiempo desafortunadamente con a vielen otro Sachen beschäftigt y verstehe auch no bastante qué du möchtest. ¿Puede dus una vez más algo anders erklären???

18.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Normann
Strübli

Hi,

en Deiner Ersten Cuestión bin Yo ahora no bastante sicher lo que quiere decir.
Usted möchtest no el el Waagerechte Scrollbalken IN el Editar Auftaucht pero
daneben oder como ahora?

a 2.
El Signo el antes uno Línea (hier Línea%) posición kannst Usted bastante simplemente
hiermit ermitteln:
@SendMessage(edit%,~EM_LINEINDEX,Línea%,0)
El Función son entonces el número el Signo antes Línea Nr. Línea% zurück.

Saludo
Normann

18.10.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Normann
Strübli

Hi,

Nochmal kurz a Cuestión3:

Persönlich sería Yo, el Befehl Sendstring no uso, lo va auch algo
eleganter. Im folgenden Ejemplo kannst Usted el Texto Zeilen- oder Seitenweise
en Deinem Editar Scrollen Yo hoffe el hilft Usted más...

Saludo
Normann

Kompilieren Marca Separación

Encabezamiento-Archivos
 $H windows.ph
 $H structs.ph
 $H messages.ph
 $H commctrl.ph
DEF LoWord(1) And(&(1),$FFFF)
DEF HiWord(1) And(&(1)>>16,$FFFF)
DEF MakeLong(2) Or(&(1),&(2)<<16)
CLS
DECLARE Editar%
Edit% = @Crear("MultiEdit",%HWnd,"",10,10,200,200)
declarar Scroll&
Declarar ScrollPGDN&,ScrollPGUP&,ScrollLineUp&,ScrollLineDown&
ScrollPGDN& = @Crear("Button",%HWND,"PGDN",0,300,80,20)
ScrollPGUP& = @Crear("Button",%HWND,"PGUP",110,300,80,20)
ScrollLineUp& = @Crear("Button",%HWND,"LineUp",0,340,80,20)
ScrollLineDown& = @Crear("Button",%HWND,"LineDown",110,340,80,20)

whilenot 0

    waitinput

    IF @GetFocus(ScrollPGDN&)

        Scroll& = @SendMessage(edit%,~EM_SCROLL,~SB_PAGEDOWN,0)

    Elseif @GetFocus(ScrollPGUP&)

        Scroll& = @SendMessage(edit%,~EM_SCROLL,~SB_PAGEUP,0)
        Scroll& = Makelong(65536 - LoWord(Scroll&),HiWord(Scroll&))

    Elseif @GetFocus(ScrollLineUp&)

        Scroll& = @SendMessage(edit%,~EM_SCROLL,~SB_LINEUP,0)
        Scroll& = Makelong(65536 - LoWord(Scroll&),HiWord(Scroll&))

    Elseif @GetFocus(ScrollLineDown&)

        Scroll& = @SendMessage(edit%,~EM_SCROLL,~SB_LINEDOWN,0)

    endif

    If HiWord(Scroll&)

        Localizar 18,1
        imprimir @Espacio$(30)
        Localizar 18,1
        Imprimir "Zeilen Gescrollt: ",LoWord(Scroll&)Erfolgreich gescrollt
        imprimir scroll&
        @Setfocus(edit%)
        Scroll& = 0

    endif

wend