Schriftfarbe für bestimmte Zellen ändern im StringGrid

[RSE]

Hallo!

Neues Projekt, neue Probleme: Wenn ich folgende Prozedur benutze, dann ergibt das eine unendliche Schleife.

Code: Alles auswählen

procedure TFMain.StringGridDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
  if aRow mod 2 = 0 then
    StringGrid.Font.Color := clRed
  else
    StringGrid.Font.Color := clWindowText;
end;

Prinzipiell funktioniert das wie gedacht, aber offenbar merkt sich die LCL, dass Font.Color neu gesetzt wurde, und zeichnet nach dem Zeichnen immer wieder neu. Falls es sich dabei um ein bereits geändertes Verhalten handelt (benutze Version 0.9.25 vom 16.3.08), dann bitte ich um einen Hinweis darauf, dann hat sich die Sache natürlich erledigt. Ansonsten: Wie zeichnet man bestimmte Zellen (Zeilen) andersfarbig?

[Hitman]

Ansich sollte das die Color Property zwar selbst machen, aber als Workaround könntest Du ja einfach prüfen, ob die Farbe überhaupt geändert werden muss. (if StringGrid.Font.Color clRed then StringGrid.Font.Color := clRed; etc. pp)

[RSE]

Da ich ein paar bestimmte Zeilen in einer anderen Farbe darstellen will, muss Font.Color irgendwann gesetzt werden. Das blöde ist, dass beim Setzen von Font.Color Font.OnChange ausgelöst wird. Font.OnChange wird in TControl die Methode FontChanged zugewiesen. TWinControl.FontChanged ruft dann Invalidate auf, was zu einem kompletten Neuzeichnen führt. Theoretisch könnte ich also TStringGrid ableiten und FontChanged überschreiben. Dann müsste ich allerdings 1. die komplette Funktionalität dieser bereits vielfach überschriebenen Methode neu implementieren und 2. die Komponente zur Laufzeit erzeugen oder neu registrieren. Das will ich aber alles nicht, es muss auch einen einfacheren Weg geben.

[Hitman]

Naja gibt es ja auch - wie ich sagte: anstatt einfach blind die Farbe neu zu setzen, prüfst du vorher, ob sie überhaupt gesetzt werden muss. So wird nur noch höchstens ein Neuzeichnen ausgelöst.

Oder Plan B: Anstatt einem StringGrid nimmst du ein DrawGrid und zeichnest gleich jede Zelle selbst.

[RSE]

Du verstehst mich falsch, es wird nicht blos noch ein zusätzliches Neuzeichnen ausgelöst, sondern jedes weitere Neuzeichnen löst ja auch wieder ein Neuzeichnen aus, so dass eine unendliche Schleife entsteht!

Plan B wäre unter Umständen eine Lösung, muss ich mir mal anschauen. Wollt ja eigentlich bei diesem Projekt nicht so viel selbermachen...

[Hitman]

Ein "StringGrid" über ein DrawGrid zu realisieren, ist dank der Funktion DrawText (aus LCLIntf) eigentlich kein Problem. Doku zu der Funktion findest du im MSDN, da sie der entsprechenden WinAPI Funktion nachempfunden wurde. Für einfache Fälle reicht ggf. auch Canvas.TextOut.

[RSE]

Ja, scheint ganz vernünftig realisierbar zu sein, bin am Umbauen. Mal sehen was mich erwartet, ich melde mich in jedem Fall wieder

[RSE]

OK, Plan B wird umgesetzt Danke!

Andere Frage: Ich hab nicht die neueste Version (0.9.25 vom 16.3.08), und bei mir klappt das Zeichnen mit Canvas.TextRect auf den Fixed Cells nicht, wenn ich TitleStyle auf tsNative habe. Falls du eine aktuelle Version hast, wärst du so nett und würdest ausprobieren, ob das inzwischen behoben ist? Wenn nicht, dann werd ich einen Bugreport unter Angabe deiner aktuellen Version absetzen.

[Christian]

Du verstehst mich falsch, es wird nicht blos noch ein zusätzliches Neuzeichnen ausgelöst, sondern jedes weitere Neuzeichnen löst ja auch wieder ein Neuzeichnen aus, so dass eine unendliche Schleife entsteht!

nein du verstehst ihn falsch

Also:

Beim ersten durchlauf setzt du Color damit wird ein neuzeichnen ausgelöst.
Beim 2. Durchlauf prüfst du vor dem Setzen ob die farbe schon die richtige ist da dies so ist setzt du die Farbe nicht wieder und kein neuzeichnen wird mehr ausgelöst...

So:

Code: Alles auswählen

procedure TFMain.StringGridDrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
var
  NewColor : TColor;
begin
  if aRow mod 2 = 0 then
    NewColor := clRed
  else
    NewColor := clWindowText;
  if StringGrid.Font.Color <> NewColor then
    StringGrid.Font.Color := NewColor;
end;

[RSE]

Denkfehler!

StringGridDrawCell wird für jede Zelle aufgerufen. StringGrid.Font.Color gibt´s nur 1x für das ganze StringGrid. Wenn ich also in der ersten Zeile auf clWindowText schalte und in der 2. auf clRed zurückschalte, dann schalte ich beim 2. Neuzeichnen in der ersten Zeile ja doch wieder auf clWindowText zurück. Wahrscheinlich hast du Zeile 7 übersehen. Da also bei jedem Neuzeichnen StringGrid.Font.Color gesetzt wird, ergibt sich eine Endlosschleife.

Aber es ist jetzt sowieso egal, da ich das Problem umgangen habe. Ich benutze TDrawGrid statt TStringGrid.

[Christian]

In dem Fall ists tatsäclich sicher die ganze zelle selbst zu zeichnen und die Font.Color in ruhe zu lassen.

[RSE]

Andere Frage: Ich hab nicht die neueste Version (0.9.25 vom 16.3.08), und bei mir klappt das Zeichnen mit Canvas.TextRect auf den Fixed Cells nicht, wenn ich TitleStyle auf tsNative habe. ... werd ich einen Bugreport ... absetzen.

Ich hab inzwischen gemerkt, was es mit tsNative auf sich hat: Das ist kein Bug, sondern die Aktivierung der Eigenschaft Columns.

[af0815]

In der neuen ToolBox 5/2008 überflogen, da ist ein Artikel zu den Grids drinnen.

Bezüglich deines Problems mit den farbigen Zeilen, habe ich dort auch die Eigenschaft "alternatecolor " gefunden. Wir diese verwendet so wird jede 2. Zeile mit der Farbe gezeichnet.

[Christian]

Sieht man auch wenn man mal in den Objektinspector schaut

[RSE]

Das mit dem mod 2 war auch nur ein Test. Ich brauche ein paar bestimmte Zeilen andersfarbig und nicht jede 2. Inzwischen hab ich´s längst mit DrawGrid umgesetzt.