Färben von einer Zelle nicht mit Event von Zelle möglich

**draxo**

Hallo,

ich stehe vor folgendem Problem. Durch einen Klick auf eine Stringgrid-Zelle soll diese oder auch eine andere (aber immer nur eine) eingefäbt werden. Das ganze soll so sein, dass es beim OnMouseDown-Event passiert. Bei OnMouseUp soll die Farbe wieder weg sein.

Ich habe sowieso ein OnDrawCell-Event für das Stringgrid, was wie folgt aussieht:

markieren

Delphi-Quellcode:

			procedure TFrmMain.StrGrdSpielfeldDrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

begin

  if ((ACol=0) and (ARow=1)) or ((ACol=7) and (ARow=0))  then

  begin

    StrGrdSpielfeld.Canvas.Brush.Color := clBtnFace;

    StrGrdSpielfeld.Canvas.FillRect(Rect);

  end;

end;

Dann habe ich mir gedacht, dass das OnMouseDown-Event so aussehen müsste:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFrmMain.StrGrdSpielfeldMouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var

  col,row,dest_col,dest_row : Integer;

  tmpZelle : String;

  Markierung: TRect;

begin

  //Umwandeln der Koordinaten in col und row

  StrGrdSpielfeld.MouseToCell(X, Y, col, row);

   //Ausgabebereich wählen!

  Markierung := StrGrdSpielfeld.CellRect(col,row);

  //Markierung auf Zelle setzen

  StrGrdSpielfeld.Canvas.Brush.Color := clLime;

  StrGrdSpielfeld.Canvas.FillRect(Markierung);

end;

Und das OnMouseUpEvent nur mit dem Inhalt

StrGrdSpielFeld.Repaint; Leider funktioniert das nicht. Wenn ich allerdings col und row festlege und diese nicht der angeklickten Zelle entsprechen funktioniert es. Col und Row werden aber richtig ermittelt.

Das Problem scheint also dort zu liegen wenn man eine angeklickte Zelle beim OnMouseDown-Event einfärben möchte, hat da jemand villeicht einen Tip

?

Danke

Färben von einer Zelle nicht mit Event von Zelle möglich

Färben von einer Zelle nicht mit Event von Zelle möglich

Forumregeln