Fórum Imagens em um Memo #354388

26/02/2008

0

Bom dia..

Tenho um Edit1, Memo1, e um boton1, a entrada no edit será apenas números inteiros, quando pressionar o botão terá que aparecer no memo1 a imagem(cabeça.jpg) tantas vezes como foi informado no Edit1.

EX: indico 5 no edit1, terá que aparecer 5 vezes a imagem cabeça no Memo1.

Se não fui claro reformulo a pergunta.

Alguém tem uma idéia de como fazer isto(se for o caso troco o componente Memo1 para outro componente apropriado)

Grato..


Freed

Freed

Responder

Posts

26/02/2008

Djjunior

Como são essas imagens ? No caso de inserir em um memo vc pode de trocar a fonte para WingDings e inserir por exemplo o J que fica +/- como :D e assim sucetivamente, com essa fonte vc tem diversos tipos de ´figuras´ que são na realidade as letras.

agora, se for imagens mesmo creio que o MemoRich (não me lembro agora o nome certo), só que nunca mexi com ele, dá uma olhada lá


Responder

Gostei + 0

28/02/2008

Freed

Consegui a seguinte função:
Quando fica no evento de TForm1.Button1Click ela finciona, mas quero fazer uma procedure ai não funciona...

OBS: cria uma imagem em runtime em um GroupBox4.

procedure criaimagem(x,y:integer);
var
imag:Timage;
begin
imag:=Timage.Create(GroupBox4);
imag.Top:=x;
imag.Left:=y;
imag.Picture.LoadFromFile(´C:\teste.bmp´);
GroupBox4.InsertControl(imag);
end;


os erros:

[Error] Suporte.pas(99): Undeclared identifier: ´GroupBox4´
[Error] Suporte.pas(103): Missing operator or semicolon
[Error] Suporte.pas(79): Unsatisfied forward or external declaration: ´TForm1.criaimagem´
[Fatal Error] Project1.dpr(5): Could not compile used unit ´Suporte.pas´


Responder

Gostei + 0

28/02/2008

Rodc

procedure TForm1.criaimagem(x,y:integer); 

Faltou colocar o TForm1 na implementação da função. Só isto acho que já te resolve os outros problemas.


Responder

Gostei + 0

28/02/2008

Freed

Grato..

era isto mesmo.


Responder

Gostei + 0

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

Aceitar