F
Hallo, ich habe eine DrawColumnCell Funktion, die mir bestimmte Zeilen mit einer anderen Farbe anmalen soll:
// EventList ******************************************************************
void __fastcall TfKalender::EventListDrawColumnCell(TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
// Zeilen vom aktuellen Tag gleich anmalen
TDateTime date1;
TDateTime date2(AnsiString(day) + "." + AnsiString(month) + "." + AnsiString(year), TDateTime::Date);
date1=dsKalender->DataSet->FieldByName("DATUM0")->AsDateTime;
if (date2==date1) {
EventList->Canvas->Brush->Color = clGradientActiveCaption;
}
EventList->Canvas->FillRect(Rect);
EventList->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}
Die Markierungen sind auch richtig programmiert, aber leider muss man das Programmfenster erst minimieren und wieder maximieren um die Änderungen zu sehen (es scheint wohl ein repaint oder so zu fehlen). hat jemand eine idee?