diff --git a/compiler b/compiler index db39d1a..cbc8aa6 160000 --- a/compiler +++ b/compiler @@ -1 +1 @@ -Subproject commit db39d1a4e4af8d543db22dbf85abc1c0e4dc522e +Subproject commit cbc8aa63c83df4e16635b26e479c508229428e07 diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas index 50a739e..76e94b8 100644 --- a/packages/rtl/classes.pas +++ b/packages/rtl/classes.pas @@ -5199,6 +5199,8 @@ procedure TComponent.InsertComponent(AComponent: TComponent); begin AComponent.ValidateContainer(Self); + if AComponent.FOwner <> nil then + AComponent.FOwner.RemoveComponent(AComponent); ValidateRename(AComponent,'',AComponent.FName); Insert(AComponent); If csDesigning in FComponentState then diff --git a/packages/rtl/js.pas b/packages/rtl/js.pas index 3d2e378..e0d965d 100644 --- a/packages/rtl/js.pas +++ b/packages/rtl/js.pas @@ -880,8 +880,8 @@ type FFatal : Boolean; external name 'fatal'; FIgnoreBOM : Boolean; external name 'ignoreBOM'; Public - Constructor New(utfLabel : String); - Constructor New(utfLabel : String; Options : TJSTextDecoderOptions); + Constructor New(utfLabel : String); overload; + Constructor New(utfLabel : String; Options : TJSTextDecoderOptions); overload; Function decode(arr : TJSTypedArray) : String; overload; Function decode(arr : TJSArrayBuffer) : String; overload; Function decode(arr : TJSTypedArray; opts : TJSTextDecodeOptions) : String; overload;