Bereiche in einem Bild als Schaltflächen nutzen

[Oracle]

Ich habe folgendes vor:
Ich habe ein Bild welches ähnlich aussieht wie dieses hier:

http://www.u-helmich.de/bio/stw/biok...lder/abb02.jpg

Nun will ich das der User in diesem Bild per Mausklick eines der Reagenzgläser auswählen kann.
Nach dem der User das Reagenzglas angeklickt hat, soll es sich rot verfärben, sodass sichtbar wird, welches er ausgewählt hat.
Daraufhin soll er auch noch weitere auswählen können. Klick er noch einmal auf ein bereits ausgewähltes Reagenzglas, so nimmt dieses wieder seine ursprüngliche Farbe an.
Dies soll für eine Messung dienen, und der User soll auf diese Weise intuitiv die zu Messenden Proben auswählen können.

Ich hoffe ihr könnt mir da helfen.

Vielen Dank schonmal im Vorraus :-D

[sirius]

Ein möglicher Ansatz wäre:
-eine Klasse von TCustomControl ableiten
-Überschreiben der Paint-Methode (darin immer das Bild, was in einem Bitmap gespeichert ist auf das Canvas kopieren)
-Überschreiben der Methode Click oder DblClick und nachsehen, wo die Mouse ist. Dementsprechend dann das Bitmap verändern.

Ob du jetzt für alle Reagenzgläser ein Control nimmst oder jedes Glas in einem separatem Control ist deiner Kreativität überlassen.

[s-off]

Hallo,

schau Dir doch mal das an.

[marabu]

Hallo,

unterteile dein Image rechnerisch in acht vertikale Streifen. Jedes Rechteck verkleinerst du mittels InflateRect() so, dass es ganz innerhalb eines Reagenzglases liegt. Speichere die entstehenden Rechtecke in einem Array und prüfe beim Klicken auf das Bild mit PtInRect(), ob ein Reagenzglas angeklickt wurde.

Grüße vom marabu

[Oracle]

Ich hab mich jetzt auf TMPRegionImage gestürzt. Das finde ich auch echt genial.
Habe nur ein Problem. Wenn der User hier mehrere Regionen anwählen möchte muss er die Shifttaste gedrückt halten.
Ich möchte dieses Verhalten aber ohne zusätzliches Drücken der Shifttaste haben. wie kann ich dem Control eine gedrückte Shifttaste vorgaukeln?

[Oracle]

Ich habs raus einfach beim OnEnterRegion

Delphi-Quellcode:

keybd_event(VK_LShift, 0, 0, 0);

und bei OnLeaveRegion

Delphi-Quellcode:

keybd_event(VK_LShift, 0, KEYEVENTF_KEYUP, 0);

einfügen. :)