Hallo Leuts,

hab mal wieder 'n problem mit 'n tStringGrid, aber erst mal der code für die onCellDraw Routine

zusammenfalten · markieren

Delphi-Quellcode:

begin
 with (sender as tStringGrid) do
 begin
  isSet := false; //Flag für Zeichenroutine
  if not (gdFixed in State) and (aRow > 0) and (aCol > 0) then
  begin
   if (aRow = 1) and (aCol = DayOf(dtpSelectDate.Date)) then //dtp = DateTimePicker
   begin
    canvas.Pen.Color := clRed;
    canvas.Pen.Width := 3;
    font.Color := clRed;
    font.Style := [fsBold];
    canvas.Rectangle(rect);
    DisplayText((sender as tStringGrid), (sender as tStringGrid).cells[acol, arow], taRightJustify);
    isSet := true;
   end;

   //hier soll noch mehr gezeichnet werden

   if not isSet then
   begin
    font.Color := clBlue;
    font.Style := [];
    brush.Color := clWindow;
    Canvas.FillRect(Rect);
    DisplayText((sender as tStringGrid), (sender as tStringGrid).cells[acol, arow], taRightJustify);
   end;
  end;
 end;
end;

dabei kommt es zu zwei merkwürdigkeiten...

a) das ganze grid, flattert im program... keine ahnung warum, sieht jedenfalls recht unschön aus...
b) es wird die falsche zelle fett dargestellt (hier: aCol+1)

weiss jemand, wie man die beiden probleme beseitigen könnt?

Herzlichen Dank
gg

hab die lösung gefunden... hier noch 'n link... Lösung aus DP