Make memo box for data type help text slightly higher, so the contained text does not lead the last line to be hidden. Closes #398.

This commit is contained in:
Ansgar Becker
2018-11-19 20:10:35 +01:00
parent 48e523d4b6
commit a119aa0cbc

View File

@@ -1678,7 +1678,7 @@ begin
R := Rect(0, 0, FMemoHelp.Width-10, 0);
DrawText(bmp.Canvas.Handle, PChar(FMemoHelp.Text), Length(FMemoHelp.Text), R, DT_WORDBREAK or DT_CALCRECT);
FreeAndNil(bmp);
FMemoHelp.Height := R.Bottom + 2;
FMemoHelp.Height := R.Bottom + 8;
FMemoHelp.Show;
end;
if FMemoHelp.GetTextLen = 0 then