TListview y añadir elementos...

[lag_0]

Nada...no hay forma humana... esto va lento a más no poder, como 3 minutos para poner todos los items en mi portatil y en un servidor con 4 CPU's, 4 GB's de RAM etc etc (vamos la hostia) tarda como 4 veces más que en mi mierda de portatil.... una burrada inexplicable... no se que puede estar pasando ...
alguna idea..?
Gracias

[roman]

¿Intentaste lo del modo virtual? Aquí tengo un par de ejemplos de ListView para mostrar archivos de una carpeta. Uno en modo normal y el otro en modo virtual. Pruébalos abriendo una carpeta con muchos archivos como c:\windows\system32 y ve la diferencia.

// Saludos

[MaMu]

Empezado por roman

¿Intentaste lo del modo virtual? Aquí tengo un par de ejemplos de ListView para mostrar archivos de una carpeta. Uno en modo normal y el otro en modo virtual. Pruébalos abriendo una carpeta con muchos archivos como c:\windows\system32 y ve la diferencia.

// Saludos

roman, hay forma de generar una vista de thubnails como el explorador de windows, en estos dos metodos de agregado de items del ListView?

Saludos

[lag_0]

Empezado por MaMu

roman, hay forma de generar una vista de thubnails como el explorador de windows, en estos dos metodos de agregado de items del ListView?

Saludos

Claro, solo has de manejar la imagen que pinta, apartir de ese codigo (muy bueno por cierto) no es demasiado complicado, o siempre puedes dibujar en on draw item...

[lag_0]

Me acabo de dar cuenta que el problema está en las comparaciones....
Uf... esto es lo peor... Solo son cadenas de texto qeu se comparan, además 4 cadenas con otras 4 por cada item que añado y tarda..... UF COMO TARDA!!! no entiendo qeu peude estar pasando, incluso dejando un simple if de las length se demora el additem un segundo por cada item... lo cual no es normal T________T....

Tiene alguna explicación? Pego el codigo...

Código Delphi [-]
function TfP.TraduceSMtoDB(Tipo:string;TextoA:string;TextoB:string):bool;
var
 TempI : integer;
 UCAa, UCAb:string;
begin
  TextoA := UpperCase(TextoA);
  TextoB := UpperCase(TextoB);
  Result := False;
  if ReplaceText(TextoA,' ','_') = ReplaceText(TextoB,' ','_') then begin
    Result := True;
    Exit;
  end;
  for TempI := 0 to ruleslist.Items.Count-1 do begin
     UCAa := UpperCase(ruleslist.Items.Item[TempI].SubItems.Strings[0]);
     UCAb := UpperCase(ruleslist.Items.Item[TempI].SubItems.Strings[1]);
     if ((TextoA = UCAa) or (TextoA = UCAb)) and ((TextoB = UCAa) or (TextoB = UCAb)) then begin
       if ((Tipo = 'n') and (ruleslist.Items.Item[TempI].Caption = 'Nombre')) or ((Tipo = 'i') and (ruleslist.Items.Item[TempI].Caption = 'IP')) or ((Tipo = 'd') and (ruleslist.Items.Item[TempI].Caption = 'Display Name')) or ((Tipo = 'm') and (ruleslist.Items.Item[TempI].Caption = 'Modelo')) then begin
         Result := true;
         Exit;
       end;
     end;
  end;
end;

Alguna idea? T_T muchas gracias...

[MaMu]

Empezado por lag_0

Claro, solo has de manejar la imagen que pinta, apartir de ese codigo (muy bueno por cierto) no es demasiado complicado, o siempre puedes dibujar en on draw item...

Lo que pasa es que con GetSystemImage lo que obtengo es el ícono asociado a la extensión del archivo:

Código Delphi [-]
procedure TMainForm.GetSystemImages;
const
 shgfiLarge = SHGFI_SYSICONINDEX or SHGFI_LARGEICON;
  shgfiSmall = SHGFI_SYSICONINDEX or SHGFI_SMALLICON;
var
 ShFileInfo: TShFileInfo;
 iLarge: Cardinal;
  iSmall: Cardinal;
begin
 iLarge := ShGetFileInfo('', 0, ShFileInfo, SizeOf(ShFileInfo), shgfiLarge);
  iSmall := ShGetFileInfo('', 0, ShFileInfo, SizeOf(ShFileInfo), shgfiSmall);
 ListView_SetImageList(lvwFiles.Handle, iLarge, LVSIL_NORMAL);
 ListView_SetImageList(lvwFiles.Handle, iSmall, LVSIL_SMALL);
end;

Modo Virtual (OwnerData:=True)

Ahora bien, según interpreto el código expuesto por roman, el dato importante para trabajar con el ListView es el Item.Index, es el principal, en base a la lista creada con los elementos (la cantidad la muestro con AllocBy)
en el evento OnData, cargo los nombres de cada elemento (Item.Caption).
Para dibujar un thumbnail de cada elemento tendría mi código en:

Código Delphi [-]
 
procedure TMainForm.lvwFilesDrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
end;

Pero que pasa con la propiedad OwnerDraw?.
En el evento OnDrawItem tendría que:

1. Generar el thumbnail del elemento
2. Dibujar el thumbnail del elemento
3. OwnerDraw True

es correcto?

Como sería un ejemplo de generar un thumbnail de un elemento de la lista y agregarlo al ListView?

PD: me resulta muy interesante todo este tema ya que, me gustaria generar un componente derivado del TShellListView, por el solo hecho de añadirle la propiedad ViewStyle [vsThumbs] + [ vsIcon, vsList, vsReport, vsSmallIcon]
y poder visualizar como Thumbnails, estilo Explorardor de Windows

Saludos y gracias

[lag_0]

Mi idea para eso:
-añade un timagelist....
-Cuando exploren un directorio haces una búsqueda de todos los JPG y bmp y demás cargando cada imagen en el objeto que has creado antes... asegurate de hacerlo por orden alfabetica y de vaciar el timagelist antes de cargar...
-Cargas el listview con los ficheros del directorio ordenas por orden alfabetica el listview.
-Te aseguras de que el imagelist esté asociado al listview...
-pones el image index el indice de cada elemento y como son alfabeticos encajarán... Si quieres que la propiedad con la que se vea no sea icons solo tendrás que pintar la imagen asociada al elemento por imageindex al tamaño que tu quieras y como quieras... no es muy dificil prueba primero cambiar el font, color de texto etc del elemento y verás como sabiendo hacer eso llegas a cualquier sitio.
y listo.

[MaMu]

Empezado por lag_0

Mi idea para eso:
-añade un timagelist....
-Cuando exploren un directorio haces una búsqueda de todos los JPG y bmp y demás cargando cada imagen en el objeto que has creado antes... asegurate de hacerlo por orden alfabetica y de vaciar el timagelist antes de cargar...
-Cargas el listview con los ficheros del directorio ordenas por orden alfabetica el listview.
-Te aseguras de que el imagelist esté asociado al listview...
-pones el image index el indice de cada elemento y como son alfabeticos encajarán... Si quieres que la propiedad con la que se vea no sea icons solo tendrás que pintar la imagen asociada al elemento por imageindex al tamaño que tu quieras y como quieras... no es muy dificil prueba primero cambiar el font, color de texto etc del elemento y verás como sabiendo hacer eso llegas a cualquier sitio.
y listo.

buenísima explicación, me voy a poner a jugar con el Listview y ver que sale!!!.

Saludos