'Declarations for the GRAPHICSPOWER/VBX Custom Controls

'Declarations for the GPBitmap control

Declare Sub GPBitmapAND Lib "GP.VBX" (DestBitmap As Control, SrcBitmap As Control)
Declare Sub GPBitmapClear Lib "GP.VBX" (Bitmap As Control)
Declare Sub GPBitmapFill Lib "GP.VBX" (Bitmap As Control, ByVal color As Long)
Declare Function GPBitmapGetImageHeight Lib "GP.VBX" (Bitmap As Control) As Integer
Declare Function GPBitmapGetImageWidth Lib "GP.VBX" (Bitmap As Control) As Integer
Declare Function GPBitmapLoadBmp Lib "GP.VBX" (Bitmap As Control, ByVal file As String) As Integer
Declare Function GPBitmapSaveBmp Lib "GP.VBX" (Bitmap As Control, ByVal file As String) As Integer
Declare Sub GPBitmapOR Lib "GP.VBX" (DestBitmap As Control, SrcBitmap As Control)
Declare Sub GPBitmapSet Lib "GP.VBX" (Bitmap As Control, ByVal X As Integer, ByVal Y As Integer, ByVal color As Long)
Declare Sub GPBitmapSetStencil Lib "GP.VBX" (Bitmap As Control, StencilBitmap As Control)
Declare Sub GPBitmapXOR Lib "GP.VBX" (DestBitmap As Control, SrcBitmap As Control)

'Declarations for the GPGroup control

Declare Sub GPGroupArray Lib "GP.VBX" (Group As Control, graphicals() As Integer)
Declare Sub GPGroupSelected Lib "GP.VBX" (Group As Control)
Declare Sub GPUngroup Lib "GP.VBX" (Group As Control)

'Declarations for the common methods and properties

Declare Sub GPGraphicalSetTransparent Lib "GP.VBX" (Graphical As Control, Transparent As Control)

'Fill Style

Global Const FILL_STYLE_SOLID = 0
Global Const FILL_STYLE_HATCH = 1
Global Const FILL_STYLE_TILED = 2
Global Const FILL_STYLE_GRADATION = 3


'Fill Gradation Style

Global Const GRADATION_STYLE_CENTER = 0
Global Const GRADATION_STYLE_HORZ = 1
Global Const GRADATION_STYLE_VERT = 2
Global Const GRADATION_STYLE_DIAG = 3
Global Const GRADATION_STYLE_VERT_CENTER = 4
Global Const GRADATION_STYLE_VERT_DOUBLE = 5
Global Const GRADATION_STYLE_VERT_45 = 6
Global Const GRADATION_STYLE_HORZ_CENTER = 7
Global Const GRADATION_STYLE_HORZ_DOUBLE = 8
Global Const GRADATION_STYLE_HORZ_45 = 9
Global Const GRADATION_STYLE_DOUBLE_CENTER = 10
Global Const GRADATION_STYLE_FAN = 11



'Declarations for the GPLine control

Global Const GP_ARROW_NONE = 0
Global Const GP_ARROW_FIRST = 1
Global Const GP_ARROW_SECOND = 2
Global Const GP_ARROW_BOTH = 3

'Declarations for the GPPath control

Declare Sub GPPathAppend Lib "GP.VBX" (Path As Control, ByVal X As Integer, ByVal Y As Integer)
Declare Sub GPPathClear Lib "GP.VBX" (Path As Control)
Declare Sub GPPathDelete Lib "GP.VBX" (Path As Control, ByVal X As Integer, ByVal Y As Integer)
Declare Function GPPathGetNumPoints Lib "GP.VBX" (Path As Control) As Integer
Declare Function GPPathGetPoints Lib "GP.VBX" (Path As Control, points() As Integer) As Integer

'Declarations for the GPRelation control

Declare Sub GPRelateGraphicals Lib "GP.VBX" (Relation As Control, Graphical1 As Control, Graphical2 As Control)

' Relation connect style
Global Const CONNECT_LINE = 0
Global Const CONNECT_HVH = 1
Global Const CONNECT_VHV = 2
Global Const CONNECT_HV = 3
Global Const CONNECT_VH = 4

' Relation corner style
Global Const CORNER_NONE = 0
Global Const CORNER_CUT = 1
Global Const CORNER_ROUND = 2

'Declarations for the GPText control

Declare Sub GPTextAppendText Lib "GP.VBX" (Text As Control, ByVal file As String)
Declare Sub GPTextFitSize Lib "GP.VBX" (Text As Control)
Declare Sub GPTextTruncateText Lib "GP.VBX" (Text As Control, ByVal numChars As Integer)

' Text/TextBlock horizontal alignment

Global Const DT_LEFT = 0
Global Const DT_CENTER = 1
Global Const DT_RIGHT = 2

' Text vertical alignment

Global Const DT_TOP = 0
Global Const DT_VCENTER = 1
Global Const DT_BOTTOM = 2


'Declarations for the GPTextBlock control

Declare Sub GPTextBlockFitHeight Lib "GP.VBX" (TextBlock As Control)

'Declarations for the Form

Declare Sub GPFormSetRedraw Lib "GP.VBX" (ByVal Form As Integer, ByVal Blocked As Integer)

