8 respuestas en este tema

[Caral]

Hola
Estoy tratando de cargar unas imagenes en tiempo de ejecucion.
Lo que hago es crear los componentes TImage y cargar tantan imagenes como contenga un ListBox.
Lo que hago:
Cargo las imagenes (ruta y nombre) en un ListBox e inmediatamente creo las imagenes de estos.
La cosa es que me crea la cantidad de imagenes, pero solo del primer dato, osea, todas repetidas, no recorre el listBox.
Este es el codigo que las carga:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  lista: TStringList;
  i: integer;
  Ima: TImage;
begin
  lista := FindFile(ExtractFilePath(Application.ExeName)+'\*.BMP');
  ListBox1.Items.Assign(lista);
  label3.Caption:= IntToStr(Lista.Count);
  lista.Free;
 
    Ima := TImage.Create(Self);
    with ListBox1 do begin
    for i := 1 to 3 do begin
    Ima.Picture.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex+1]);
    end;
    end;
    Ima.Top := 10;
    Ima.Left := 10;
    Ima.Parent := Panel1;
    if listaEtiquetas.Count >= 1 then
    Ima.Top := TImage(listaEtiquetas.Items[listaEtiquetas.Count-1]).Top + 50;
    listaEtiquetas.Add(Ima);
    If listaEtiquetas.Count <> StrToInt(label3.Caption) then
    Form1.Button1.Click;
 
end;

Saludos

[Marc]

Hola Caral.

Este código no puede estar bien (seguramente un error de copiar distintas partes con Copy/Paste). Solo creas una TImage, te falta un bucle sobre ListBox1.Items.

NOTA: Por cierto, yo de ti evitaría al máximo los with. Solo te van a dar problemas por confusiones de referenciar lo que no pretendías referenciar. En mi opinión esta construcción es lo primero que debería desaparecer del lenguaje de Delphi.

También te recomiendo que identes el código, facilita mucho su lectura, comprensión y el cometer menos errores.

Saludos.

[egostar]

Asi a ojo de buen cubero y sin delphi a la mano

delphi

    with ListBox1 do begin
      for i := 1 to 3 do begin
        Ima.Picture.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex+1]);
        Ima.Top := 10;
        Ima.Left := 10;
        Ima.Parent := Panel1;
        if listaEtiquetas.Count >= 1 then
        Ima.Top := TImage(listaEtiquetas.Items[listaEtiquetas.Count-1]).Top + 50;
        listaEtiquetas.Add(Ima);
        If listaEtiquetas.Count <> StrToInt(label3.Caption) then
           Form1.Button1.Click;
      end;
    end;

Salud OS

[Marc]

Asi a ojo de buen cubero y sin delphi a la mano

delphi

    with ListBox1 do begin
      for i := 1 to 3 do begin
        Ima.Picture.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex+1]);
        Ima.Top := 10;
        Ima.Left := 10;
        Ima.Parent := Panel1;
        if listaEtiquetas.Count >= 1 then
        Ima.Top := TImage(listaEtiquetas.Items[listaEtiquetas.Count-1]).Top + 50;
        listaEtiquetas.Add(Ima);
        If listaEtiquetas.Count <> StrToInt(label3.Caption) then
           Form1.Button1.Click;
      end;
    end;

Salud OS

Este bucle es fijo de 1 a 3. Tiene que hacer un bucle de 1 a ListBox.Items.Count si quiere tratar tantos elementos como haya en el ListBox.

Y en cada pasada del bucle tiene que tratar al elemento

delphi

ListBox.Items[i]

[Caral]

Hola
Gracias amigos:
Marc: Lo del with es solo por que ya no se de donde agarrarme
Egostar amigo: No funciona, queda el listBox dando tumbos y no para ni muestra las fotos.
Saludos

[Marc]

Debería parecerse más a algo de este estilo :

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  lista: TStringList;
  i, NumEtiquetas: integer;
  Ima: TImage;
begin
 
  lista := FindFile(ExtractFilePath(Application.ExeName)+'\*.BMP');
  ListBox1.Items.Assign(lista);
  NumEtiquetas := Lista.Count;
  lista.Free;
  label3.Caption:= IntToStr(NumEtiquetas);
 
  for i := 0 to NumEtiquetas - 1 do begin
 
    Ima.Picture.LoadFromFile(ListBox1.Items[i]);
    Ima.Top := 10;
    Ima.Left := 10;
    Ima.Parent := Panel1;
 
    if i > 0 then begin
      Ima.Top := TImage(listaEtiquetas.Items[i - 1]).Top + 50;
    end;
 
    listaEtiquetas.Add(Ima);
 
    If 1 <> NumEtiquetas then begin
      Form1.Button1.Click;
    end;
 
  end;
end;

Lo de identar el código es muy importante, de verdad.

[Caral]

Hola
El codigo de Marc funcion perfecto con algunos ajustes, no tenia creada la imagen y le elimine el llamado repetido al boton ya que esto es lo que hacia que no se detuviera.
Aqui os dejo el codigo, cuando se presiona en el list sale la foto en grande, me gustaria que hiciera lo mismo cuando se presionara una de las fotos pequeñas.
Ademas me gustaria saber como hago si excede el tamaño del panel, que cambie en vez del left el top de la foto pequeña, mirad el codigo, lo entenderéis perfectamente.
Saludos

Archivos adjuntos

•  1849_cc880aa23161febcf7ad7ca4a2bb8180afaf296d.zip   340,96KB   9 descargas

[Caral]

Hola
Ya pude hacer que cuando se presione una imagen pequeña se cargue en grande.
Esto lo hice creando un evento onclick y definiendo a cual imagen se le hace el click por medio del tag.
Gracias por vuestra ayuda y consejos.
Doy por resulto el tema.
Saludos

[egostar]

Que bien amigo, otro hilo resuelto

Salud OS