autofit dbgrid column size through code?

[tatamata]

Hello.
How to program auto-fit behavior of column size in dbgrid?
Thanks,

Zlatko

[tatamata]

Is there any alternative grid component for Lazarus, beside the standard DBGrid?

[alexs]

see RxDBGrid from rxfpc - in lazarus-ccr or on url http://alexs75.narod.ru/fpc/rxfpc/RxFPC.rar
in RxDBGrid auto-fit collumn present ...

[tatamata]

Alexs,
1. I couldn't install rxfpc in Lazarus 0.9.22, some methods can't be overriden (not present in parent class?)...Which version works with Lazarus 0.9.22?
2. Why AutoAdjustColumns method doesn't give expected result for DBGrid?

Regards,

Zlatko

[alexs]

it's compile with last version 0.9.23 from svn

[tatamata]

OK. I installed 0.9.23, fpc 2.2.1 and installed RxFpc.
But I still don't know how to set column size to be automatically adjust...

[tatamata]

Hello again.
I figured out that I can use RxDBGrid's OptimizeColumnsWidthAll method to automatically adjust columns width proportionally to its content.
But, I experienced strange behavior of that method with persistent columns based on Firebird ZQuery dataset. Columns are adjusted to the database field size, not to actual field's content. For example, if a field is VARCHAR(255), the corresponding  RxDBGrid column will be 255 characters wide, although actual content of cells are much shorter than 255 characters !?
If I use dynamically created columns, autoadjustment works correctly.

Just to mention, CheckBox columns in DBGrid don't function correctly in current Lazarus 0.9.23 fpc 2.2.1 snapshot. There's no checkbox in a grid, only blank uneditable cell...I hope Lazarus developers already know that...

Regards,

Zlatko

[alexs]

But, I experienced strange behavior of that method with persistent columns based on Firebird ZQuery dataset. Columns are adjusted to the database field size, not to actual field's content

i'm use FireBird and FBDataSet - RxDBGrid.OptimizeColumnsWidthAll and RxDBGrid1.OptimizeColumnsWidth('Field_Name') work ok

Just to mention, CheckBox columns in DBGrid don't function correctly in current Lazarus 0.9.23

set TitleStyle of DBGrid to tsStandard

[tatamata]

No, changing TitleStyle didn't help. cbsCheckBoxColumn just doesn't work (at least for Integer fields, I don't know for Booleans, as Firebird doesn't have Boolean data type)...
I think it is a bug, because in Lazarus 0.9.22 fpc 2.0.4 this works OK.

Regards,

Zlatko

[tatamata]

OptimizeColumnsWidthAll optimizes column width according to data width in cells, but how to adjust column width according to Title width, in cases when title width is longer than text in cells?
Regards,
Zlatko

[alexs]

Code: [Select]


RxDBGrid1.OptimizeColumnsWidthAll;
for i:=0 to RxDBGrid1.Columns.Count-1 do
  if  RxDBGrid1.Canvas.TextWidth(RxDBGrid1.Columns[i].Title)>RxDBGrid1.Columns[i].Width then
  RxDBGrid1.Columns[i].Width :=RxDBGrid1.Canvas.TextWidth(RxDBGrid1.Columns[i].Title);


[tatamata]

Thanks, Alex, that's it!
"Caption" needs to be added after "Title":
RxDBGrid.Canvas.TextWidth(Columns.Title.Caption)...and works great.
Regards,

ZLatko