acomodar columnas en un grid

[ecfisa]

Empezado por lucas05

Hola, tengo DBGrid1(conectado a un ADOQuery) y DBGrid2(conectado a un ClientDataSet).
Como puedo hacer para que los datos que aparecen dentro de las celdas estén ubicados a la derecha o a la izquierda.

Hola Lucas.

Código Delphi [-]
procedure AlinearColumnas(Grd: TDBGrid; Align: TAlignment);
var
  i: Integer;
begin
  for i:= 0 to Grd.Columns.Count-1 do
    Grd.Columns[i].Alignment:= Align;
end;

Para probar el funcionamiento del procedimiento poné un TRadioButton con tres items: Izquierda - Derecha - Centrado (en ese orden) y este código en el evento OnClick del mismo.

Código Delphi [-]
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
   AlinearColumnas(DBGrid1,TAlignment(RadioGroup1.ItemIndex));
end;

Otro ejemplo de llamada

Código Delphi [-]
  AlinearColumnas(DBGrid1, taRightJustify);

Los valores que podés enviar en el argumento Align son: taLeftJustify, taRightJustify y taCenter.


En cuanto a tu otra consulta recorda que: preguntas distintas = hilos distintos.

Saludos.