Club Builder

[Mónica]

Hola!

¿Se puede eliminar una determinada columna de un StringGrid?, es decir, no eliminar la última, si no alguna que esté en medio.

Muchas gracias!

[_Leo]

Hola Mónica:

Prueba con esto:

code:

---

//---
void BorrarColumna(TStringGrid *strGrid, int nColumna)
{
    if (nColumna > (strGrid->ColCount-1))
        return;
    // Deshabilita el pintado del control
    strGrid->Perform(WM_SETREDRAW, FALSE, 0);
    for (int x=nColumna; x<strGrid->ColCount; x++)
    {
        if (strGrid->ColCount>1)
            strGrid->Cols[x] = strGrid->Cols[x+1];
        else
            strGrid->Cols[x]->Clear();
    }
    strGrid->ColCount--;
    // Habilita el pintado del control
    strGrid->Perform(WM_SETREDRAW, TRUE, 0);
    strGrid->Invalidate();
}
//---

---

y para utilizarla, por ejemplo:
 BorrarColumna(StringGrid1, 2);

Saludos:
_Leo

[_Leo]

...una pequeña mejora, para que mantenga el ancho de las columnas que desplaza:

code:

---

//---
void BorrarColumna(TStringGrid *strGrid, int nColumna)
{
    if (nColumna >= strGrid->ColCount)
        return;
    // Deshabilita el pintado del control
    strGrid->Perform(WM_SETREDRAW, FALSE, 0);
    if (strGrid->ColCount>1) {
        for (int x=nColumna; x<strGrid->ColCount; x++) {
            strGrid->Cols[x] = strGrid->Cols[x+1];
            strGrid->ColWidths[x] = strGrid->ColWidths[x+1];
        }
    }
    else
        strGrid->Cols[nColumna]->Clear();
    strGrid->ColCount--;
    // Habilita el pintado del control
    strGrid->Perform(WM_SETREDRAW, TRUE, 0);
    strGrid->Invalidate();
}
//---

---

[Mónica]

Muchas gracias _Leo!