Flatterhaftes tStringGrid

[grenzgaenger]

Hallo Leuts,

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

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... :gruebel:

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

[grenzgaenger]

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