Long seriesnumber = 1
Long DataCount , i , Color
String CategoryName
Long ll_EventIndex
DataCount = DataCount('gr_1', SeriesName('gr_1',seriesnumber))
For i = 1 To DataCount
CategoryName = CategoryName("gr_1",i)
Color = f_eventcolor(CategoryName)
SetDataStyle ( "gr_1",seriesnumber,i , Foreground! , Color )
Next