Stringgrind und (mal wieder) die Frage nach der Farbe......

[WIng2005]

Hallo Gemeinde,

habe mich mal hier ein wenig belesen und komme nun doch nicht weiter.
Ich möchte ein StringGrid mit verschieden farbigen Spalten darstellen.
Hierzu habe ich bereits:

Delphi-Quellcode:

Procedure STGRPFPL2_UE1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
Var x:integer;
  Begin
  mainform.STGRPFPL2_UE_1.Canvas.Brush.Color := clmoneygreen;
  if (ACol=0) and (ARow >0) then
  mainform.STGRPFPL2_UE_1.Canvas.FillRect(Rect);

  mainform.STGRPFPL2_UE_1.Canvas.Brush.Color := clwhite;
  if (ACol=0) and (ARow =0) then
   mainform.STGRPFPL2_UE_1.Canvas.FillRect(Rect);

  end;

eingefügt. Dieser Event sollte doch nun aufgerufen werden, sobald das Grid gezeichnet wird.
Funktioniert auch soweit ganz gut, jedoch ist mein mit

Delphi-Quellcode:

Procedure PFPL_Uebersicht_Main;
var x:integer;
Begin
With mainform do
Begin
.
.
.
Select_1('TeileNr','bis_fpl_ma');
      STGRPFPL2_UE_1.RowCount:=Zquery1.RecordCount+2;
      x:=2;
      While not Zquery1.Eof do
      Begin
        STGRPFPL2_UE_1.Canvas.Brush.Color:=clWindowText;
        STGRPFPL2_UE_1.Cells[0,x]:=ZQuery1.fieldbyname('teilenr').AsString;
        x:=x+1;
        ZQuery1.next;
      end;
.
.
.
end;

eingefügter Text auf wundersame Weise verschwunden. Ohne "Farbzusatz" geht alles. Wo könnte
hier meine Denkfehler liegen?

MFG
Steffen

[DeddyH]

Da Du das Grid komplett selbst zeichnest, musst Du auch den Text selbst zeichnen

[WIng2005]

Also, dass ging mir jetzt zu schnell....
Ich schreibe doch den Text Zelle für Zelle selbst rein.....wo soll das Problem liegen?

MFG
Steffen

[Klaus01]

Du überschreibst Deinen Text mit der Farbe (fillRect).

Grüße
Klaus

[DeddyH]

Versuch es mal so (Beispiel):

Delphi-Quellcode:

procedure TForm1.STGRPFPL2_UE1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
const Farben: array[Boolean] of TColor = (clmoneygreen,clwhite);
Begin
  STGRPFPL2_UE1.Canvas.Brush.Color := Farben[(ACol=0) and (ARow >0)];
  STGRPFPL2_UE1.Canvas.FillRect(Rect);
  DrawText(STGRPFPL2_UE1.Canvas.Handle,PChar(STGRPFPL2_UE1.Cells[ACol,ARow]),
           -1, Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;

[WIng2005]

Hallo und schonmal danke für die Infos...
Wenn man einfach mal davon ausgeht, dass das Grid schon gefüllt ist,
sollte es doch eine Möglichkeit geben, im nachhinein die Background-Farbe
zu veränder, oder sehe ich das falsch..?

@DeddyH: Dein Beispiel muss ich mir morgen mal genauer anschauen, derzeit (ist ja auch schon spät )
verstehe ich nicht viel davon....

MFG
Steffen

[Reinhard Kern]

Zitat von WIng2005:

Hallo und schonmal danke für die Infos...
Wenn man einfach mal davon ausgeht, dass das Grid schon gefüllt ist,
sollte es doch eine Möglichkeit geben, im nachhinein die Background-Farbe
zu veränder, oder sehe ich das falsch..?
...
MFG
Steffen

Hallo Steffen,

im Prinzip geht das schon (Bitblt-Operationen), aber es ist komplizierter als das Neuzeichnen von Hintergrund und Text. Ausserdem muss der Hintergrund garkeine Farbe sein, es kann sich auch um ein Muster handeln. Wenn z.B. der Text schwarz und der Hintergrund gedithert grau ist, kannst du bei bestimmten Pixeln nicht unterscheiden, ob sie zum Text oder zum Hintergrundmuster gehören.

Gruss Reinhard

[WIng2005]

@DeddyH: Funzt, danke!! Einzig das Array ist nicht geeignet, da ich mit mehr Farben arbeite.
Verstehe ich das richtig, dass er den Text der Zelle nimmt und nocheinmal zeichnet?
Ein wenig umständlich, oder?

MFG
Steffen

[hoika]

Hallo,

OnDrawCell wird von Windows (über den Umweg der VCL)
aufgerufen, wenn neu gezeichnet werden soll.

Im "normalen" StringGrid gibt es eine eingebaute OnDrawCell,
die ähnlich aussieht wie deine eigene.

Es wird also nicht doppelt gezeichnet.

Das Grid.Cells[]:= 'bla'

hat mit dem Zeichnen nichts zu tun.


Heiko

[DeddyH]

Naja, siehe #7. Wenn Du den Zellhintergrund mit Farbe übermalst, musst Du halt dafür sorgen, dass die Texte wieder sichtbar werden, da ist das so der einfachste Weg. Und das mit den mehreren Farben konnte ich Deinem Posting nicht entnehmen, Du kannst es ja ändern. Ich wollte lediglich einen Weg aufzeigen, wie man es elegant machen kann.