Club Builder

[Juan]

Hola!!

Estoy tratando de hacer un Drag & Drop (arrastrar y soltar) en un TListBox para poder cambiar la posición de sus elementos con el ratón. Me gustaría que el efecto que tuviese fuera el mismo que se produce cuando en un Form pulsamos la opcion "Tab Order". Si os fijais, cuando en el "Tab order" se va a cambiar la posición de algún elemento, la posición del elemento actual está en azul y la posición "futura" aparece remarcada por un cuadrito de puntos. Una vez que hemos soltado el elemento, su nueva posición se pone en azul. No se si me he explicado bien pero podeis comprobar a lo que me refiero desde el "Tab Order". Bien, he encontrado un código por ahí que hace algo similar a lo que busco pero no logro dar con el efecto de "remarcar en puntitos" la posición futura. Aquí os pego el código por si os sirve de algo:

[_Leo]

Hola:

Cambia el código que tienes en el evento OnDragOver por lo siguiente:

void __fastcall TForm1::ListBox1DragOver(TObject *Sender,
      TObject *Source, int X, int Y, TDragState State, bool &Accept)
{
    // Puntero al ListBox que llama a este evento
    TListBox* lb = static_cast<TListBox*>(Sender);

    static int indiceAnterior;

    // Al entrar sobre el control inicializamos el indiceAnterior
    if (dsDragEnter == State)
        indiceAnterior = -1;
    // Al salir del control borramos el cuadro
    else if (dsDragLeave == State)
        lb->Canvas->DrawFocusRect(lb->ItemRect(indiceAnterior));
    else
    {
        // Obtenemos el indice del elemento sobre el que estamos
        int indice = lb->ItemAtPos(Point(X,Y), true);

        // Dibujamos el nuevo cuadro y borramos el anterior
        if (indice != -1 && indiceAnterior != indice)
        {
            // Como DrawFocusRect usa el modo XOR dibujamos el rect
            // de la entrada anterior sobre si mismo para que se borre
            if (indiceAnterior != -1)
                lb->Canvas->DrawFocusRect(lb->ItemRect(indiceAnterior));

            // Dibujamos el nuevo recuadro
            lb->Canvas->DrawFocusRect(lb->ItemRect(indice));

            // Guardamos el indice para usarlo en la siguiente entrada
            indiceAnterior = indice;
        }
    }

    Accept = Source->ClassNameIs("TListBox");
}

Saludos:
_Leo

[Juan]

Gracias Leo!!!! Eres un mostro!!!!