Code archives/Graphics/Windows Colors
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| This will return all the colors in the Windows settings file, (titlebar color, button color, etc.) This is useful for making your GUI match someone else's colors they set in Windows. I'm not 100% sure this works on all computers, but it should at least work on Windows95 and 98. Just include this file in your source and then use the command for the item to get it's color. It returns an integer color, so make sure you convert it to RGB, (you can use the GetRedColor(),GetGreenColor() and GetBlueColor() functions included with this if you need). If you know that the win.ini file is not under the Windows directory you can set it yourself with the SetWindowsIni() command. | |||||
;WinSettings v1.0
Type iniData
Field dat$
End Type
Type iniHeader
Field dat$,dc
Field xdata.iniData[4096]
End Type
Type iniFile
Field file$,index,xhead.iniHeader[1024]
Field fhnd,hnum,dnum,head
End Type
Global iniNum
Dim xini.iniFile(1024)
Global windowsIniFile$
SetWindowsIni("")
Function OpenIni(file$)
ftype=FileType(file$)
If ftype=1
ininum=ininum+1
xini(ininum)=New iniFile
xini(ininum)\file$=file$
xini(ininum)\index=ininum
xini(ininum)\fhnd=OpenFile(file$)
FillIni(ininum)
Return ininum
Else
Return False
EndIf
End Function
Function CloseIni(index)
For hn=1 To xini(index)\hnum
For dn=1 To xini(index)\xhead[hn]\dc
Delete xini(index)\xhead[hn]\xdata[dn]
Next
Delete xini(index)\xhead[hn]
Next
Delete xini(index)
iniNum=iniNum-1
End Function
Function FillIni(index)
If index <= ininum
SeekFile xini(index)\fhnd,0
Repeat
If Eof(xini(index)\fhnd) Then Exit
xl$=ReadLine$(xini(index)\fhnd)
xl$=Trim(xl$)
If Instr(xl$,";")
xl$=Left(xl$,Instr(xl$,";")-1)
EndIf
If xl$ <> ""
If Left(xl$,1)="[" And Right(xl$,1)="]"
xini(index)\hnum=xini(index)\hnum+1
hnum=xini(index)\hnum
xini(index)\xhead[hnum]=New iniHeader
xini(index)\xhead[hnum]\dat$=xl$
dnum=0
Else
xini(index)\dnum=xini(index)\dnum+1
xini(index)\xhead[hnum]\dc=xini(index)\xhead[hnum]\dc+1
dnum=dnum+1
xini(index)\xhead[hnum]\xdata[dnum]=New iniData
xini(index)\xhead[hnum]\xdata[dnum]\dat$=xl$
EndIf
EndIf
Forever
hnum=0
Return True
Else
Return False
EndIf
CloseFile xini(index)\fhnd
End Function
Function GotoHeader(index,header$)
If index <= ininum
If Left$(header$,1)<>"[" Then header$="["+header$
If Right$(header$,1)<>"]" Then header$=header$+"]"
hnum=xini(index)\hnum
For hn=1 To hnum
If xini(index)\xhead[hn]\dat$=header$
xini(index)\head=hn
Return True
EndIf
Next
Else
Return False
EndIf
End Function
Function ReadData$(index,off,estr=0)
If index <= ininum
head=xini(index)\head
dat$=xini(index)\xhead[head]\xdata[off+1]\dat$
Select estr
Case 0
dat$=Right(dat$,Len(dat$)-Instr(dat$,"="))
dat$=Replace$(dat$,Chr$(43),"")
dat$=Replace$(dat$,"True","1")
dat$=Replace$(dat$,"False","0")
Return dat$
Case 1
dat$=Replace$(dat$,Chr$(43),"")
Return dat$
End Select
Else
Return False
EndIf
End Function
Function SetWindowsIni(file$)
If FileType(file$)=1
windowsIniFile$=file$
Else
windowsIniFile$=SystemProperty("windowsdir")+"win.ini"
EndIf
End Function
Function GetRedColor(col)
Return (col Shr 16) And $ff
End Function
Function GetGreenColor(col)
Return (col Shr 8) And $ff
End Function
Function GetBlueColor(col)
Return col And $ff
End Function
Function WindowsScrollbarColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,0))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsBackgroundColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,1))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsActiveTitleColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,2))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsInactiveTitleColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,3))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsMenuColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,4))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsWindowColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,5))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsWindowFrameColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,6))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsMenuTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,7))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsWindowTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,8))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsTitleTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,9))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsActiveBorderColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,10))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsInactiveBorderColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,11))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsAppWorkspaceColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,12))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsHighlightColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,13))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsHighlightTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,14))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonFaceColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,15))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonShadowColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,16))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsGrayTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,17))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,18))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsInactiveTitleTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,19))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonHighlightColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,20))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonDarkShadowColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,21))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonLightColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,22))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsInfoTextColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,23))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsInfoWindowColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,24))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsButtonAlternateFaceColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,25))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsHotTrackingColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,26))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsGradientActiveTitleColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,27))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function
Function WindowsGradientInactiveTitleColor()
winIni=OpenIni(windowsIniFile$)
GotoHeader(winIni,"colors")
col$=Trim(ReadData$(winIni,28))
If Instr(col$," ")
red=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
If Instr(col$," ")
grn=Left(col$,Instr(col$," ")-1)
col$=Right(col$,Len(col$)-Instr(col$," "))
EndIf
blu=col$
CloseIni winIni
Return ((red Shl 16)+(grn Shl 8)+blu)
End Function |
Comments
None.
Code Archives Forum
   |