Stack overflow / TStyleBook.GetStyle?

[pete42 0]

Can anyone tell me if this causes a stack overflow?

 

unit FMX.Controls;

function TStyleBook.GetStyle(const Context: TFmxObject): TFmxObject;
var
  Idx: Integer;
begin
  Idx := StyleIndexByContext(Context);
  if Idx >= 0 then
    Result := Styles[Idx].Style
  else
    Result := Style; <<< This Property call results in an infinite GetStyle call?!
end;

 

Thanks!

[programmerdelphi2k 239]

51 minutes ago, pete42 said:

This Property call results in an infinite GetStyle call?!

FMX.Controls.pas, line 1180 (RAD11.3)  ->  property Style: TFmxObject read GetStyle;   then, yes! a infinity looping if "(Idx<0)"   🙂