Graphics32 > TImage32 > Layers > OnMouseDown Problem

[Michael II]

Ich verwende Graphics32 1.9.1 und 2.0 Alpha.

In einer TImage32 Komponente (Name:sjb) verwende ich Layers um Bitmaps auf einfache Weise rumzuschieben.

Im OnMouseDown von TImage32 kann ich abfragen, welcher Layer L geklickt worden ist. In der OnMouseDown Ereignisbehandlungsroutine TMeinForm.sjbMouseDown

Delphi-Quellcode:

procedure TMeinForm.sjbMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer; Layer: TCustomLayer);

zeigt mein Programm ab und zu eine Meldung mittels MessageDlg(..) an.

Nachdem eine solche Meldung angezeigt worden ist klicke ich auf weitere Layers. Nun meldet TMeinForm.sjbMouseDown() immer den bei der Anzeige der ersten Meldung geklickten Layer (falsch) und nicht wie erwartet den aktuell geklickten Layer zurück.

Beispiel: Ich klicke Layer1, es wird keine Meldung angezeigt. Ich klicke Layer2, in TMeinForm.sjbMouseDown wird eine Meldung angezeigt. Ich klicke Layer3 TMeinForm.sjbMouseDown meldet Layer=Layer2 (statt Layer3), ich klicke Layer4 TMeinForm.sjbMouseDown meldet weiterhin und für immer Layer=Layer2 (statt Layer4).

Hat jemand auch sowas beobachtet?

Ich habe es "gelöst" indem ich in GR32_Layers.TLayerCollection.MouseDown den Layer jedes Mal neu berechnen lasse:

Delphi-Quellcode:

function TLayerCollection.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer): TCustomLayer;
begin
  (* if Assigned(MouseListener) then
    Result := MouseListener
  else *)
    Result := FindLayerAtPos(X, Y, LOB_MOUSE_EVENTS);

Es gibt sicher bessere Lösungen.

Der Fehler tritt auf, weil nach Anzeige einer Meldung TLayerCollection.MouseUp nicht ausgeführt wird, MouseListener wird dadurch nicht NIL gesetzt und beim nächsten MouseDown wird deshalb der alte noch in MouseListener gespeicherte Wert übernommen.

Angehängt ein Beispielprogramm. 20 Layer 0..19. Nur wenn Layer 0 oben links geklickt wird, wird eine "Hallo" Meldung ausgegeben. Solange man auf die anderen Layers 1..19 klickt, wird in MouseDown der korrekte Layer gemeldet. Sobald man den Layer oben links geklickt hat, wird in weiteren MouseDowns immer Layer0 zurückgemeldet, auch wenn man Layer 1..19 klickt.