2021-03-15 11:19:21 +01:00
|
|
|
; setbgcol.pb
|
|
|
|
|
; ------------------------------------------------------------
|
|
|
|
|
; changes windows background colour
|
|
|
|
|
; LICENSE : GPL
|
|
|
|
|
; AUTHOR : Michael H.G. Schmidt
|
|
|
|
|
; EMAIL : michael@schmidt2.de
|
2021-03-16 23:23:06 +01:00
|
|
|
; DATE : 20210315
|
2021-03-15 11:19:21 +01:00
|
|
|
; ------------------------------------------------------------
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
OpenConsole()
|
|
|
|
|
EnableGraphicalConsole(0)
|
|
|
|
|
|
|
|
|
|
; check commandline...
|
|
|
|
|
If ( CountProgramParameters() = 0 Or CountProgramParameters() >4 )
|
|
|
|
|
PrintN("")
|
|
|
|
|
PrintN("usage: setbgcol <R> <G> <B>")
|
|
|
|
|
PrintN(" sets windows background colour")
|
|
|
|
|
End 99
|
|
|
|
|
EndIf
|
|
|
|
|
|
|
|
|
|
;
|
|
|
|
|
; MAIN
|
2021-02-27 13:46:03 +01:00
|
|
|
;
|
|
|
|
|
|
|
|
|
|
Dim lpaElements(0)
|
|
|
|
|
Dim lpaRgbValues(0)
|
|
|
|
|
|
2021-03-15 11:19:21 +01:00
|
|
|
R$ = ProgramParameter(0)
|
|
|
|
|
G$ = ProgramParameter(1)
|
|
|
|
|
B$ = ProgramParameter(2)
|
|
|
|
|
|
|
|
|
|
PrintN("R=" + R$ + ", G=" + G$ + ", B=" + B$)
|
|
|
|
|
|
2021-02-27 13:46:03 +01:00
|
|
|
lpaElements(0) = #COLOR_BACKGROUND
|
2021-03-15 11:19:21 +01:00
|
|
|
lpaRgbValues(0) = RGB(Val(R$),Val(G$),Val(B$))
|
2021-02-27 13:46:03 +01:00
|
|
|
|
|
|
|
|
SetSysColors_(1,@lpaElements(),@lpaRgbValues(0))
|
|
|
|
|
|
2021-03-15 11:19:21 +01:00
|
|
|
CloseConsole()
|
|
|
|
|
|
|
|
|
|
; IDE Options = PureBasic 5.73 LTS (Windows - x64)
|
2021-03-16 23:23:06 +01:00
|
|
|
; CursorPosition = 6
|
2021-02-27 13:46:03 +01:00
|
|
|
; EnableXP
|
