Hallo Delphi-Praxis-Community,
ich habe ein Problem mit dem TDrawgrid:

Ich möchte beim gedrückt halten der linken Maustaste die Zelle, auf der sich der Mauszeiger befindet im Drawgrid, mit einer zuvor ausgewählten Grafik bemalen.

Dazu habe ich in der Drawcell Procedure folgendes geschrieben:

markieren

Delphi-Quellcode:

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


Rect := Mapdrawgrid.CellRect(ACol, ARow);
        Mapdrawgrid.Canvas.Draw(Rect.left, rect.top, AuswahlGrafik);

end;

Das funktioniert soweit auch schon ganz gut, aber so kann man nur Flächen bemalen und nicht wirklich Frei-Hand und es gibt ein Problem, dass immer noch das letzte Feld ausgewählt bleibt.

Also habe ich mir gedacht ich wähle einfach nur jeweils die Zelle aus, auf der ich sowieso gerade bin.
Also schreibe ich auch in der DrawCell procedure:

markieren

Delphi-Quellcode:

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


Rect := Mapdrawgrid.CellRect(ACol, ARow);
        Mapdrawgrid.Canvas.Draw(Rect.left, rect.top, AuswahlGrafik);
  
Mapdrawgrid.Selection := TGridRect(Rect);

end;

Wenn ich das nun aber mache, flimmert das ganze Feld und ich kann nichts mehr anklicken.

Da das nicht funktioniert hat, wollte ich einfach ein Feld außerhalb des Drawgrids selektieren, sodass jedes mal nur das Feld bemalt wird, auf dem die Maus gerade ist und anschließend ein anderes Feld außerhalb bemalt wird.
Das habe ich so geregelt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.MapDrawgridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect:TRect; State: TGridDrawState);
var noSelect:TRect;
begin


Rect := Mapdrawgrid.CellRect(ACol, ARow);
        Mapdrawgrid.Canvas.Draw(Rect.left, rect.top, AuswahlGrafik);
  
NoSelect := Mapdrawgrid.CellRect(-1, -1);
Mapdrawgrid.Selection := TGridRect(NoSelect);

end;

Leider hatte es auch nicht den gewünschten Effekt und das ganze Drawgrid wurde bemalt, statt nur einem Feld.

Wie kann ich es also lösen, sodass wenn man die Maus gedrückt hält nur das Feld bemalt wird auf dem man momentan ist?

Rect ist eine In-Parameter und ACol, ARow sind die Inidizes der Spalte/Zeile und nicht die Koordinaten

ich weiß nicht ob ich Dich richtig verstanden habe, suchst Du sowas?

zusammenfalten · markieren

Delphi-Quellcode:

  public
    { Public-Deklarationen }
    MCol,MRow:Integer;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (Acol=MCol) and (Arow=Mrow) then DrawGrid1.Canvas.Draw(Rect.left, rect.top, Image1.Picture.Bitmap);
end;

procedure TForm5.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   DrawGrid1.MouseToCell(x,y,MCol,MRow);
   DrawGrid1.Invalidate;
end;

Zitat von mkinzler:

Rect ist eine In-Parameter und ACol, ARow sind die Inidizes der Spalte/Zeile und nicht die Koordinaten

Kannst du mir das vielleicht noch genauer erklären? ich bin jetzt nicht unbedingt ein Delphi-Profi. :/
Wie müsste es denn richtig lauten?

Zitat von Bummi:

ich weiß nicht ob ich Dich richtig verstanden habe, suchst Du sowas?

zusammenfalten · markieren

Delphi-Quellcode:

  public
    { Public-Deklarationen }
    MCol,MRow:Integer;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (Acol=MCol) and (Arow=Mrow) then DrawGrid1.Canvas.Draw(Rect.left, rect.top, Image1.Picture.Bitmap);
end;

procedure TForm5.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   DrawGrid1.MouseToCell(x,y,MCol,MRow);
   DrawGrid1.Invalidate;
end;

Ja im Prinzip soll es so sein, aber es soll bei gedrückter Maustaste die Grafik auf dem Drawgrid "speichern". Also dass es dann wie mit einem Pinsel bemalt wird mit dem Bild. Im Moment wird so ja nur das Bild auf dem Drawgrid bewegt.


Eigentlich funktioniert es mit dieser Methode schon relativ gut:

markieren

Delphi-Quellcode:

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

Rect := Mapdrawgrid.CellRect(ACol, ARow);
Mapdrawgrid.Canvas.Draw(Rect.left, rect.top, AuswahlGrafik);

end;

Allerdings würde ich das lieber "Freihand" machen und nicht mit diesem Auswahlrechteck. Es sollte allerdings trotzdem nur bei gedrückter Maustaste "malen". Ist es möglich dieses blaue Auswahlrechteck auszuschalten?

Dann nimm doch ein Stringgrid und schreib ein "X" in die Zellen in die Du geklickt hast,die ohne X werden weiß gefüllt die anderen mit dem Bild.

bei http://www.delphipraxis.net/168785-i...-delphi-2.html #14 wird etwas ähnliches gemacht

Zitat von Bummi:

Dann nimm doch ein Stringgrid und schreib ein "X" in die Zellen in die Du geklickt hast,die ohne X werden weiß gefüllt die anderen mit dem Bild.

bei http://www.delphipraxis.net/168785-i...-delphi-2.html #14 wird etwas ähnliches gemacht

Das würde doch dann aber nur beim Klicken funktionieren und nicht beim Maus gedrückt halten über mehrere Zellen. Und dann ist da immer noch die blaue Auswahl da, welche mich noch stört. Und irgendwie finde ich es merkwürdig ein Stringgrid mit Grafiken zu füllen...

So funktioniert es, aber es wäre besser, wenn man die Maus gedrückt halten müsste:

markieren

Delphi-Quellcode:

procedure TForm1.MapDrawgridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var Select:TRect;
begin
  MapDrawGrid.MouseToCell(x,y,MCol,MRow);

  Select := Mapdrawgrid.CellRect(MCol, MRow);
  Mapdrawgrid.Canvas.Draw(Select.left, Select.top, AuswahlGrafik);

end;

Wenn ich da noch ein getasynckeystate(VK_LBUTTON) einbaue funktioniert es zwar, allerdings wird gleichzeitig auch diese nervige blaue Auswahlrechteck gezeichnet. Wenn ich dann wo anders ins Drawgrid klicke geht die Auswahl weg und die gezeichneten Felder damit auch.

Hier mal ein Bild vom Drawgrid:
http://img6.imagebanana.com/img/gv0t5vyi/Bild1.png

Kann man diese blaue Auswahl nicht irgendwie wegbekommen?



Edit:
Okay ich habe es nun geschafft. Danke für eure Hilfe!
Es funktioniert wenn man Im Objektinspektor das Default Drawing auf False setzt und dann in der Mousemove procedure folgendes schreibt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.MapDrawgridMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var Select:TRect;
begin
  MapDrawGrid.MouseToCell(x,y,MCol,MRow);

  Select := Mapdrawgrid.CellRect(MCol, MRow);

  if getasynckeystate(VK_LBUTTON) <> 0 then
  Mapdrawgrid.Canvas.Draw(Select.left, Select.top, AuswahlGrafik);

end;

Hier kann nun geschlossen werden