Ordenar Lista de Registros

[Carmelo Cash]

Gracias Newtron y Ecfisa.

Efectivamente ambos entendieron lo que necesito.

El código que puso Ecfisa funciona bien , pero si los Items superan la pantalla no se pueden subir, sino que hay que soltarlo, correr los items y volverlo a agarrar y seguir.

Ya tengo esta idea así que voy a seguir intentando con esto.

Gracias.

[ecfisa]

Hola Carmelo Cash.

Otra opción diferente, es usar un TPopupMenu con las opciones 'Cortar', 'Pegar' y 'Deshacer'. Y si lo deseas, con sus respectivos ShortCut como por ejemplo: Ctrl+C, Ctrl+V, Ctrl+Z.

Código Delphi [-]
...
var
  SL: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SL := TStringList.Create;
  ListBox1.DragMode    := dmAutomatic;
  ListBox1.MultiSelect := True;
  ListBox1.PopupMenu   := PopupMenu1;
end;

procedure TForm1.Cortar1Click(Sender: TObject);
var
  i : Integer;
begin
  with TListBox(PopupMenu1.PopupComponent) do
  begin
    // Agregar items seleccionados al StringList
    for i := 0 to Count-1 do
      if Selected[i] then SL.AddObject(Items[i], TObject(i));
    // Eliminarlos del ListBox
    for i := Count -1 downto 0 do
      if Selected[i] then Items.Delete(i);
  end;
end;

procedure TForm1.Pegar1Click(Sender: TObject);
var
  CurrItem,i: Integer;
begin
  if SL.Count > 0 then
    with TListBox(PopupMenu1.PopupComponent) do
    begin
      CurrItem:= ItemIndex+1;
      // Insertar Items seleccionados
      Items.BeginUpdate;
      try
        for i :=  SL.Count-1 downto 0 do
          Items.Insert(CurrItem, SL[i])
        finally
          // Vaciar StringList
          SL.Clear;
          Items.EndUpdate
        end
    end;
end;

procedure TForm1.Deshacer1Click(Sender: TObject);
var
  i: Integer;
begin
  if SL.Count > 0 then
  begin
    // Restaurar items eliminados
    for i:= 0 to SL.Count-1 do
      ListBox1.Items.Insert(Integer(SL.Objects[i]),SL[i]);
    // Vaciar StringList
    SL.Clear
  end
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  Cortar1.Enabled  := SL.Count = 0 ;
  Pegar1.Enabled   := not Cortar1.Enabled;
  Deshacer1.Enabled:= not Cortar1.Enabled;
end;

Saludos.

[Carmelo Cash]

No puedo resolver este tema.

Probé con el código de ecfisa pero la propiedad
"ListBox1.DragMode := dmAutomatic;"
hace que no pueda desplazarme dentro de la lista cuando esta es más larga que lo que entra en la pantalla.

Estube probando con algún método que explicó el Señor Contraveneno para modificar grillas.

Dataset -> DatasetProvider -> ClientDataset -> DataSource -> Grid
localizado en http://www.clubdelphi.com/foros/showthread.php?t=69791

pero te permite modificar el contenido de la grilla y no la posición de las filas.

Bueno.. quedo a la espera de alguna otra idea.

Gracias.

[ecfisa]

Empezado por Carmelo Cash

Probé con el código de ecfisa pero la propiedad
"ListBox1.DragMode := dmAutomatic;"
hace que no pueda desplazarme dentro de la lista cuando esta es más larga que lo que entra en la pantalla.

Hola Carmelo Cash.

Acabo de probar nuevamente y dmAutomatic no afecta el desplazarme en absoluto.

Un ejemplo: Si seleccionas los 'n' primeros ítems luego botón derecho del mouse y Copiar, te desplazas hasta el ítem 1000 (obviamente fuera de pantalla) y nuevamente botón derecho y Pegar, obtendrás los 'n' ítems seleccionados al final de la lista. Y este comportamiento es el mismo para cualquier posición a que te desplaces dentro del ListBox.

Te adjunto la prueba debajo.

Saludos.

[Carmelo Cash]

Gracias Ecfisa por tu ayuda. Sin embargo he decidido no implementar este método, ya que si el operador se olvida de "pegar" un registro estaríamos en problemas.

He decidido seguir la sugerencia de Newton usando un StringGrid.

No tiene la opción "Multiselect" lo cual es un problema pero se acerca bastante a lo que necesito.

Otra contra es que no puedo colocar un color distinto al título de las columnas que a las columnas, pero eso es lo de menos.

Otra cosa es que no puedo colocar multilíneas en cada celda, pero lo resolveré agregando otras columnas y listo.

En este ejemplo les muestro como quedó.
Gracias por su colaboración