Attribute VB_Name = "StoreMdl"
Option Explicit

' Implementation Class
Public Const IMPLEMENTATION_CLASS_UID = "1.2.840.114257.1123456"
' Implementation Version
Public Const IMPLEMENTATION_VERSION_NAME = "1"
Public Const PROTOCOL_VERSION = 1
' Registry location
Public Const REGISTRY_LOCATION = "SOFTWARE\LEAD Technologies, Inc.\VB_DicomSTR"

' Compression constants
Public Const STR_DONT_RECOMPRESS = 0      ' Leave image compression (Don't re-compress)
Public Const STR_J2K_LOSSY = 1            ' J2K Lossy
Public Const STR_J2KLOSSLESS = 2          ' J2K Lossless
Public Const STR_JPEG_LOSSY = 3           ' JPEG Lossy
Public Const STR_JPEG_LOSSLESS = 4        ' JPEG Lossless

' Demo error codes
Public Const GENERAL_ERRROR = -1
Public Const STR_CONNECT_FAILED = 1                     ' Connect operation failed
Public Const STR_CONNECT_SUCCEEDED = 2                  ' Connect operation succeeded
Public Const STR_SEND_ASSOCIATION_REQUEST = 3           ' Sending association request
Public Const STR_RECEIVE_ASSOCIATE_ACCEPT = 4           ' Receiving association accept
Public Const STR_RECEIVE_ASSOCIATE_REJECT = 5           ' Receiving association reject
Public Const STR_ABSTRACT_SYNTAX_NOT_SUPPORTED = 6      ' Abstract Syntax not supported
Public Const STR_SEND_CSTORE_REQUEST = 7                ' Sending C-STORE request
Public Const STR_RECEIVE_CSTORE_RESPONSE = 8            ' Receiving C-STORE response
Public Const STR_CONNECTION_CLOSED = 9                  ' Closing connection
Public Const STR_PROCESS_TERMINATED = 10                ' Storage has been terminated
Public Const STR_SEND_RELEASE_REQUEST = 11              ' Sending release request
Public Const STR_RECEIVE_RELEASE_RESPONSE = 12          ' Receiving release response
Public Const STR_DICOM_ERROR = 13                       ' General DICOM Error

' APIs
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const EM_LINESCROLL = &HB6
Public Const EM_LINEFROMCHAR = &HC9