Fontfarbe in TStringgrid ändern ;-)

[scrat1979]

Schau dir mal von Bergsoff Das NextGrid an. Ist einfach der Hammer und beherrscht das was du möchtest... Der Umstieg lohnt sich in jedem Fall und die Bedienung ist super simple!

[Jasocul]

Gestern hatte ich leider keine Zeit mehr, um mir das Problem nochmal genauer anzusehen.

Soweit ich mich erinnern kann, musst du dich immer um das Zeichnen jeder Zelle kümmern. Also nicht nur bei denen, die du anders darstellen willst.
Ich kann es hier im Moment nicht testen (gerade kein Delphi verfügbar), aber wenn du den Source in etwa so änderst, sollte es besser funktionieren:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
 State: TGridDrawState);
var
  grdCanv : TCanvas; // Dadurch kürze Schreibweise ohne das "WITH"
  OldColor : TColor;
begin
  grdCanv := StringGrid1.Canvas;
  OldColor := grdCanv.Font.Color;
  if (ACol=4) and (ARow>0) then begin
    grdCanv.Font.Color:=clred;
  end;
  grdCanv.FillRect(Rect);
  grdCanv.Textout(Rect.Left+2,Rect.Top+2, StringGrid1.Cells[ACol,ARow]);
  // Statt Textout ist vielleicht TextRect die bessere Wahl
  grdCanv.Font.Color := OldColor;
end;

Auch wenn das "with" hier nicht das Problem ist, solltest du es vermeiden. Es verursacht immer wieder mal Probleme.

[Uwe Raabe]

Zitat von Jasocul:

Soweit ich mich erinnern kann, musst du dich immer um das Zeichnen jeder Zelle kümmern. Also nicht nur bei denen, die du anders darstellen willst.

Um das etwas zu präzisieren: Das wird über das Property DefaultDrawing gesteuert. Ist das true, malt das StringGrid vor dem Event schon mal den Text in die Zelle. Das ist der Übermalen-Effekt, den du schon bemerkt hast. Wenn DefaultDrawing auf False steht, musst du aber eben auch alle Zellen selbst malen. Dabei solltest du allerdings den Inhalt des State-Parameters berücksichtigen.

Weiterhin gibt es zu bedenken, daß ein aktiver Editor in einer Zelle selbst das Malen übernimmt. Da du goAlwaysShowEditor aktiv hast, bleibt der InplaceEditor sichtbar (und auch für die Textdarstellung zuständig) wenn du das Grid verlässt.

[bcvs]

Wie Uwe schon gesagt hat, malt der Inplace-Editor den Text neu, wenn das Grid den Focus verliert. Dabei kannst du die Textfarbe nicht beeinflussen. Das OnDrawCell des Grid ist hier nicht mehr zuständig.

Im OnExit den Text neu zu malen ist auch keine Option, denn das kommt zu früh. Der Inplace-Editor malt später nochmal drüber.

Man muss also eine Möglichkeit finden, den Text verzögert zu malen, nachdem der Inplace-Editor fertig ist.

Deshalb meine Lösung mit einem Timer:

Nimm einem Timer, setze Enabled auf false und Interval auf 10.

Im OnExit des Grid setzt du nur Timer.enabled:=true; Der Timer-Event sieht dann so aus:

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender: TObject);
var Rect: TRect;
begin
  if (StringGrid1.Col=4) and (StringGrid1.Row>0) then begin
    Rect:=StringGrid1.CellRect(StringGrid1.Col, StringGrid1.Row);
    StringGrid1.Canvas.Font.Color:=clred;
    StringGrid1.Canvas.FillRect(Rect);
    StringGrid1.Canvas.Textout(Rect.Left+2,Rect.Top+2, StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]);
    Timer.Enabled:=false;
  end;
end;

Nicht besonders schön, funktioniert aber.

[Uwe Raabe]

Zitat von bcvs:

Man muss also eine Möglichkeit finden, den Text verzögert zu malen, nachdem der Inplace-Editor fertig ist.

... oder man nimmt das goAlwaysShowEditor weg.

[Roadrunner.1]

Hallo Zusammen,

erst einmal danke für die inspirierenden Antworten. Also über einen Timer zeitversetzt das Stringgrid zu
übermahlen ist schon ein toller Hack, aber mit Sicherheit nicht im Sinne des Erfinders.

Danke an Uwe, das mit dem "DefaultDrawing" kannte ich so nicht, und verstand ich auch nicht anhand der Online Hilfe so.
Nach Abschalten eben dieses, und alles selber Zeichnen, funktioniert das jetzt fast schon so wie ich es mir vorstellte.
Insbesondere funktioniert jetzt auch das Umschalten von "goAlwaysShowEditor" bei Enter/Exit vom Stringgrid jetzt vernünftig.

Eine Sache hätte ich aber noch, vielleicht gibt es dafür auch eine einfach Lösung. Wenn im Stringgrid der Fokus auf einer "roten"
Zellen steht, und man nun mit TAB die Komponenten durchgeht und wieder zum Stringgrid zurück kommt, dann wird die Zelle schwarz
dargestellt. OK das dürfte wieder der InplaceEditor sein der durch einschalten von "goAlwaysShowEditor" wieder die Zelle malt.
(DrawCell wird genau für diese Zelle nämlich auch nicht aufgerufen).
Aber entgegen dem Navigieren innerhalb des Stringgrids ist der Inhalt der Zelle nicht ausgewählt. Kann man den Auswählen?
Ich hatte es schon mit "InplaceEditor.SelectAll;" probiert (in OnEnter und auch onDrawCell), aber da passiert nichts.

Also als Ergebnis das was man im 3. Bild (EinmalHochRunter) sieht wenn das Stringgrid den Fokus bekommt.