Nisam isprobao, ali medota TCanvas::TextWidth() bi trebala da pomogne.
Canvas->TextWidth( "neki tekst" ) bi trebalo da vrati duzinu stringa "neki tekst" u pixelima,
pa onda kolonu DBGrida u kome se nalazi tekst treba povecati na tu vrednost.
Na primer:
DBGrid1->Columns->Items[0]->Width = Canvas->TextWidth( DBGrid1->Columns->Items[0]->AsString ) + 2;
Mada ja licno nikada ne racunam najduzi tekst kolone, nego sirinu postavim na neke logicne vrednosti.
FREEWARE
Di rečnik,
v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com