TTrackBar. Patch. For large ranges (Max - Min) and TickStyle = tsAuto (default) windows hang

Original Reporter info from Mantis: SergeAnvarov @SergeAnvarov

• Reporter name: Serge Anvarov

Description:

Windows tries to draw all these ticks, causing itself to hang (don't answer for very long).
The decision is made as in Delphi: with a large range cancels auto drawing ticks.

Steps to reproduce:

In new empty application put TTrackBar on form and add:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Max := MaxInt;
end;

Additional information:

See https://forum.lazarus.freepascal.org/index.php/topic,46606.msg332560.html#msg332560

Mantis conversion info:

• Mantis ID: 36046
• OS: Windows
• OS Build: Windows 7
• Platform: Windows
• Version: 2.0.4
• Fixed in revision: 62125 (#e7174e7a)