StringGrid DrawCell Werte sind unsichtbar

[peter314]

Mmmh,
Danke Bummi aber Font.Color auf $010101 zu setzen hat leider nichts geändert.

Ich habs jetzt über einen Umweg gelöst, indem ich eine der farblich hinterlegten Zellen als Selection festgelegt habe.

Aber ich würde schon gerne den direkten Weg kennen lernen.

[peter314]

Endlich!!

Ich suche jetzt in DrawCell nach der selektierten Zelle und weise ihr die Hintergrundfarbe zu.
Außerdem setzte ich Font.Color bereits beim Übermalen der Zelle dadurch bleibt die Farbe auch wie sie sein soll. Anscheinend muss man die Farbe schon früher setzen, damit sie korrekt ist.
Hier mein Code.

Delphi-Quellcode:

procedure TForm1.StundenplanDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
s: string;
begin
 with Sender as TStringGrid do begin
  if FrList1.Liste.ItemIndex>-1 then begin
   if Cells[ACol,ARow]= FrList1.Liste.Selected.Caption then begin
    Canvas.Pen.Color:= clwhite;
    Canvas.Brush.Color:= clHighlight;
    Canvas.FillRect(Rect);
   end else begin
    if (ACol=0) or (ARow=0) then begin
      Canvas.Pen.Color:=clblack;
      Canvas.Brush.Color:= StundenPlan.FixedColor;
    end else begin
     if (state= [gdSelected]) or ((ACol=Selection.Left) and (ARow=Selection.Top)) then begin
      Canvas.Brush.Color:= clwhite;
     end else
      Canvas.Pen.Color:=clwhite;
     Canvas.Font.Color:= clBlack;     //Schriftfarbe auch für die Selektierte Zelle
     Canvas.FillRect(Rect);
    end;
   end;
  end else begin
   if (ACol=0) or (ARow=0) then begin
    Canvas.Pen.Color:=clblack;
    Canvas.Brush.Color:= StundenPlan.FixedColor;
   end else begin
    if (state= [gdSelected]) or ((ACol=Selection.Left) and (ARow=Selection.Top)) then
     Canvas.Brush.Color:= clHighlight
    else
     Canvas.Brush.Color:= clwhite;
    Canvas.Pen.Color:=clwhite;
    Canvas.FillRect(Rect);
   end;
  end;
   Font.Color:= $010101;    //--> Diese Farbe wird nicht für die selektierte Zelle verwendet
   s:= Cells[ACol,ARow];
   DrawText(Canvas.Handle,PChar(s),length(s),Rect,DT_Left);
  end;
end;

Vielen Dank nochmal an euch alle.

Mfg

Peter