Permalink
Browse files

Make memo box for data type help text slightly higher, so the contain…

…ed text does not lead the last line to be hidden. Closes #398.
  • Loading branch information...
ansgarbecker committed Nov 19, 2018
1 parent 48e523d commit a119aa0cbc366c58e9d05dbcdb4667de159ebd42
Showing with 1 addition and 1 deletion.
  1. +1 −1 source/grideditlinks.pas
@@ -1678,7 +1678,7 @@ procedure TDataTypeEditorLink.DoTreeSelectHotChange(Sender: TBaseVirtualTree; Ol
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

0 comments on commit a119aa0

Please sign in to comment.