First Steps: FMX tgrid tcolumn databinding fieldname

[DSCHUCH]

Hallo,

ich probiere gerade mal ein paar ganz einfache Dinge mit Firemonkey, habe ich schon ne halbe Stunde probiert, gegoogled und quellcode angeschaut, komme nicht weiter und Problem ist garantiert ganz einfach:

Ich möchte den Inhalt einer Datenbank darstellen, gelöst über TGrid, Query, TDataSource und TBindSourceDB. Funktioniert.

Ich wollte jetzt die ColumnWidth im Quellcode vergeben, da ich nicht genau weiß wieviele Spalten entstehen (Select * FROM) und oder halt auf den Inhalt anpassen.

• Vordefinierte Propertie (ColumnAutoWidht) habe ich nicht gefunden
• Im CustomDraw habe ich TColumn, wie finde ich die dahinterliegende Datenanbindung / Fieldname heraus? ... ich wollte über TField.DataSize oder Displaywidth die Spaltenbreite setzen
• IF Column.Index=0 then Column.Width:=140; >>>> irgendsowas >>>> IF Column.DataBinding.MemberName='fieldA' then Column.Width:=140;

Evtl gibt es ja auch irgendwo ein Tutorial oder sonstige Einstiegsdokumentation?

Danke,
Daniel.

[DSCHUCH]

Ich trage hier mal bissl was zusammen, was ich auf meiner Recherche so finde:

http://stackoverflow.com/questions/3...byrow-function

Delphi-Quellcode:

var tmp : TFmxObject;
 begin 
  tmp:=TColumnAccess(Columns[Col]).CellControl;
  result:=TControl(tmp).BoundsRect.BottomRight

Edit: wobei das scheinbar veraltet ist:
http://www.delphipraxis.net/180120-z...d-fmx-xe6.html

[MEissing]

Ganz einfach (Getestet mit 10.1 Berlin):

Code:

procedure TForm1.AutoSizeCol(Grid: TStringGrid; Column: integer);
var
  i: integer;
   W, WMax : Single;
begin
  WMax := 0;
  for i := 0 to (Grid.RowCount - 1) do begin
    W := Grid.Canvas.TextWidth(Grid.Cells[Column, i]);
    if W > WMax then
      WMax := W;
  end;
  Grid.Columns[Column].Width := WMax + 8;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to StringGrid1.ColumnCount - 1 do
    AutoSizeCol(StringGrid1, i);
end;