Barra de Rolagem (ScrollBars)
07/01/2006
0
Alguém pode me dar uma ajudinha ?
Tenho um Form com um RichEdit, nesse RichEdit eu tenho uma barra de rolagem vertical, eu gostaria de quando clicar na barra de Rolagem ela rolasse bem suave sem dar aqueles saltos.
Igual tem naquelas telinhas de Sobre de alguns sistemas, o texto vai descendo ou subindo bem suave.
Dessa forma fica melhor para lê.
Obrigada.
[]´s
Renatacoimbra
Posts
09/01/2006
Ipc$
Quando a msg não for WM_VScroll, vc executa a WindowProc original; para isto vc tem que salvar a WindowProc antes de colocar a sua.
09/01/2006
Renatacoimbra
...
09/01/2006
Renatacoimbra
IPC$, obrigada pela resposta, mais não sei como fazer isso, se não for pedir muito vc poderia me ajudar nessa implementação?
[]´s
09/01/2006
Ipc$
var WP_Sv :TWndMethod; // para salvar
procedure Scrool_Navega(var Msg:TMessage); // pega o evento
procedure TForm1.Scrool_Navega(var Msg:TMessage);
begin
if MSg.Msg = WM_VScroll then
begin
Case Msg.WParam of
SB_LINEDOWN : ; // clicou no botão descida
SB_LINEUP : ; // clicou no botão subida
SB_PAGEDOWN : ; // clicou na barra descendo
SB_PAGEUP : ; // clicou na barra subindo
end;
end
else
WP_Sv(Msg); // executa a original
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WP_Sv := RichEdit1.WindowProc; // salva
RichEdit1.WindowProc := Scrool_Navega; // atribui a nova
end;Com isto o click na barra de rolagem vertical fica sem ação; aí vc tem que colocar o deslize de texto via código.
09/01/2006
Renatacoimbra
Se alguém tem alguma idéia de como deslizar o texto via código me ajuda aí por favor..
[]´s
09/01/2006
Marco Salles
[b:bc5f7a022d]tente isso :[/b:bc5f7a022d]
Clique aqui para fazer login e interagir na Comunidade :)
