DBGrid consulta

[lucas05]

Hola, estoy haciendo una aplicación en Delphi 7 y MySQL.
Lo que hago es mostrar información en un DBGrig, pero tengo dos consultas:
1)Como hago para agrandar el tamaño de los datos que muestra el DBGrid.
2)Como hacer que los datos que aparecen dentro de la celda en la grilla, puedan ser alineados a la izquierda o hacia la derecha de la celda.

Espero haber sido claro, en especial con la segunda consulta.

Gracias por su atención.
Saludos.

[ecfisa]

Hola lucas.

El tamaño lo cambias con la propiedad TDBGrid.Font.Size y la alineación debés hacerla para cada columna TDBGrid.Columns[n].Alignment, valores: taLeftJustify, taCenter o taRightJustify.

Como ejemplo de prueba, en un form pone:
. Un TDBGrid asociado asociado a un TDataSource relacionado a un TDataSet. (Table,Query,etc)
. Un TRadioGroup con sus Items en este orden: Izquierda, Derecha y Centrado.
. Un TUpDow (pestaña Win32) con su propiedad Asociate = Edit1 y las propiedades: Min = 8, Max =24.

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    UpDown1: TUpDown;
    Edit1: TEdit;
    procedure RadioGroup1Click(Sender: TObject);
    procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  i: Integer;
  TA: TAlignment;
begin
  case RadioGroup1.ItemIndex of
    0: TA:= taLeftJustify;     // izquierda
    1: TA:= taRightJustify;  // derecha
    2: TA:= taCenter;         // centro 
  end;
  for i:= 0 to DBGrid1.Columns.Count -1 do  //  todas las columnas
    DBGrid1.Columns[i].Alignment:= TA;      // Alinear
end;

procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  DBGrid1.Font.Size:=  UpDown1.Position; // Tamaño fuente
end;
...

Saludos.

[lucas05]

Hola ecfisa, voy a poner en practica tu ejemplo.
Gracias.