|
@@ -435,7 +435,7 @@ begin
|
|
begin
|
|
begin
|
|
// This should happen only for screen tip over dropped down menu.
|
|
// This should happen only for screen tip over dropped down menu.
|
|
// The other condition is a temporary fix is for TCustomComboEdit on TCopyParamsFrame.
|
|
// 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);
|
|
Result := ScaleByPixelsPerInch(Dimension, Control);
|
|
end
|
|
end
|
|
else
|
|
else
|