Lazarus

Programming => General => Topic started by: pcurtis on September 22, 2020, 10:03:57 am

Title: [solved] RichMemo - Deadspace
Post by: pcurtis on September 22, 2020, 10:03:57 am

Hi All,

this not necessarily a FPC problem, but when I put a Richmemo on a form and fill it with the following sample code

Code: Pascal  [Select][+][-]

1.   FontParams.Size := 24;
2.   FontParams.Color := clTeal;
3.   FontParams.Style := [fsBold, fsUnderline];
4.   FontParams.Name := 'Segoe UI';
5.   str := FormatDateTime('dddd mmmm dd yyyy  hh:mm', Now) + LineEnding;
6.   InsertFontText(RichMemo1, str, FontParams, -1);
7.   RichMemo1.SelStart := Length(RichMemo1.Lines.Text);
8.  

I get the following result (see attachment). Is there a way to remove the dead space at the top of the RichMemo?

Thanks in advance.