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

[Reinhard Kern]

Zitat von 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.
...

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 :gruebel: ?

Danke :zwinker:

Wahrscheinlich wird ein OnDraw ausgelöst, das den Effekt rückgängig macht, bevor man ihn sieht. Um solche Race-Bedingungen zu umgehen, mache ich alles, was Zeichnen angeht, innerhalb OnDrawCell, und benutze Variablen, um festzulegen, wie. In deinem Fall z.B. ClickedCol und ClickedRow, die können in der Form untergebracht werden oder in einer Ableitung des Grids oder sonstwo, wo sie in den Events sichtbar sind.

Delphi-Quellcode:

procedure TFrmMain.StrGrdSpielfeldMouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
  StrGrdSpielfeld.MouseToCell(X, Y, ClickedCol, ClickedRow); 
  { vielleicht Invalidate nötig }
end;

procedure TFrmMain.StrGrdSpielfeldMouseUp(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
  ClickedCol := -1;
  ClickedRow := -1; 
  { vielleicht Invalidate nötig }
end;

procedure TFrmMain.StrGrdSpielfeldDrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
var CellColor : TColor;
begin 
CellColor := clBtnFace;
if (ACol=ClickedCol) and (ARow=ClickedRow) then CellColor := clLime;
StrGrdSpielfeld.Canvas.Brush.Color := CellColor; 
StrGrdSpielfeld.Canvas.FillRect(Rect); 
end;

Gruss Reinhard