StringGrid DrawCell Werte sind unsichtbar

[peter314]

Danke!
Das mit Invalidate funktioniert. Die Dinge können so einfach sein, nun gut.
Aber jetzt ist ein älteres Problem wieder aufgetaucht.

Das zurzeit ausgewählte StringGrid Cell wird jetzt ohne Text angezeigt (s. Anhang -> Mittwoch 2.Stunde).
Ich verstehe nicht wie das passieren kann, da ja das gesamte Stringgrid neu gezeichnet wird, sonst kommt es ja auch nicht zu Problemen.

Und das ist mir irgendwie nicht ganz klar

Zitat:

Das if Cells[ACol,ARow]= FrList1.Liste.Selected.Caption kann übrigens
nach hinten losgehen, wenn es mehrere gleiche Fächer im Grid gibt.

Ich möchte ja alle Zellen die den Namen des Faches enthalten einfärben. So wie es im Anhang auch der Fall ist.

[Bummi]

Setze mal die Fontcolor statt clBlack auf $010101, dann invertiert Windows die Textfarbe der selektierten Zelle nicht mehr.

[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