#Include "windows.bi"
#Include "win/shellapi.bi"
#Include "XXControls.bi"

Declare Function WinMain( As DWORD, As DWORD, As DWORD, As DWORD) As DWORD
Declare Function DlgProc( hWnd As HWND,iMsg As DWORD,wParam As WPARAM, lParam As LPARAM) As Integer
Declare Sub DeleteBitmap()

Dim Shared As String ClassName,AppName,DlgName,email_chib,wave_hover
ClassName = "SimpleWinClass"
AppName = "Our Main Window"
DlgName = "MyDialog"
email_chib = "mailto:XXControls@bk.ru"
wave_hover = "IDW_HOVER"

Dim Shared lgFnt As LOGFONTA  = Type(-13, 7, 0, 0, FW_LIGHT, 0, 0, 0, ANSI_CHARSET, OUT_RASTER_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, FF_MODERN, "Courier New")
Dim Shared lgFntFocus As LOGFONTA = Type(-13, 7, 0, 0, FW_BOLD, 0, TRUE, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, FF_MODERN, "Courier New")

Dim Shared hInstance As	HINSTANCE	
Dim Shared CommandLine as	LPSTR	
Dim Shared iccex	 As   InitCommonControlsEx
Dim Shared hFnt    As    HFONT 
Dim Shared hFntFocus  As HFONT 
Dim Shared As HBITMAP hBmpNoiseNormal,hBmpNoiseHover,_
hBmpSoftBumpNormal,hBmpSoftBumpHover,hBmpVBumpNormal,_
hBmpVBumpHover,hBmpHBumpNormal,hBmpHBumpHover,_
hBmpHShadeNormal,hBmpHShadeHover,hBmpVShadeNormal,_
hBmpVShadeHover ,hBmpDShadeNormal,hBmpDShadeHover,_
hBmpHardBumpNormal,hBmpHardBumpHover,hBmpMetalNormal,hBmpMetalHover

Enum ButtonXXCONT
IDC_EXIT = 3000
IDC_ABOUT	
IDC_BUTTONLEFT
IDC_BUTTONRIGHT
IDC_BUTTONTOP
IDC_SLEFT
IDC_SRIGHT
IDC_TEXT
IDC_DISABLED
IDC_FLATDISABLED
IDC_LAMP
IDC_LAMP2
IDC_NTEXT
IDC_LINK
IDC_NOISE
IDC_SOFTBUMP
IDC_VBUMP
IDC_HBUMP
IDC_HSHADE
IDC_VSHADE
IDC_DIAGSHADE
IDC_HARDBUMP
IDC_METAL
IDC_USERBMP
'-----------'
IDB_BITMAP = 100
IDI_CANSEL = 125
IDI_OK
'IDI_EXIT    equ 127
IDI_ABOUT = 128
IDI_LEFT
IDI_RIGHT
IDI_LAMP1
IDI_LAMP2
IDW_HOVER = 200
ID_CUR1 = 800	
End Enum
