Skip to content

screen.cursor := crDefault does not restore cursor in TListView

Original Reporter info from Mantis: murray
  • Reporter name:

Description:

setting
  screen.cursor := crHourGlass
and later
  screen.cursor := crDefault

Does not restore the cursor of a TListView.

reproducible on 32bit and 64 bit ubuntu 11.04 (GTK2). Win32 and Win64 are not affected. Also seen on Gentoo 2.0.3 32bit.

Steps to reproduce:

Put a TListView and two buttons on a form.
For the two buttons, set "OnClick" as:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Screen.Cursor := crHourglass;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Screen.Cursor := crDefault;
end;

Click button1, and all controls set for Hourglass cursor.
Click button2, and all controls except the ListView go back to default. The listview stays on Hourglass.

Additional information:

Not limited to Hourglass; any cursor change does not revert to default.
Also seen this in the Lazarus IDE where ListViews are used (e.g. Watch List).
Sample project uploaded.

Mantis conversion info:

  • Mantis ID: 20313
  • OS: ubuntu
  • OS Build: 11.04
  • Build: 32446
  • Platform: GTK2
  • Version: 0.9.31 (SVN)
  • Fixed in revision: 34635 (#6e4efa1d)
  • Monitored by: » emaijala (Ere Maijala)
  • Target version: 0.9.31 (SVN)
  • LazTarget: 0.99.0