TTimer Interval confusion

[simsam]

Hello,

I have an issue with TTimer.

I placed three timers on the androidlcl form and each of these timers simply increases a counter and writes the result to a label:

Timer1.Interval = 500
Timer2.Interval = 1000
Timer3.Interval = 2000

procedure TForm1.Timer1Timer(Sender : TObject)
begin
  Inc(counter1);
  Label1.Caption := IntToStr(counter1);
end;

procedure TForm1.Timer2Timer(Sender : TObject)
begin
  Inc(counter2);
  Label2.Caption := IntToStr(counter2);
end;

procedure TForm1.Timer3Timer(Sender : TObject)
begin
  Inc(counter3);
  Label3.Caption := IntToStr(counter3);
end;

The result of all of this is that all the counters increase at the same rate of around 500ms.
LogCat tells me that all the timers have been created with their respective interval.
Anyone having this same issue? In my app I worked around it by having only one timer running a base cycle and doing the timing stuff from there. But that's not cool.

[jhmos]

In my app I worked around it by having only one timer running a base cycle and doing the timing stuff from there.

Unfortunately, thats what you have to do. Works the same under MS windows. I vaguely recall when I looked at this problem, that the only way to have multiple timers is to use multiple threads (with all that added complexity).

[Graeme]

The result of all of this is that all the counters increase at the same rate of around 500ms.

That is clearly a bug in LCL+Android. Please file a bug report in Mantis (http://bugs.freepascal.org/my_view_page.php).

[User137]

Works the same under MS windows. I vaguely recall when I looked at this problem, that the only way to have multiple timers is to use multiple threads (with all that added complexity).

No, i just tried this on Lazarus 1.1 on Win32 and 3 labels are growing number at different paces, depending on interval.