take a look at TDatasource.DistributeEvent implementation (datasource.inc):
With FDatalinks do
begin
For I:=0 to Count-1 do
With TDatalink(Items[i]) do
If Not VisualControl Then
DataEvent(Event,Info);
For I:=0 to Count-1 do
With TDatalink(Items[i]) do
If VisualControl Then
DataEvent(Event,Info);
end;
Am I missimg something or the check to VisualControl doesnt make sense?
As far as i can see the code below has the same effect
With FDatalinks do
begin
For I:=0 to Count-1 do
With TDatalink(Items[i]) do
DataEvent(Event,Info);
end;
Luiz
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
