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!


Rafael.valler

Rafael.valler

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


Responder

Gostei + 0

12/04/2004

Weber

Mais fácil usar a RxRichEdit


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar