Fórum RichEdit... #225317
12/04/2004
0
:?: Eu preciso colocar um logotipo no cabeçalho de um RichEdit em tempo de execução.Isso pq preciso imprimir o logo junto com o conteúdo do Rich
Obrigado!
Obrigado!
Rafael.valler
Curtir tópico
+ 0
Responder
Posts
12/04/2004
Motta
acho que dá para fazer com o Canvas, vide exemplo para form :
251 - Inserindo uma Imagem no Formulário
A dica abaixo apresenta o código para implementação da função para inserir uma imagem no fundo do formulário.
A função permite que se especifique as coordenadas da imagem e qual o arquivo que contém a imagem.
Através do componente TBitMap é possível criar uma figura dinamicamente e especificar qual será a imagem, através do método LoadFromFile.
Para desenhar a imagem usa-se o componente Tcanvas, através do método Draw, que desenha um gráfico nas coordenadas especificadas.
Código Completo:
declara após o type junto aos outros procedimentos!
Procedure Desenha(figura:String;H,V:Integer);
Procedure TForm1.Desenha(figura:String;H,V:Integer);
Var
Imagem :TBitMap;
begin
Imagem := TBitMap.Create;
Try
Imagem.LoadFromFile(Figura);
Canvas.Draw(H,V,Imagem);
Except
ShowMessage(´ Arquivo não foi localizado !´);
end;
end;
ExemploQuando o botão for clicado, uma imagem será inserida no formulário, nas coordenadas (10,20);
procedure TForm1.Button1Click(Sender: TObject);
begin
Desenha(´c:\windows\bolhas.bmp´,10,20);
end;
fonte www.lloydsoft.hpg.ig.com.br
251 - Inserindo uma Imagem no Formulário
A dica abaixo apresenta o código para implementação da função para inserir uma imagem no fundo do formulário.
A função permite que se especifique as coordenadas da imagem e qual o arquivo que contém a imagem.
Através do componente TBitMap é possível criar uma figura dinamicamente e especificar qual será a imagem, através do método LoadFromFile.
Para desenhar a imagem usa-se o componente Tcanvas, através do método Draw, que desenha um gráfico nas coordenadas especificadas.
Código Completo:
declara após o type junto aos outros procedimentos!
Procedure Desenha(figura:String;H,V:Integer);
Procedure TForm1.Desenha(figura:String;H,V:Integer);
Var
Imagem :TBitMap;
begin
Imagem := TBitMap.Create;
Try
Imagem.LoadFromFile(Figura);
Canvas.Draw(H,V,Imagem);
Except
ShowMessage(´ Arquivo não foi localizado !´);
end;
end;
ExemploQuando o botão for clicado, uma imagem será inserida no formulário, nas coordenadas (10,20);
procedure TForm1.Button1Click(Sender: TObject);
begin
Desenha(´c:\windows\bolhas.bmp´,10,20);
end;
fonte www.lloydsoft.hpg.ig.com.br
Responder
Gostei + 0
12/04/2004
Weber
Mais fácil usar a RxRichEdit
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)