Características de los ListView con Imágenes

[madiazg]

El primer punto ya lo he solucionado. Se puede indicar la posición donde colocar una imagen en un listview:

  with ListView1.Items.Add do
  begin
    ImageIndex := ListView1.Items.Count - 1;
    Left := 100 * (ListView1.Items.Count - 1); //de 100 en 100 px.
  end;

Si a alguien se le ocurre como solucionar la segunda parte de la pregunta...

Saludos...
Miguel Angel

[madiazg]

El segundo problema lo he minimizado con:

ListView1.Font.Height := 1;

pero no he resuelto el problema ya que, aparte de la altura del Font, queda un espacio entre la imagen y el caption que necesito eliminar. La solución sería un Listview con estilo Icon pero sin caption. ¿Alguien sabe si es posible?

Utilizo TurboDelphi por lo que no puedo instalar componentes de terceros...

Saludos...
Miguel angel

[madiazg]

Me adelante con que había resuelto el problema del espacio entre imágenes. Con el codigo:

  with ListView1.Items.Add do
  begin
    ImageIndex := ListView1.Items.Count - 1;
    Left := 100 * (ListView1.Items.Count - 1); //de 100 en 100 px.
  end;

consigo que las imágenes se muestren de 100 en 100 px pero no selecciona correctamente la imagen.
Cuando hago click en algunas imágenes estas no se seleccionan como si conservara la posición por defecto de las imágenes a la hora de seleccionarlas. En cambio, cuando elimino la instrucción

//    Left := 100 * (ListView1.Items.Count - 1); //de 100 en 100 px.

las imágenes se muestran muy separadas pero se seleccionan correctamente.

  if ListView1.Selected <> nil then
    Label1.Caption := IntToStr(ListView1.Selected.ImageIndex)

Lo curioso es que, cuando añado las imágenes, si las voy seleccionando desde la primera hasta la última, se seleccionan correctamente (desde la izquierda del ListView a la Derecha) pero el problema ocurre cuando selecciono una imagen anterior (una imagen a la izquierda de la última seleccionada).
¿Alguien me puede ayudar a resolver este problema?

Saludos...
Miguel Angel

[madiazg]

Bueeeeno... ya parece que lo he solucionado...
tenía LargeImages, SmallImages y SortImages con ImageList1. He eliminado SmallImages y SortImages y la cosa ya parece que funciona.

[[Caral]]

Hola
Que bueno que te sirvió, estamos para servirte.
Saludos

[madiazg]

Esto era lo más parecido ha hablar sólo... algo así como un monólogo...
En fin, espero que a alguien le ayude todo esto...
Saludos...
Miguel Angel

[[newtron]]

Hola.

Me interesaría echarle un vistazo al truco que hace referencia el amigo madiazg, el 467, pero no lo veo. ¿Alguna forma de acceder a él?.

Gracias y un saludo