GFSkinEngine/TestToolsfrm.frm

VERSION 5.00
Begin VB.Form TestToolsfrm
   BorderStyle     =   0 'Kein
   Caption         =   "TestToolsfrm"
   ClientHeight    =   3195
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.CommandButton Command1
      Caption         =   "Close"
      Height          =   315
      Left            =   3000
      TabIndex        =   1
      Top             =   2820
      Width           =   1575
   End
   Begin VB.Label Label1
      Caption         =   "Label1"
      Height          =   195
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3015
   End
End
Attribute VB_Name = "TestToolsfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001 by Louis
Dim ContinueFlag As Boolean

Public Sub ShowTools()
    'on error resume next 'sample how to handle external palettes
    Call SE_LoadPalette(99, True)
    Call SECB_AddCallBackForm(Me)
    '
    'NOTE: ERROR: the back picture must be recreated or it will be wrong,
    'the reason for this error was not found yet, it happens if the
    'system palette is changed and the tool window is moved.
    'If then the palette of the tool window is reloaded then the back picture is
    'the one of the main form.
    '
    Me.Show
    Me.Refresh
    'enter waiting loop
    ContinueFlag = False 'reset
    Do
        DoEvents
    Loop Until (ContinueFlag = True)
    Me.Hide 'do NEVER unload a form that is skinned
    Me.Refresh
    Call SECB_RemoveCallBackForm(Me)
    Call SE_UnloadPalette(99)
End Sub

Public Sub SE_ReceiveCallBackMessage(ByVal Msg As IntegerByVal wParam As StringByVal lParam As StringByRef ReturnValueUsedFlag As BooleanByRef ReturnValue As Long)
    'on error resume next 'callback sub of the GFSkinEngine
    'nothing to do right here
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'on error resume next
    If Button = vbRightButton Then
        Call SE_OpenFormMenu("TestToolsfrm", TestToolsfrm)
    End If
End Sub

Private Sub Command1_Click()
    'on error resume next
    ContinueFlag = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    'on error resume next
    MsgBox "NO! NEVER UNLOAD A FORM USED BY THE SKIN ENGINE!", vbOKOnly + vbCritical
    Cancel = True
End Sub


[END OF FILE]