Fórum Ctrl + Scroll Aumentar e Diminuir fonte no Memo. #393746
13/01/2011
0
Olá pessoal..
Alguem sabe como faço para que o Ctrl + Scroll (Cima e baixo) aumente e diminua a fonte de um Memo
Assim com faz no Notepad++ ??
Agradeço a todos.
Vlw
Alguem sabe como faço para que o Ctrl + Scroll (Cima e baixo) aumente e diminua a fonte de um Memo
Assim com faz no Notepad++ ??
Agradeço a todos.
Vlw
Ederson Caldatto
Curtir tópico
+ 0
Responder
Posts
13/01/2011
Rodrigo Santos
Olá amigo, boa noite.
No componente TMemo você fica bem limitado em relação a opções de fonte e tamanho no delphi e o próprio componente não tem um evento pré-definido para manipular os eventos de scrool do mouse.
Assim, você teria que fazer este controle pelos eventos onMouseWheelDown e onMouseWheelUp do formulário.
Coloque no evento onMouseWheelDown do form o comando
Da mesma forma coloque no evento onMouseWheelUp do form o comando
Assim ele vai aumentar e diminuir o tamanho da font do memo1 do form.
Existe um componente mais elegante para fazer isso que é o TRichEdit. Para trabalhar com ele você pode fazer o seguinte. Coloque no form um componente TRichEdit da paleta Win32 e nos eventos onMouseWheelDown e on MouseWheelUp do componente TRichEdit coloque respectivamente os códigos:
Dessa forma o componente irá aumentar ou diminuir apenas o tamanho da fonte do texto selecionado no componente RichEdit1.
Espero ter ajudado,
Att,
No componente TMemo você fica bem limitado em relação a opções de fonte e tamanho no delphi e o próprio componente não tem um evento pré-definido para manipular os eventos de scrool do mouse.
Assim, você teria que fazer este controle pelos eventos onMouseWheelDown e onMouseWheelUp do formulário.
Coloque no evento onMouseWheelDown do form o comando
memo1.Font.Size:= memo1.Font.Size-1;
Da mesma forma coloque no evento onMouseWheelUp do form o comando
memo1.Font.Size:= memo1.Font.Size+1;
Assim ele vai aumentar e diminuir o tamanho da font do memo1 do form.
Existe um componente mais elegante para fazer isso que é o TRichEdit. Para trabalhar com ele você pode fazer o seguinte. Coloque no form um componente TRichEdit da paleta Win32 e nos eventos onMouseWheelDown e on MouseWheelUp do componente TRichEdit coloque respectivamente os códigos:
richEdit1.SelAttributes.Size:= richEdit1.SelAttributes.Size-1;
richEdit1.SelAttributes.Size:= richEdit1.SelAttributes.Size+1;
Dessa forma o componente irá aumentar ou diminuir apenas o tamanho da fonte do texto selecionado no componente RichEdit1.
Espero ter ajudado,
Att,
Responder
Gostei + 0
14/01/2011
Ederson Caldatto
Rodrigo boa idéia você me deu , tinha esquecido do RichEdit.. vou usar ele que nele tem as propriedades Wheel do Mouse.
Vlw
Vlw
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)