Problème ascenseur sur richedit
Résolu
cs_philpas
Messages postés
77
Date d'inscription
lundi 17 octobre 2005
Statut
Membre
Dernière intervention
4 septembre 2008
-
5 avril 2006 à 20:42
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 6 avril 2006 à 14:57
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 6 avril 2006 à 14:57
6 réponses
cs_philpas
Messages postés
77
Date d'inscription
lundi 17 octobre 2005
Statut
Membre
Dernière intervention
4 septembre 2008
6 avril 2006 à 10:50
6 avril 2006 à 10:50
c'est jamais évident d'expliquer des problèmes d'affichage.
Pour faire simple, un exemple de programme à tester sur un Win2000 ou plus et le même sur un Win9* et là on voit la différence
sur une form, mettre un richedit et un bouton.
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to 50 do RichEdit1.Lines.Add('hello'+InttoStr(i));
SendMessage(RichEdit1.Handle, WM_VScroll, SB_BOTTOM, 0);
end;
Sous Win2000 voilà le résulat que je veux obtenir. Mais ce même programme sous Win9* à un résultat différent, le texte disparait de l'écran
Voilà
la solution que j'ai adopté et qui semble acceptable pour Win9* est:
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to 50 do
begin
RichEdit1.Lines.Add('hello'+InttoStr(i));
SendMessage(RichEdit1.Handle, WM_VScroll, SB_LINEDOWN, 0);
end;
SendMessage(RichEdit1.Handle, WM_VScroll, SB_BOTTOM, 0);
SendMessage(RichEdit1.Handle, WM_VScroll, SB_PAGEUP, 0);
SendMessage(RichEdit1.Handle, WM_VScroll, SB_LINEDOWN, 0);
end;
et comme ça j'obtiens la même chose que sous Win2*
Pour faire simple, un exemple de programme à tester sur un Win2000 ou plus et le même sur un Win9* et là on voit la différence
sur une form, mettre un richedit et un bouton.
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to 50 do RichEdit1.Lines.Add('hello'+InttoStr(i));
SendMessage(RichEdit1.Handle, WM_VScroll, SB_BOTTOM, 0);
end;
Sous Win2000 voilà le résulat que je veux obtenir. Mais ce même programme sous Win9* à un résultat différent, le texte disparait de l'écran
Voilà
la solution que j'ai adopté et qui semble acceptable pour Win9* est:
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=1 to 50 do
begin
RichEdit1.Lines.Add('hello'+InttoStr(i));
SendMessage(RichEdit1.Handle, WM_VScroll, SB_LINEDOWN, 0);
end;
SendMessage(RichEdit1.Handle, WM_VScroll, SB_BOTTOM, 0);
SendMessage(RichEdit1.Handle, WM_VScroll, SB_PAGEUP, 0);
SendMessage(RichEdit1.Handle, WM_VScroll, SB_LINEDOWN, 0);
end;
et comme ça j'obtiens la même chose que sous Win2*
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
6 avril 2006 à 11:53
6 avril 2006 à 11:53
Bon alors essaye ce bout de code sous Win9*.
Comme précisé dans mon précédent post je n'ai plus cette version de Win mais sous XP ce code fait exactement la même chose (il place le curseur à la dernière ligne et sans défaut)
procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
For I:=1 To 50 Do RichEdit1.Lines.Add('hello'+InttoStr(i));
SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0);
End;
@+
Cirec
Comme précisé dans mon précédent post je n'ai plus cette version de Win mais sous XP ce code fait exactement la même chose (il place le curseur à la dernière ligne et sans défaut)
procedure TForm1.Button1Click(Sender: TObject);
var I : Integer;
begin
For I:=1 To 50 Do RichEdit1.Lines.Add('hello'+InttoStr(i));
SendMessage(RichEdit1.Handle, EM_SCROLLCARET, 0, 0);
End;
@+
Cirec
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
6 avril 2006 à 00:04
6 avril 2006 à 00:04
Salut,
je ne suis pas certain d'avoir bien saisi ton problème mais voici la liste des paramètres possible pour WM_VSCROLL :
SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
SB_THUMBTRACK, SB_TOP
avec un peut de chance tu y trouveras ton bonheur
@+
Cirec
je ne suis pas certain d'avoir bien saisi ton problème mais voici la liste des paramètres possible pour WM_VSCROLL :
SB_BOTTOM, SB_ENDSCROLL, SB_LINEDOWN, SB_LINEUP,
SB_PAGEDOWN, SB_PAGEUP, SB_THUMBPOSITION,
SB_THUMBTRACK, SB_TOP
avec un peut de chance tu y trouveras ton bonheur
@+
Cirec
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
6 avril 2006 à 11:16
6 avril 2006 à 11:16
Le problème c'est que je ne possède plus de Win9* donc pour faire des testes c'est pas gagné
Je vais essayer de faire quelques petits testes et je tiens au courant
@+
Cirec
Je vais essayer de faire quelques petits testes et je tiens au courant
@+
Cirec
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_philpas
Messages postés
77
Date d'inscription
lundi 17 octobre 2005
Statut
Membre
Dernière intervention
4 septembre 2008
6 avril 2006 à 14:45
6 avril 2006 à 14:45
Merci Cirec, je viens de tester sur un Win9* et ça marche. Je n'ai plus de différence d'affichage entre les versions de windows. Je vais donc garder ton code car il est beaucoup plus direct.
A+ et encore merci
A+ et encore merci
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
6 avril 2006 à 14:57
6 avril 2006 à 14:57
Content que ça fonctionne, je vais me garder ça sous le coude c'est toujours bon à savoir.
Surtout dans le cadre d'une application multi OS
@+
Cirec
Surtout dans le cadre d'une application multi OS
@+
Cirec