GFSkinEngine/GFSkinEngine_Constantmod.bas

Attribute VB_Name = "GFSkinEngine_Constantmod"
Option Explicit
'(c)2001, 2002, 2003 by Louis.
'UserMove constants
Public Const SE_USERMOVETYPE_MOVE As Integer = 1
Public Const SE_USERMOVETYPE_SIZE As Integer = 2
'SEControlType constants
Public Const SECONTROLTYPE_FORM As Integer = 10
Public Const SECONTROLTYPE_SECOMMAND As Integer = 20
Public Const SECONTROLTYPE_PICTUREBOX As Integer = 30 'box controls (ordered by general frequency of usage)
Public Const SECONTROLTYPE_TEXTBOX As Integer = 40
Public Const SECONTROLTYPE_LISTBOX As Integer = 50
Public Const SECONTROLTYPE_CHECKBOX As Integer = 60
Public Const SECONTROLTYPE_COMBOBOX As Integer = 70
Public Const SECONTROLTYPE_LABEL As Integer = 80 'display controls
Public Const SECONTROLTYPE_LINE As Integer = 90
Public Const SECONTROLTYPE_FRAME As Integer = 100
Public Const SECONTROLTYPE_OPTIONBUTTON As Integer = 110 'buttons
Public Const SECONTROLTYPE_GFLISTVIEW As Integer = 120 'self made controls
Public Const SECONTROLTYPE_GFTREEVIEW As Integer = 130
Public Const SECONTROLTYPE_GFTABSTRING As Integer = 140
Public Const SECONTROLTYPE_GFMSGBOX As Integer = 141
Public Const SECONTROLTYPE_SEPOLYRGN As Integer = 150 'poly rgn
Public Const SECONTROLTYPE_PSEUDOCONTROL As Integer = 160
'
'NOTE: use the pseudo control to allow the user to change the
'system font, frame color, mouse pointer, etc. by SEPE.
'Therefore the following entry must be done in the SkinDataFile:
'[Skin Engine System Settings]
'system_forecolor=...
'
'The target project must register the following control:
'Call SE_RegisterControl("Skin Engine System Settings", Nothing, _
'   SECONTROLTYPE_PSEUDOCONTROL)
'No further code is necessary to make the stuff work.
'Originally a control domain is bordered by either any [control name] line
'or a system_[...] line, but the control domain of a pseudo control ends at a
'[control name] line ONLY.
'
'To prevent comments at the end of a control domain from being read,
'insert [annotation] or something else in brackets in front of the comments.
'The Skin Engine thinks a new control domain begins but will not display
'the annotation as a control in SEPE as [annotation] has not been registered
'using SE_RegisterControl().
'
'SEControlState constants
Public Const SECONTROLSTATE_NOSTATE As Integer = 0
Public Const SECONTROLSTATE_NORMAL As Integer = 1
Public Const SECONTROLSTATE_CHECKED As Integer = 2
Public Const SECONTROLSTATE_PUSHED As Integer = 2
Public Const SECONTROLSTATE_MOVEOVER As Integer = 3
Public Const SECONTROLSTATE_DISABLED As Integer = 4
'SESystem constants
Public Const SESYSTEM_FORECOLOR As Long = ‑1
Public Const SESYSTEM_BACKCOLOR As Long = ‑2
Public SESYSTEM_FONT As FontStruct
'NOTE: the following color constants are mainly used to create an original Windows‑command button.
Public Const SYSTEM_CONTROLCOLOR As Long = &H8000000F
Public Const SYSTEM_LOCKEDTEXTCOLOR As Long = &H80000011
Public Const SYSTEM_CONTROLTEXTCOLOR As Long = &H80000012
Public Const SYSTEM_CONTROLMARKINGCOLOR As Long = &H80000014
Public Const SYSTEM_CONTROLSHADOWCOLOR As Long = &H80000010
Public Const SYSTEM_DARKSHADOWCOLOR As Long = &H80000015
Public Const SYSTEM_LIGHTSHADOWCOLOR As Long = &H80000016
'SkinDataFile related messages
Public Const SECBMSG_BEFORE_SKINDATAFILE_RELOAD As Integer = 1 'wParam: full path of new SkinDataFile, lParam: BOOLTOSTRING(SkinDataFileChangedFlag) (True if to be reloaded)
Public Const SECBMSG_AFTER_SKINDATAFILE_RELOAD As Integer = 2 'wParam: full path of new SkinDataFile, lParam: BOOLTOSTRING(SkinDataFileChangedFlag) (always True)
Public Const SECBMSG_PALETTECHANGE As Integer = 3 'wParam: new palette number, lParam: BOOLTOSTRING(ForceRedrawFlag) (not always True)
'skin related messages
Public Const SECBMSG_BEFORE_SKIN_SELECT As Integer = 500 'return value checked
Public Const SECBMSG_BEFORE_SKIN_NEXT As Integer = 501 'return value checked
Public Const SECBMSG_BEFORE_SKIN_PREVIOUS As Integer = 502 'return value checked
Public Const SECBMSG_BEFORE_SKIN_COPY As Integer = 503 'return value checked
Public Const SECBMSG_BEFORE_SKIN_DELETE As Integer = 504 'return value checked
Public Const SECBMSG_BEFORE_SKIN_NEW As Integer = 505 'return value checked
Public Const SECBMSG_BEFORE_SKIN_EXPORT As Integer = 506 'return value checked
Public Const SECBMSG_BEFORE_SKIN_IMPORT As Integer = 507 'return value checked
'ContextHelp related messages
Public Const SECBMSG_CONTEXTHELP_ENABLED As Integer = 10 'called when user clicks on ContextHelp command, message return value is checked
Public Const SECBMSG_CONTEXTHELP_REQUESTED As Integer = 11 'wParam: control name, lParam: proposed ContextHelpfrm position constant (use for both x and y pos), "" for no proposition
Public Const SECBMSG_CONTEXTHELP_EVENT As Integer = 12 'wParam: event name (this message can only be posted by GFContextHelp)
Public Const SECBMSG_CONTEXTHELPCOMMAND_LBUTTONDOWN As Integer = 13
Public Const SECBMSG_CONTEXTHELPCOMMAND_LBUTTONUP As Integer = 14
'UserMove related messages
Public Const SECBMSG_USERMOVESYSTEM_ENABLING As Integer = 26 'occurs when user enables the UserMove system; return calue checked
Public Const SECBMSG_USERMOVESYSTEM_DISABLING As Integer = 27 'occurs when user disables the UserMove system; return value checked
Public Const SECBMSG_USERMOVESYSTEM_ENABLED As Integer = 20 'occurs when user enabled the UserMove system
Public Const SECBMSG_USERMOVESYSTEM_DISABLED As Integer = 21 'occurs when user disabled the UserMove system
Public Const SECBMSG_USERMOVE_ENABLED As Integer = 22 'occurs when user starts moving/sizing a control, wParam: control name
Public Const SECBMSG_USERMOVE_DISABLED As Integer = 23 'occurs when user ends moving/sizing a control, wParam: control name
Public Const SECBMSG_USERMOVE_MARK_SET As Integer = 24 'wParam AND lParam: control name; any picture box content will be cleared when the picture box's back color is changed; return value ignored; redraw picture boxes when mark is set/removed or if p. box back p. is changed
Public Const SECBMSG_USERMOVE_MARK_REMOVE  As Integer = 25 'wParam AND lParam: control name; picture box context should be redrawn by the system; return value ignored
'back picture related messages
Public Const SECBMSG_BACKPICTURE_ENABLED As Integer = 30 'lParam: control name (see also SECBMSG_BACKPICTURE_CHANGED)
Public Const SECBMSG_BACKPICTURE_DISABLED As Integer = 31 'lParam: control name (see also SECBMSG_BACKPICTURE_CHANGED)
Public Const SECBMSG_BACKPICTURE_CHANGED As Integer = 32 'wParam: full path to new back picture; usable if the back picture of a form is transferred to an other control; lParam: control name
'form related messages
Public Const SECBMSG_FORM_MAXIMIZED As Integer = 40 'wParam: form name, lParam: SEControlStructIndex (SE‑internal use)
Public Const SECBMSG_FORM_RESTORED As Integer = 41 'wParam: form name, lParam: SEControlStructIndex (SE‑internal use)
Public Const SECBMSG_FORM_RBUTTONDOWN As Integer = 42 'sent if UserMove disabled only; wParam: form name
Public Const SECBMSG_FORM_RBUTTONUP As Integer = 43 'use to open any pop up menu, also over labels; sent if UserMove disabled only; wParam: form name
Public Const SECBMSG_FORM_BEFORE_MOVING As Integer = 44 'wParam: form name; return SECBMSG_REPLY_CANCEL to avoid moving
Public Const SECBMSG_FORM_MOVED As Integer = 45 'wParam: form name
Public Const SECBMSG_FORM_BEFORE_SIZING As Integer = 46 'wParam: form name; return SECBMSG_REPLY_CANCEL to avoid sizing
Public Const SECBMSG_FORM_SIZED As Integer = 47 'wParam: form name
Public Const SECBMSG_LBUTTONUP_AFTER_FORM_MOVED As Integer = 48 'wParam: form name; this message is implemented to save all forms' positions to retain GFWindowStick positions
Public Const SECBMSG_LBUTTONUP_AFTER_FORM_RESIZED As Integer = 49 'wParam: form name; this message is implemented to save all forms' positions to retain GFWindowStick positions
Public Const SECBMSG_FORM_BACKPICTURERECREATE As Integer = 50 'wParam: form name, lParam: form struct index; target project can return cancel and recreate the back picture with a delay to avoid WM_PAINT message jam
Public Const SECBMSG_FORMTITLEBAR_LBUTTONDBLCLK As Integer = 51 'wParam: form name (SourceDescription)
'menu related messages
Public Const SECBMSG_FORMMENU_OPENING As Integer = 60 'wParam: SourceFormName; set return value to 1 to avoid that the FormMenu is opened (no message box will be created)
Public Const SECBMSG_FORMMENU_CLOSED As Integer = 61 'wParam: SourceFormName; no return value
Public Const SECBMSG_CONTROLMENU_OPENING As Integer = 62 'wParam: SEControlName; set return value to 1 to avoid that the ControlMenu is opened (no message box will be created)
Public Const SECBMSG_CONTROLMENU_CLOSED As Integer = 63 'wParam: SEControlName; no return value
Public Const SECBMSG_POPUPMENUCLICK_PROCESSING_START As Integer = 64 'wParam: source menu description ('FormMenu'/'ControlMenu'); lParam: source control name
Public Const SECBMSG_POPUPMENUCLICK_PROCESSING_END As Integer = 65 'wParam: source menu description ('FormMenu'/'ControlMenu'); lParam: source control name
'SECommand related messages
Public Const SECBMSG_SECOMMAND_LBUTTONDOWN As Integer = 70 'for compatibility to SECBMSG_SECOMMAND_RBUTTONDOWN message
Public Const SECBMSG_SECOMMAND_LBUTTONUP As Integer = 71 'for compatibility to SECBMSG_SECOMMAND_RBUTTONUP message
Public Const SECBMSG_SECOMMAND_RBUTTONDOWN As Integer = 72 'right‑clicks are disabled by Skin Engine (VB will raise no event); wParam: control name
Public Const SECBMSG_SECOMMAND_RBUTTONUP As Integer = 73 'right‑clicks are disabled by Skin Engine (VB will raise no event); wParam: control name
'se control related messages
Public Const SECBMSG_SECONTROL_LOAD As Integer = 80 'if target project manipulates appearance; wParam: control name; lParam: BOOLTOSTRING(ForceRecreateFlag); return value checked
Public Const SECBMSG_SECONTROL_REFRESH As Integer = 81 'wParam: control name; lParam: SEControlState; return value checked
Public Const SECBMSG_SECONTROL_REFRESHED As Integer = 82 'wParam: control name; lParam: SEControlState; return value ignored
Public Const SECBMSG_SECONTROL_UNLOAD As Integer = 83 'wParam: control name; return value checked
Public Const SECBMSG_PICTUREBOX_REDRAW As Integer = 84 'wParam and lParam: picture box name; this message is sent whenever the content of a picture box should be redrawn; control needn't to be a picture box
'window related messages
Public Const SECBMSG_COLORCHOOSINGBOX_OPENED As Integer = 90 'sent when choosing system fore‑ and back color only
Public Const SECBMSG_COLORCHOOSINGBOX_CLOSED As Integer = 91
Public Const SECBMSG_FONTCHOOSINGBOX_OPENED As Integer = 92 'sent when choosing system font only
Public Const SECBMSG_FONTCHOOSINGBOX_CLOSED As Integer = 93
Public Const SECBMSG_BACKPICTURECHOOSINGBOX_OPENED As Integer = 94 'sent when choosing back picture
Public Const SECBMSG_BACKPICTURECHOOSINGBOX_CLOSED As Integer = 95 'wParam: path to the picture the user has chosen ("" if canceled)
Public Const SECBMSG_TITLEBARPICTURECHOOSINGBOX_OPENED As Integer = 96 'sent when choosing title bar picture
Public Const SECBMSG_TITLEBARPICTURECHOOSINGBOX_CLOSED As Integer = 97 'wParam: path to the picture the user has chosen ("" if canceled)
Public Const SECBMSG_SKINTRANSFERFRM_OPENED As Integer = 98 'target project should disable other forms
Public Const SECBMSG_SKINTRANSFERFRM_CLOSED As Integer = 99 'target project should enable other forms
Public Const SECBMSG_SKINENGINEFRM_OPENED As Integer = 100 'target project should disable other forms
Public Const SECBMSG_SKINENGINEFRM_CLOSED As Integer = 101 'target project should enable other forms
Public Const SECBMSG_POLYRGNDESKFRM_OPENED As Integer = 102 'target project should disable other forms
Public Const SECBMSG_POLYRGNDESKFRM_CLOSED As Integer = 103 'target project should disable other forms
Public Const SECBMSG_PROPERTYEDITFRM_OPENED As Integer = 104 'target project should disable other forms
Public Const SECBMSG_PROPERTYEDITFRM_CLOSED As Integer = 105 'target project should disable other forms
Public Const SECBMSG_FRAMEMAKERFRM_OPENED As Integer = 106 'target project should disable other forms
Public Const SECBMSG_FRAMEMAKERFRM_CLOSED As Integer = 107 'target project should disable other forms
'key hook related messages
Public Const SECBMSG_KEYHOOKEVENT As Integer = 120 'wParam: source description, lParam: [KeyCode]Chr$(0)[Shift] (SPLITSTRINGS() may be used by target project); return value forwarded to GFKeyHookmod
Public Const SECBMSG_KEYHOOKSHORTCUT_PROCESSING As Integer = 121 'set return value to 1 to avoid that a key press is processed (no message box will be created)
'other messages
Public Const SECBMSG_DISPLAY_SKIN_NAME As Integer = 230 'wParam: current skin's name; message sent by a short cut press or by Skin_Change()
Public Const SECBMSG_MESSAGE_SHOW As Integer = 231 'wParam: message text
Public Const SECBMSG_MESSAGE_HIDE As Integer = 232 'sometimes sent although no SECBMSG_MESSAGE_SHOW message was sent before
Public Const SECBMSG_FILEDROP_UNPROCESSED As Integer = 233 'wParam: path to dropped file; sent only if the dropped file cannot be processed by the Skin Engine
Public Const SECBMSG_PICTURE_DROPPED As Integer = 234 'wParam: ControlName, lParam: picture name; return value not ignored
Public Const SECBMSG_TITLEBARPICTURE_CHANGED As Integer = 235 'wParam: full path to new title bar picture; usable if the title bar picture of a form is transferred to an other control; a title bar picture cannot be en‑ or disabled; lParam: control name
Public Const SECBMSG_SKIN_ENGINE_NOT_AVAILABLE As Integer = 237 'if this message is sent the total error happened (neither requested skin nor default skin available)
Public Const SECBMSG_CUSTOMMESSAGE As Integer = 32767 'wParam: custom message name (to be defined by target project), lParam: additional parameter
'
'NOTE: the target project can avoid that special system parameters are reset
'when the user creates a new skin, e.g. to retain logo pictures.
'
Public Const SECBMSG_SEM_NEW_SYSTEM_FORECOLOR_CHANGE As Integer = 300 'wParam: new system fore color
Public Const SECBMSG_SEM_NEW_SYSTEM_BACKCOLOR_CHANGE As Integer = 301 'wParam: new system back color
Public Const SECBMSG_SEM_NEW_SYSTEM_FONT_CHANGE As Integer = 302 'wParam: new system font name, lParam: new system font size
Public Const SECBMSG_SEM_NEW_BACKPICTURE_RESET As Integer = 303 'wParam: control name, lParam: old back picture name
Public Const SECBMSG_SEM_NEW_TITLEBARPICTURE_RESET As Integer = 304 'wParam: control name, lParam: old title bar picture name
Public Const SECBMSG_SEM_NEW_UPPICTURE_RESET As Integer = 305 'wParam: control name, lParam: old up picture name
Public Const SECBMSG_SEM_NEW_DOWNPICTURE_RESET As Integer = 306 'wParam: control name, lParam: old down picture name
Public Const SECBMSG_SEM_NEW_MOVEOVERPICTURE_RESET As Integer = 307 'wParam: control name, lParam: old move over picture name
Public Const SECBMSG_SEM_NEW_POLYRGN_RESET As Integer = 308 'wParam: poly rgn name
Public Const SECBMSG_SEM_NEW_FINISHED As Integer = 309 'no parameters
'system call back message return values
Public Const SECBMSG_REPLY_OK As Long = 0
Public Const SECBMSG_REPLY_CANCEL As Long = 1
'SE not defined constants
Public Const SE_POS_NOT_DEFINED As Long = ‑256& ^ 3& 'don't use ‑1 as this could be a real pos
Public Const SE_SIZE_NOT_DEFINED As Long = ‑256& ^ 3& 'don't use ‑1 as this could be a real size
Public Const SE_FORMTOGGLESTATE_NOT_DEFINED As Integer = ‑1
'other SE constants
Public Const SE_ERROR As Integer = 0
Public Const SE_UPPICTURE As Integer = 1
Public Const SE_DOWNPICTURE As Integer = 2
Public Const SE_MOVEOVERPICTURE As Integer = 4
Public Const SE_LINK As Integer = 1024 'se command picture usage
Public Const SE_COPY As Integer = 2048 'se command picture usage
Public Const SE_DISABLEPICTURES As Integer = 4096 'se command picture usage
Public Const SE_CONTEXTHELPFILE_PASSWORD As String = "Skin Engine (c)2002 by Matthias Mueller"


[END OF FILE]