StringGrid DragMode Color

[PaddyVII]

Guten Mittag alle zusammen,

ich hätt da mal ne kleine frage: und zwar färbe ich mit

Delphi-Quellcode:

  if StringGrid.Cells[ACol, ARow] = 'O' then
  begin
    stringGrid.Canvas.Brush.Color := clSkyBlue;

Eine Zelle ein und schreibe ein 'O' Hinein(beim Click) (bzw. schreibe erst ein 'O' hinein und dann färbe ich die Zelle, dies geschieht an einer anderen stelle im code, is ja auch irrelevant;D). Wichtig ist, dass BEIDES passiert, sprich: ein 'O' geschrieben wird UND sich die zelle blau färbt! Das passt soweit auch

Jedoch nicht, wenn ich eine Zelle nehme und sie verschiebe (Drag) innerhalb des stringgrids. Dann werden alle Zellen (Innherhalb der verschiebung) hellblau, jedoch wird kein 'O' hineingeschrieben, was auch nicht die absicht ist- mein ansatz: DRAG MODUS AUSSCHALTEN

und schon steh ich vor dem Problem: Kann mir jemand sagen, wie ich diesen Drag mode INNERHALB der stringGrid und der Zellen ausschalten kann??


p.s: Hab schon alle möglichen einstellungen im Objektinspektor die was mit Drag zutunhatten Geändert/deaktiviert - erfolglos!!

Ich habe versucht, mein problem soo genau wie möglich zu umschreiben, tut mir leid wenns bisschen kompliziert klingt...

...kann mir jemand die lösung ERKLÄREN sprich nicht nur code schreiben??

Ich danke euch im Vorraus

LG

Paddy_VII

[PaddyVII]

okay, für die dies interessiert: wenn man eine Farbe vorher nicht initialisiert (in meinem Fall brauchte ich weiß)

stringgrid.Canvas.Brush.Color := clWhite; dann kommt Delphi etwas durcheinander und nimmt sich für alle Farbaktionen (bei mir der DragMode) einfach die letzte Farbe...

von demher, als tipp wer mit Canvas arbeitet sollte immer vorher seine farbe setzten (das klügste wäre natürlich weiß)...

[Jumpy]

Zitat von PaddyVII:

von demher, als tipp wer mit Canvas arbeitet sollte immer vorher seine farbe setzten (das klügste wäre natürlich weiß)...

Ich glaube in vielen On(Custom)Draw Methoden wird das sinngemäß eher so gemacht, das man sich die Farbe merkt:

Delphi-Quellcode:

var oldBrushColor:TColor;
begin
[...]
oldBrushColor:=stringgrid.Canvas.Brush.Color;
stringgrid.Canvas.Brush.Color :=  clSkyBlue;
//Mach was 
stringgrid.Canvas.Brush.Color:=oldBrushColor;
[...]
end;

[PaddyVII]

könnte klappen, nur muss man doch dann die initialisierung VOR der zuweisung machen oder??

[Sir Rufo]

Genau für dieses Szenario gibt es extra die Klassen TBrushRecall und TFontRecall.

Eine sinnvolle Ergänzung wäre es, wenn man sich noch ein Interface dafür bauen würde, dann käme man für die meisten mit nur einer Zeile Code aus. Ansonsten sieht das so aus:

Delphi-Quellcode:

procedure WorkWithCanvas( ACanvas : TCanvas );
var
  LBrushRecall : TBrushRecall;
begin
  LBrushRecall := TBrushRecall.Create( ACanvas.Brush );
  try

    ACanvas.Brush.Color := clRed;

  finally
    LBrushRecall.Free;
  end;
  // Jetzt ist ACanvas.Brush wieder wie vorher
end;

Mit einem Interface könnte das so aussehen

Delphi-Quellcode:

procedure WorkWithCanvas( ACanvas : TCanvas );
begin
  TBrushRecallFactory.Construct( ACanvas.Brush ); // erzeugt ein Interface

  ACanvas.Brush.Color := clRed;

end;
// nach dem Verlassen der Methode wird die Interface Referenz zerstört
// damit auch der Recall und damit der ACanvas.Brush wieder hergestellt :o)

[PaddyVII]

Ist das TBrushRecall denn für diesen "DraMode" innerhalb des grids dann verantwortlich?