[Lazarus] TTimer on design time

[fluisgirardi at gmail.com]

I'm doing some some controls that uses TTimer. I don't know why, but from
some time ago, TTimer don't fire the OnTimer procedure. I see in their
source and is wrote:


procedure TCustomTimer.UpdateTimer;
begin
  KillTimer;
  if (FEnabled) and (FInterval > 0)
  and (([CSDESIGNING,csLoading,csDestroying]*ComponentState=[]))
  and Assigned (FOnTimer) then begin
    //DebugLn(['TCustomTimer.UpdateTimer ',dbgsName(Self),'
WidgetSet.CreateTimer']);
    FTimerHandle := WidgetSet.CreateTimer(FInterval, @Timer);
    if FTimerHandle=0 then begin
      FTimerHandle:=cIdNoTimer;
      raise EOutOfResources.Create(SNoTimers);
    end;
    if Assigned(OnStartTimer) then OnStartTimer(Self);
  end;
end;

So, what's the problem of fire OnTimer on Design time? Maybe I'm wrong, but
at least version 0.9.29 fires this event at design time.


Regards,

Fabio
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20110419/ed71c4d9/attachment-0002.html>