CalScheme

const CalScheme: TOvcCalSchemeArray = ((0, 0, 0, 0, 0, 0), (clHighlight, clWindow, clWindow, clWindow, clWindow, clWindow), (clRed, clMaroon, clBlack, clGray, clBlue, clRed), (clBlack, clBlack, clYellow, clGray, clBlack, clTeal), (clBlack, clBlack, clAqua, clGray, clBlack, clNavy), (clRed, clRed, clFuchsia, clGray, clBlue, clTeal));