TMemo.Cursor does not work

Original Reporter info from Mantis: tomitomy

• Reporter name:

Description:

"TMemo.Cursor := anycursor" does not work on my tests on Lazarus 1.8.0RC4 Linux 64 Gtk2. Some said it works correctly on Windows but I haven't tested it on Windows.

Please visit this discussion for more information:
http://forum.lazarus.freepascal.org/index.php/topic,38724.0.html

Steps to reproduce:

Use the code below the reproduce the issue:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Cursor := crHandPoint;
end;

Mantis conversion info:

• Mantis ID: 32616
• OS: Linux Mint Mate 64-bit
• OS Build: 18.2
• Platform: Linux
• Version: 1.8RC4
• Fixed in revision: 59917 (#88f5a140)
• Target version: 2.0