Setting StringGrid.Height

Posted by Lee Hallin p12462 on January 27, 2009

Hi all,
I have a StringGrid that I populate on the fly. Once I'm done populating it, I want to set the .height property such that the bottom border is just below the [possible horizontal scroll bar and] last line in the StringGrid. When I click the button with the following code, the bottom border ends up below row 7 out of 10 rows. I'm guessing it is because I am summing the height of the characters but not the space above and below the horizontal lines. Is there some other property(s) I should be summing to get the results I want?

procedure TForm1.Button3Click(Sender: TObject);
Var
i,H: Integer;
Begin
H := 0;
For i := 0 to (StringGrid1.RowCount - 1) do Begin
H := H + StringGrid1.Canvas.TextHeight(StringGrid1.Cells[0,i]);
End;
StringGrid1.Height := H;
End; { Button3Click }

Thanks..Lee

Follow Ups

Re: Setting StringGrid.Height webmaster Guido 1/28/2009 (3)
- Re: Setting StringGrid.Height Lee p12462 1/28/2009 (2)
  - Setting StringGrid.Height -- a bit more scientific webmaster Guido 1/31/2009 (1)
    - Re: Setting StringGrid.Height -- a bit more scientific Lee p12462 2/04/2009 (0)

Post a Followup

Name:
Password:

Subject:

Comments:
: Hi all, : I have a StringGrid that I populate on the fly. Once I'm done populating it, I want to set the .height property such that the bottom border is just below the [possible horizontal scroll bar and] last line in the StringGrid. When I click the button with the following code, the bottom border ends up below row 7 out of 10 rows. I'm guessing it is because I am summing the height of the characters but not the space above and below the horizontal lines. Is there some other property(s) I should be summing to get the results I want? : procedure TForm1.Button3Click(Sender: TObject); : Var : i,H: Integer; : Begin : H := 0; : For i := 0 to (StringGrid1.RowCount - 1) do Begin : H := H + StringGrid1.Canvas.TextHeight(StringGrid1.Cells[0,i]); : End; : StringGrid1.Height := H; : End; { Button3Click } : Thanks..Lee

DelphiLand Club members: enter your Membership password.
Guests can get a Forum Guest password by subscribing to the DelphiLand Newsletter.