Correcting assertion

Source commit: 2db786c378d7b715bc3b4e65b4dee73f83616145

source/packages/my/PasTools.pas

@@ -435,7 +435,7 @@ begin
   begin
     // This should happen only for screen tip over dropped down menu.
     // The other condition is a temporary fix is for TCustomComboEdit on TCopyParamsFrame.
-    Assert((Control.ClassName = 'TTBXPopupWindow') or ((Control.Parent <> nil) and (Control.Parent.ClassName = 'TCopyParamsFrame')) or ((Control.Parent.Parent <> nil) and (Control.Parent.Parent.ClassName = 'TCopyParamsFrame')));
+    Assert((Control.ClassName = 'TTBXPopupWindow') or (Control.ClassName = 'TTBXChevronPopupWindow') or ((Control.Parent <> nil) and (Control.Parent.ClassName = 'TCopyParamsFrame')) or ((Control.Parent <> nil) and (Control.Parent.Parent <> nil) and (Control.Parent.Parent.ClassName = 'TCopyParamsFrame')));
     Result := ScaleByPixelsPerInch(Dimension, Control);
   end
     else