Recent

Author Topic: [solved] RichMemo - Deadspace  (Read 510 times)

pcurtis

  • Hero Member
  • *****
  • Posts: 951
[solved] RichMemo - Deadspace
« 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.
« Last Edit: September 22, 2020, 02:10:22 pm by pcurtis »
Windows 10 20H2
Laz 2.2.0
FPC 3.2.2

 

TinyPortal © 2005-2018