Einzelnen Beitrag anzeigen

Benutzerbild von memphis
memphis

Registriert seit: 4. Apr 2003
Ort: Innsbruck
89 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: kleine Frage zum Stringgrid

  Alt 22. Jul 2004, 15:25
hallo

das TStringgrid besitzt ein Event mit dem Namen OnDrawCell. Es wird immer dann ausgelöst, wenn eine Zeile gezeichnet wird. Ihm wird neben den Indexen (für Spalte und Zeile) auch der Bereich der Zelle in Form eines TRect's übergeben.

Folgendes Beispiel füllt die Zelle(1,1) rot.

Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol=1) AND (ARow=1) then
  begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.FillRect(Rect);
  end;
end;
Ich hoffe es hilft dir.

MfG
Luki
Lukas
Wenn du nicht mehr weiter weißt, zeichne dir 'nen Einheitskreis.
  Mit Zitat antworten Zitat