GFContextHelp/Testfrm.frm

VERSION 5.00
Begin VB.Form Testfrm
   BorderStyle     =   0 'Kein
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4650
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4650
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.Frame ProgramCloseCommand
      Height          =   255
      Left            =   4260
      TabIndex        =   1
      Top             =   0
      Width           =   255
   End
   Begin VB.Frame ProgramContextHelpCommand
      Height          =   255
      Left            =   3900
      TabIndex        =   0
      Top             =   0
      Width           =   255
   End
   Begin VB.Frame SECommand1
      Height          =   375
      Left            =   3120
      TabIndex        =   3
      Top             =   2700
      Width           =   1395
   End
   Begin VB.ListBox List1
      Height          =   1815
      Left            =   60
      TabIndex        =   2
      Top             =   720
      Width           =   4455
   End
End
Attribute VB_Name = "Testfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    'on error resume next
    Call DefineSkinEngine
    Call DefineContextHelp
End Sub

Private Sub DefineSkinEngine()
    'on error resume next
    Dim FontStructVar As FontStruct
    '
    FontStructVar.Name = "Arial"
    FontStructVar.Size = 8
    '
    Call SE_Initialize(RGB(255, 255, 255), 0, FontStructVar, "", True, App.Path + "\Skins\", HKEY_LOCAL_MACHINE, "Software\GFContextHelp\", ProgramContextHelpCommand)
    Call SECB_AddCallBackForm(Me)
    Call SE_RegisterControl("Testfrm", Testfrm, SECONTROLTYPE_FORM)
    Call SE_RegisterControl("ProgramCloseCommand", ProgramCloseCommand, SECONTROLTYPE_SECOMMAND)
    Call SE_RegisterControl("List1", List1, SECONTROLTYPE_LISTBOX)
    Call SE_RegisterControl("SECommand1", SECommand1, SECONTROLTYPE_SECOMMAND)
    Call SE_RegisterControl("ProgramContextHelpCommand", ProgramContextHelpCommand, SECONTROLTYPE_SECOMMAND)
    Call SE_RegisterControl("GFContextHelpfrm", GFContextHelpfrm, SECONTROLTYPE_FORM)
    Call SE_RegisterControl("GFContextHelpfrm.ContextHelpPicture", GFContextHelpfrm.ContextHelpPicture, SECONTROLTYPE_PICTUREBOX)
    Call SE_RegisterControl("GFContextHelpfrm.ContextHelpHeaderPicture", GFContextHelpfrm.ContextHelpHeaderPicture, SECONTROLTYPE_PICTUREBOX)
    '
    Call Skin_Preload
    Call SE_DisplayPalette(‑1, ‑1, True, True)
End Sub

Private Sub DefineContextHelp()
    'on error resume next
    Call GFContextHelpfrm.GFContextHelp_Initialize(App.Path + "\" + "ContextHelp.dat", "default")
    Call GFContextHelpfrm.ContextHelpHeader_Enable(18)
    Call GFContextHelpfrm.ContextHelpHeader_Refresh("GFComtextHelp (c)2001 by Louis.", RGB(255, 255, 255), "Arial", 8, False, False, False, False)
End Sub

Public Sub SE_ReceiveCallBackMessage(ByVal Msg As Integer, ByVal wParam As String, ByVal lParam As String, ByRef ReturnValueUsedFlag As Boolean, ByRef ReturnValue As Long)
    'on error resume next
    If Msg = SECBMSG_CONTEXTHELP_REQUESTED Then
        Call GFContextHelpfrm.ContextHelp_Show(wParam)
    End If
    If Msg = SECBMSG_CONTEXTHELP_EVENT Then
        MsgBox "Bill is a fool", vbOKOnly + vbInformation
    End If
End Sub

Private Sub ProgramCloseCommand_Click()
    'on error resume next
    Call Form_Unload(False)
End Sub

Private Sub SECommand1_Click()
    'on error resume next 'may not occur if context help is enabled
    Debug.Print "SE COMMAND 1 CLICK"
    Call GFContextHelpfrm.ContextHelp_Show("SECommand1", _
        (Testfrm.Left + SECommand1.Left + SECommand1.Width) / Screen.TwipsPerPixelX, _
        (Testfrm.Top + SECommand1.Top + SECommand1.Height) / Screen.TwipsPerPixelY)
End Sub

Private Sub SECommand1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'on error resume next 'may not occur if context help is enabled
    Debug.Print "SE COMMAND 1 MOUSE DOWN"
End Sub

Private Sub SECommand1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'on error resume next 'may not occur if context help is enabled
    Debug.Print "SE COMMAND 1 MOUSE UP"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'on error resume next
    Call SE_Terminate
    Call GFSubClass_Terminate
    Call GFKeyHook_Terminate
    Unload Me
End Sub


[END OF FILE]