在OnGetNextAxisLabel事件中
if ( Sender = DBChart1.BottomAxis ) then
begin
l_date:=StrToDate(labelText);
if (DayOfWeek(l_date)=1) or (DayOfWeek(l_date)=7) then
DBChart1.BottomAxis.LabelsFont.Color:=clRed
else
DBChart1.BottomAxis.LabelsFont.Color:=clBlack;
end