TTMSFMXMemo cursor issue

FMX TMS FMX UI Pack
1

FMX Pack version: 2.8.1.3

Memo version: 1.5.0.9
IDE: XE7 UPD1

Cursor, used in entire area of Memo, is Beam, despite that mouse hovering may be on vertical scroll bar, for instance, or gutter, both being non-textual areas.

2

The cursor is crDefault on all areas, which takes over the Cursor property of the parent control. You can override this behavior with the following code:


procedure TForm1.TMSFMXMemo1ApplyStyleLookup(Sender: TObject);
begin
  TMSFMXMemo1.GetGutter.Cursor := crArrow;
  TMSFMXMemo1.GetVScroll.Cursor := crArrow;
  TMSFMXMemo1.GetHScroll.Cursor := crArrow;
end;

Kind Regards, 
Pieter
3

Yep, that's work-around I currently use, thank you :)