Correcting assertion

(cherry picked from commit fea824f02c0f486df8c83643a9275e00f4dbf3c0)

Source commit: fbf0bb19c4ddf0f9f41c00fcb6eed724eb3a8433

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