TdxPreviewPageEvent = procedure(Sender: TObject; APageIndex: Integer) of object;