Stringgrid: bestimmte Zeile färben

[michaelarban]

Hallo Leute,

auf die Gefahr, dass ihr mich steinigt, weil ich eurer Meinung nach nicht gegoogelt habe; aber ich habe es gemacht, aber nichts passendes gefunden, obwohl mein Problem ziemlich simpel ist:

Ein User soll in einer Edit-Feld eine Zeilennummer (z.B: 4) eingeben, dann auf ein Button klicken und im Stringgrid wird die 4.Zeile rot markiert .

Zwar habe ich oft gelesen, dass es die Funktion "OnDrawCell" gibt, aber ich weiss nicht, wie ich sie aufrufen soll:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);

--> wie rufe ich diese Fubnktion auf? was kommt als Parameter Rect? was ist State?


danke

[haentschman]

Hallo...

Zitat:

wie rufe ich diese Fubnktion auf?

...die Funktion wird aufgerufen, wenn eine Zelle, warum auch immer, neu gezeichnet wird. Das Zeichnen kann man z.B. durch Repaint erzwingen.

Zitat:

was kommt als Parameter Rect?

...ist das Rechteck deiner Zelle als Koordinaten...falls du selbst drin rummalen möchtest.

Zitat:

was ist State?

gdSelected
Die Zelle ist aktuell ausgewählt.
gdFocused
Die Zelle hat den Eingabefokus.
gdFixed
Die Zelle befindet sich im fixierten Bereich des Gitters.
gdRowSelected
Die Zeile ist ausgewählt.
gdHotTrack
Die Zelle wird hervorgehoben, wenn der Mauszeiger darüber bewegt wird.
gdPressed
Auf die Zelle wird geklickt.
...aus der Delphi Hilfe

[michaelarban]

Hi,

danke für die antwort.


rufe ich innerhalb des ButtonClicks diese Funktion so auf?

procedure TForm1.btnFaerbeZeileClick(Sender: TObject);
begin

StringGrid1DrawCell(StringGrid1, 0,4, Rect: TRect; State: TGridDrawState);

end;

was schreibe ich für Rect ?

State: keines der von dir unten geschriebenen Zustände trifft zu, da der User die Zeil nicht vorher anklickt, sondern eine 4 in ein Edit-Feld einträgt.

[Luckie]

Benutze doch einfach mal die Suche.

[Hansa]

Hi,

Zitat von michaelarban:

Hallo Leute,

auf die Gefahr, dass ihr mich steinigt, weil ich eurer Meinung nach nicht gegoogelt habe;

Das ist Neudeutsch, aber das hier nicht :

Zitat von Luckie:

Benutze doch einfach mal die Suche.

[mkinzler]

Rect ist das Rechteck, dass neu gezeichnet werden soll.
Aber ich glaube du hast das System nicht verstanden. Diese Funktion musst nicht du aufrufen, sondern musst diese implementieren.
Sie wird dann ( für jede Zelle) aufgerufen.
In den Parametern werden dir dann die Werte der aktuellen ( zu zeichnenden) Zelle übergeben.

[s-off]

Schau Dir mal diese Unit an - da gibt es einige Beispiele; vielleicht kannst Du irgendetwas davon gebrauchen.

Hinweis zur Beispielanwendung: fast alle Funktionalitäten aus dem Kontextmenü lassen sich nur dann anwenden, wenn eine Zelle 'spezialisiert' worden ist (erster Menüpunkt).

[kanita]

Oder man nimmt gleich (Application.)MessageBox, die passt sich im Aussehen wenigstens der Windows-Version an und man kann auch da den Standard-Button setzen.

[Headbucket]

Um das niedergeschriebene mal mit einem simplen Beispiel zu belegen:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (ARow <> DrawCellIndex) then
    stringgrid1.Canvas.Brush.Color := clWhite
  else
    stringgrid1.Canvas.Brush.Color := clGreen;

  stringgrid1.Canvas.FillRect(Rect);
end;

Wird dein Button geklickt, dann wird in die Variable DrawCellIndex die betreffende Zeile geschrieben. Danach z.B. einfach "Refresh" des Stringgrids aufrufen.

Sollte eigentlich funktionieren.

Grüße
Headbucket