Estoy programando en pascal y utilizo Delphi Xe7. Estoy tratando de hacer que el ancho de las columnas de una grilla se ajuste a su contenido, pero que permita modificar el ancho a gusto del usuario.La grilla es una TStringAlignGrid
y este es el codigo que utilizo para que se ajuste al contenido:
procedure TfPlanillaOrdenPreparacion.gDetalleDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
vWidth : Integer;
begin
if (FormPosition.WMaximized = True) then
begin
vWidth := gDetalle.Canvas.TextWidth(gDetalle.Cells[ACol, ARow]);
if vWidth > aColWidthExpanded[ACol] then
aColWidthExpanded[ACol] := vWidth+20;
gDetalle.ColWidths[ACol] := aColWidthExpanded[ACol];
end;
end;
Al momento de cargar los datos, se cargan correctamente en la grilla y se ajustan al contenido como tiene que ser, pero cuando quiere agrandar o reducir alguna columna, no lo puedo hacer. Es como se que deshabilita la propiedad que me deja modificar el ancho. No entiendo que estoy haciendo mal, soy bastante nuevito en delphi xe7, les agradezco su ayuda :D.