'*********************************************************************
'*                                                                   *
'*         Module Name:TLBOX.BAS                                     *
'*                                                                   *
'*             Created:10/16/94      By: Jason R.Noble               *
'*            Modified:              By:                             *
'*                                                                   *
'*            Comments: This is the best way to create mini title    *
'*                      bars without a custom control or extensive   *
'*                      API calls. Follow it through and you will    *
'*                      see it happen.                               *
'*********************************************************************

'*********************************************************************

''*************** This section is for "ini" file access.'*************
'
   Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, lpKeyName As Any, lpString As Any, ByVal lplFileName As String) As Integer
   Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
   Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
'
'*********************************************************************

'************************Change the INI Details Here!*************
'
   Global Const INIFILENAME = "C:\WINDOWS\TlBox.INI"
   Global Const SECTION = "Custom Title Bar"
'
'*****************************************************************

Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
Global Const WINDOW_FRAME = &H80000006          ' Window frame.
Global Const MENU_TEXT = &H80000007             ' Text in menus.
Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.

Dim Focus As Integer

   Type POINTAPI         ' Used for GetCursor - gets mouse location
      X As Integer       ' in screen coordinates.
      Y As Integer
   End Type

   Type ConvertPOINTAPI  ' Used by WM_SYSCOMMAND - converts mouse location.
      xy As Long
   End Type


Declare Function Sendmessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Any) As Long
Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)


   Global Const WM_LBUTTONUP = &H202
   Global Const WM_SYSCOMMAND = &H112
   Global Const MOUSE_MOVE = &HF012

       Global Const KEY_sPACE = &H20