Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi OnMouseMove, aktuelle Zelle vorübergehend einfärben (https://www.delphipraxis.net/10837-onmousemove-aktuelle-zelle-voruebergehend-einfaerben.html)

Matze 26. Okt 2003 12:34


OnMouseMove, aktuelle Zelle vorübergehend einfärben
 
Hi!

Ich möchte beim OnMouseMove im StringGrid, in die Zelle, unter dem Cursor ein Bitmap geben, doch sobald der Cursor weg ist, soll das Bitmap auch weg sein, im Moment habe ich das so:

Delphi-Quellcode:
  StringGrid1.MouseToCell(X, Y, Column, Row);
  StringGrid1.Canvas.Draw(Column*16,Row*16,KastenL);
im OnMouseMove, natürlich wird das Bitmap noch nicht gelöscht, jetzt das eigentliche Problem, per Klick auf eine Zelle, soll das Bitmap auf das Canvas fest gezeichnet werden, also habe ich "volle" und "leere" Zellen.

Dann kann ich ja nicht alle löschen, wie mache ich das am besten?

SirThornberry 26. Okt 2003 12:53

Re: OnMouseMove, aktuelle Zelle vorübergehend einfärben
 
nen 2dimensionales array anlegen und darin speichern ob das bild fest ist oder wieder verschwinden soll

Matze 26. Okt 2003 12:54

Re: OnMouseMove, aktuelle Zelle vorübergehend einfärben
 
Könntest d mir dazu ein Beispiel geben? :lol:

Per Linksklick soll das Bitmap fest gezeichnet werden, per Rechtsklick gelöscht und im OnMouseMove vorübergehend gezeichnet werden.

Sharky 26. Okt 2003 14:19

Re: OnMouseMove, aktuelle Zelle vorübergehend einfärben
 
Hai Matze,

anstelle eines Arrays um zu speichern in welchen Zellen ein Bild angezeigt werden soll kannst Du dir auch mal die Eigenschaft Objects ansehen. Dann ist es immer direckt mit der Zelle verbunden. Allerdings musst Du dich doch selber um die Freigabe der Objekte kümmern!

Ein Beispiel habe ich jetzt leider nicht zur Hand. Schau mal wie weit Du so kommst.


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:20 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