Fórum Imagens em um Memo #354388
26/02/2008
0
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
Curtir tópico
+ 0Posts
26/02/2008
Djjunior
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á
Gostei + 0
28/02/2008
Freed
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´
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.
Gostei + 0
28/02/2008
Freed
era isto mesmo.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)