TdxPSPreviewWindowCanShowMarginHint = procedure(Sender: TObject; var AAllow: Boolean) of object;