diff --git a/ide/customformeditor.pp b/ide/customformeditor.pp index 4686897f91..55a980476b 100644 --- a/ide/customformeditor.pp +++ b/ide/customformeditor.pp @@ -894,7 +894,8 @@ var FrameComp: TRegisteredComponent; begin FrameComp:=IDEComponentPalette.FindComponent('TFrame'); - FrameComp.OnGetCreationClass:=@FrameCompGetCreationClass; + if FrameComp <> nil then + FrameComp.OnGetCreationClass:=@FrameCompGetCreationClass; end; procedure TCustomFormEditor.SetSelection( diff --git a/lcl/lcltype.pp b/lcl/lcltype.pp index 2613ca6a61..21ef54b844 100644 --- a/lcl/lcltype.pp +++ b/lcl/lcltype.pp @@ -711,7 +711,7 @@ const SBS_SIZEBOX = 8; SBS_SIZEGRIP = $10; - SIF_Range = 1; + SIF_RANGE = 1; SIF_PAGE = 2; SIF_POS = 4; SIF_DISABLENOSCROLL = 8;