SCROLLING (DÉFILEMENT) AUTOMATIQUE DE LA SCROLLBAR DANS UN TRICHEDIT, TMEMO, ETC
Bombela
Messages postés
225
Date d'inscription
mardi 4 mars 2003
Statut
Membre
Dernière intervention
30 juillet 2008
-
19 sept. 2003 à 09:49
cs_lamane Messages postés 20 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 1 avril 2007 - 12 juil. 2005 à 15:30
cs_lamane Messages postés 20 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 1 avril 2007 - 12 juil. 2005 à 15:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12760-scrolling-defilement-automatique-de-la-scrollbar-dans-un-trichedit-tmemo-etc
https://codes-sources.commentcamarche.net/source/12760-scrolling-defilement-automatique-de-la-scrollbar-dans-un-trichedit-tmemo-etc
12 juil. 2005 à 15:30
bon j'ai une image jpeg dans un scrollbor et j'amerais fair un scrolling automatique des aue la souris se raproche vers les bordures du scroll car les image sont grandes et le scrolling manuelle est fatigant
pleas help me
mon email est othbel@yahoo.fr
ok see you
27 janv. 2005 à 12:03
Il y a un mode de scrolling, Ô Japee, que tu n'évoque pas : c'est le scrolling ligne de pixel par ligne de pixel (tel un générique de cinéma).
Ne fonctionnant qu'avec les coordonnées absolues du scrolling, il peut être utile de l'atteler à la fonction GetScrollPos (qui ne fonctionne que si le ScrollBar concerné est visible)
On peut par exemple écrire dans un évènement OnTimer d'un TTimer (ou mieux d'un TMMTimer) :
PosScroll := GetScrollPos(RichEdit1.Handle,SB_VERT);
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_THUMBPOSITION + (PosScroll+1)*$10000, 0);
Ou si le ScrollBar s’est pas là :
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_THUMBPOSITION + PosScroll*$10000, 0);
Inc(PosScroll);
Ken@vo
11 janv. 2005 à 11:24
Je cherchais justement cela et hop tu me sauves la mise.
Merci.
Note finale 10/10 biensure.
16 nov. 2003 à 16:51
On peut supprimer la ScrollBar (RichEdit.ScrollBars=None)
çà fonctionne tojours avec les boutons, avec les touches
fléchées du clavier et même avec la roulette de la souris.
Si l'on remplace le RichEdit par un Mémo, les boutons
Scrolling Direct sont sans effet. Les boutons Par ligne et
Par page fonctionnent mêmsans scrollbar mais pas les
touches du clavier.
23 sept. 2003 à 14:09
Content d'avoir aidé un delphiste, à charge de revanche...
Bonne prog' !
19 sept. 2003 à 09:49
Ahhhhhh.... Un code que 'ai longtemps cherché... qans le trouver.
Merci Japee.