1 reply to this topic

[Ulrich Schaupp]

Hello Boki,

 

how can I calc rowheight in dbGrid to show the complete table column text or Memo in associated grid cell?

 

Best regards

Uli

[Boki (Berg)]

Hello Uli,
 
Please excuse me for delay.
 
For this purpose you can use OnMeasureRowHeight event. In this event you will read Index parameter and then you can set var parameter RowHeight.

procedure TForm2.NextDBGrid61MeasureRowHeight(Sender: TObject; Index: Integer; var RowHeight: Integer);
begin
  if Index = 2 then RowHeight := 40;
end;

Inside it we can use for example GetTextSize that I have in NxGraphics6.pas unit. Or you can use TCanvas.TextRect to measure text size.

For example:

procedure TForm2.NextDBGrid61MeasureRowHeight(Sender: TObject; Index: Integer; var RowHeight: Integer);
begin
  RowHeight := GetTextSize(NextDBGrid61.Canvas, MyRectToFit, NxDBTextColumn61.DataBinding.Field.AsInteger).cy;
end;

I hope that this helps. If not I can make a small demo.