laine Postado Fevereiro 9, 2009 Denunciar Share Postado Fevereiro 9, 2009 oi pessoal, necessito de ajuda novamente...estou precisando permitir que o usuario defina qual fonte irá usar para um richedit, pois em determinado momento o usuário precisa mudar a fonte das informações que estão em um componente richedit ou DBMemo Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Micheus Postado Fevereiro 9, 2009 Denunciar Share Postado Fevereiro 9, 2009 estou precisando permitir que o usuario defina qual fonte irá usar para um richedit, pois em determinado momento o usuário precisa mudar a fonte das informações que estão em um componente richedit ou DBMemolaine, para possibilitar a formatação do texto, você deverá usar apenas componentes descendentes da classe TCustomRichEdit que oferecem este recurso. Assim, no lugar de TDBMemo, use TDBRichEdit.Quanto ao código, ele é bastante simples. Para definir as características padrão em termos do fonte, você usa a propriedade DefAttributes (veja no help todas as "sub-propriedades" dela - basicamente é as que usarei no exemplo) - e qualquer alteração nesta propriedade afeta todo o richedit e deve ser feita na criação do form (uma única vez). Já quanto as definições que serão modificadas durante a edição, estas são feitas através da propriedade SelAttributes. Apesar do nome, a alteração do fonte ocorrerá sobre uma seleção existente, mas se nenhuma seleção estiver destacada, a alteração passa a valer do ponto onde o ponto de inserção está em diante.Voce precisa adicionar um componente TFontDialog (paleta Dialogs) o qual será utilizado para possibilitar a alteração das características da fonte. No exemplo, estaremos inicializando estas características a partir daquelas pertencentes à fonte onde o ponto de inserção (vulgo cursor) se encontra. Uma vez que alguma alteração seja realizada e o botão de Ok do dialogo seja clicado, passaremos ao processo inverso, onde ajustamos os atributos da fonte do texto para aqueles da fonte do dialogo:procedure TForm1.Button1Click(Sender: TObject); begin with RichEdit1.SelAttributes do begin FontDialog1.Font.Name := Name; FontDialog1.Font.Charset := Charset; FontDialog1.Font.Color := Color; FontDialog1.Font.Pitch := Pitch; FontDialog1.Font.Size := Size; FontDialog1.Font.Style := Style; FontDialog1.Font.Height := Height; end; if FontDialog1.Execute then with FontDialog1.Font do begin RichEdit1.SelAttributes.Name := Name; RichEdit1.SelAttributes.Charset := Charset; RichEdit1.SelAttributes.Color := Color; RichEdit1.SelAttributes.Pitch := Pitch; RichEdit1.SelAttributes.Size := Size; RichEdit1.SelAttributes.Style := Style; RichEdit1.SelAttributes.Height := Height; end; end;Abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 laine Postado Fevereiro 11, 2009 Autor Denunciar Share Postado Fevereiro 11, 2009 obrigada micheus Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
laine
oi pessoal, necessito de ajuda novamente...
estou precisando permitir que o usuario defina qual fonte irá usar para um richedit, pois em determinado momento o usuário precisa mudar a fonte das informações que estão em um componente richedit ou DBMemo
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.