Question

I use your phGantTime package with Delphi 7.

I have a problem with setting the rowheight property of the grid. I cannot set this value less than 20 pixels. I tried to reduce the used font size too, but the rowheight is always 20. How can I resolve the problem? Our client wants to see more rows on the screen, without scrolling the gant.

For example:

phGant1.Grid.SetRowHeight(1, 15);

phGAnt.Grid.GetRowHeight(1) get 20

Thanks.

Answer

This has to do with the cellLayout that has a MinHeight property that is default set to 20. If your cell does not activly use CellLayouts the DefaultCellLayout.MinHeight is used.

Change it like this phGrid.DefaultContentLayoutProperty.MinHeight:=15.