DefInt A-Z
'
' Window API Function Declarations
'
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As Integer, ByVal FileName As String)
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize, ByVal FileName As String)
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String)


Global Const True = -1
Global Const False = Not True

Global Const TimeDefault = 1
Global Const DateDefault = 1
Global Const MonthDefault = 1
Global Const DayDefault = 1
Global Const YearDefault = 1
Global Const DayNameDefault = 1
Global Const SepDefault = 1
Global Const SecondsDefault = 0
Global Const TitleDefault = "Click The Date"
Global Const TopDefault = 5625
Global Const LeftDefault = 360
Global Const BGDefault = 13
Global Const FGDefault = 0

Global PrefTime As Integer
Global PrefDate As Integer
Global PrefMonth As Integer
Global PrefDay As Integer
Global PrefYear As Integer
Global PrefDayName As Integer
Global PrefSeparator As Integer
Global PrefSeconds As Integer
Global PrefTitle As String * 15
Global PrefTop As Integer
Global PrefLeft As Integer
Global PrefFG As Single
Global PrefBG As Single
Global CurrGround As Integer
Global TempFG As Integer
Global TempBG As Integer
'
' INI file KeyNames
'
Global Const APP_NAME = "Clock"
Global Const INI_Time = "Time"
Global Const INI_Date = "Date"
Global Const INI_Month = "Month"
Global Const INI_DayName = "Dayname"
Global Const INI_Day = "Day"
Global Const INI_Year = "Year"
Global Const INI_Seconds = "Seconds"
Global Const INI_Separator = "Separator"
Global Const INI_Title = "Title"
Global Const INI_FILENAME = "Clock.INI"
Global Const INI_Top = "Top"
Global Const INI_Left = "Left"
Global Const INI_Fore = "Fore"
Global Const INI_Back = "Back"