Já consegui montar um código para gerar um TImage, gerar um nome para ele, e até pintar o fundo dele de branco.
Porem, estou fazendo um programa para editar imagens, e o meu código gera o componente em uma parte livre do form, e eu preciso gera-lo dentro de um ScrollBox que já existe no form.
OBS: Sei que seria mais facil gerar um outro form com um componente TImage, só que eu realmente preciso gera-lo dentro de um ScrollBox.
O código que consegui montar:
procedure TForm1.SpeedButton9Click(Sender: TObject);
var
campo : TImage;
Bitmap: TBitmap;
begin
label7.Tag:= label7.Tag + 1; {Coloquei um numero no label, e estou usando o tag para somar o num.}
Label7.Caption:= (IntToStr(label7.Tag));
Bitmap := nil;
Campo := TImage.Create(Self);
campo.Parent := Self;
campo.Name := ('Image'+label7.Caption); {Aqui eu coloquei o label para gerar o TImage com nome diferente}
Bitmap := TBitmap.Create;
Bitmap.Width := 200;
Bitmap.Height := 200;
Campo.Picture.Graphic := Bitmap; {Aqui eu pinto o fundo de branco}
end;
Como disse acima, já consegui gerá-lo e tudo, só preciso gerá-lo dentro de um ScrollBox que já existe.
Pergunta
lucke
Olá a todos!
Pessoal, estou com a seguinte dúvida:
Já consegui montar um código para gerar um TImage, gerar um nome para ele, e até pintar o fundo dele de branco.
Porem, estou fazendo um programa para editar imagens, e o meu código gera o componente em uma parte livre do form, e eu preciso gera-lo dentro de um ScrollBox que já existe no form.
OBS: Sei que seria mais facil gerar um outro form com um componente TImage, só que eu realmente preciso gera-lo dentro de um ScrollBox.
O código que consegui montar:
procedure TForm1.SpeedButton9Click(Sender: TObject); var campo : TImage; Bitmap: TBitmap; begin label7.Tag:= label7.Tag + 1; {Coloquei um numero no label, e estou usando o tag para somar o num.} Label7.Caption:= (IntToStr(label7.Tag)); Bitmap := nil; Campo := TImage.Create(Self); campo.Parent := Self; campo.Name := ('Image'+label7.Caption); {Aqui eu coloquei o label para gerar o TImage com nome diferente} Bitmap := TBitmap.Create; Bitmap.Width := 200; Bitmap.Height := 200; Campo.Picture.Graphic := Bitmap; {Aqui eu pinto o fundo de branco} end;Como disse acima, já consegui gerá-lo e tudo, só preciso gerá-lo dentro de um ScrollBox que já existe.
Por favor me ajudem!!
Editado por luckeLink para o comentário
Compartilhar em outros sites
1 resposta 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.