[Lazarus] TTimer on design time

[fluisgira...@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

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus