XProfan

Français

Timotheus

Salut,

3 Fragen:

1. peux on à Edits (comment chez Listboxen) une waagerechten Scrollbalken insérer? Weil je voudrais qui Zeilenanzahl dans einer EditBox Montrer, et si ensuite z.B. qui la ligne trop long wird, ensuite ist qui Scrallbalken soudain dans qui letzten la ligne.

2. peux on dans einer Éditer den Anfang einer la ligne markieren, dans qui on seulement qui Zeilennummer kennt, mais pas le nombre marque qui devant stehen?

3. comment viele Zeilen umfassen den qui Befehle SendString(Edit&,{PGUP}) et SendString(Edit&,{PGDN})? Ist cela de qui taille des Edits dépendant, ou bien hat cela toujours une festen Wert? :rolleyes:

merci pour répondre, Timo

14.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Timo...

suis zur Zeit malheureusement avec trop vielen anderen Sachen beschäftigt et verstehe aussi pas entier quoi du vouloir. peux dus encore la fois quelque chose anders expliquer???

18.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Normann
Strübli

Hi,

chez Deiner Ersten Frage suis je mir maintenant aussi pas entier sûrement quoi Du meinst.
Du vouloir pas cela qui Waagerechte Scrollbalken IN dem Éditer Auftaucht mais
daneben ou bien comment maintenant?

trop 2.
qui marque qui avant einer la ligne (ici la ligne%) stehen peux Du entier simple
hiermit ermitteln:
@SendMessage(edit%,~EM_LINEINDEX,la ligne%,0)
qui Funktion gibt ensuite le nombre qui marque avant la ligne Nr. la ligne% zurück.

Salut
Normann

18.10.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Normann
Strübli

Hi,

Nochmal kurz trop Frage3:

personnelle serait Je l' Befehl Sendstring pas verwenden, und dir aussi quelque chose
eleganter. Im folgenden Beispiel peux Du den Text Zeilen- ou bien Seitenweise
dans Deinem Éditer Scrollen je hoffe cela hilft Dir plus...

Salut
Normann

Kompilieren Marque Séparation

En-tête-Fichiers
 $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 Éditer%
Edit% = @Créer("MultiEdit",%HWnd,»,10,10,200,200)
declare Scroll&
Déclarer ScrollPGDN&,ScrollPGUP&,ScrollLineUp&,ScrollLineDown&
ScrollPGDN& = @Créer("Button",%HWND,"PGDN",0,300,80,20)
ScrollPGUP& = @Créer("Button",%HWND,"PGUP",110,300,80,20)
ScrollLineUp& = @Créer("Button",%HWND,"LineUp",0,340,80,20)
ScrollLineDown& = @Créer("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

    Si HiWord(Scroll&)

        Localiser 18,1
        imprimer @Space$(30)
        Localiser 18,1
        Imprimer "Zeilen Gescrollt: ",LoWord(Scroll&)Erfolgreich gescrollt
        imprimer scroll&
        @SetFocus(edit%)
        Scroll& = 0

    endif

Wend