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.


...
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.