Drawgrid bei Mousedown mit Image "bemalen"
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:
Delphi-Quellcode:
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.
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; 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:
Delphi-Quellcode:
Wenn ich das nun aber mache, flimmert das ganze Feld und ich kann nichts mehr anklicken.
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; 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:
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? |
AW: Drawgrid bei Mousedown mit Image "bemalen"
Rect ist eine In-Parameter und ACol, ARow sind die Inidizes der Spalte/Zeile und nicht die Koordinaten
|
AW: Drawgrid bei Mousedown mit Image "bemalen"
ich weiß nicht ob ich Dich richtig verstanden habe, suchst Du sowas?
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; |
AW: Drawgrid bei Mousedown mit Image "bemalen"
Zitat:
Wie müsste es denn richtig lauten? Zitat:
Eigentlich funktioniert es mit dieser Methode schon relativ gut:
Delphi-Quellcode:
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?
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; |
AW: Drawgrid bei Mousedown mit Image "bemalen"
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 |
AW: Drawgrid bei Mousedown mit Image "bemalen"
Zitat:
So funktioniert es, aber es wäre besser, wenn man die Maus gedrückt halten müsste:
Delphi-Quellcode:
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.
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; 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:
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 :) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz