TListViewItem mit Custom Appearance... wo wurde hingeklickt?

[DeddyH]

Grüezi,

ich habe hier eine FMX-ListView mit ItemAppearance Custom (Text, Detail und Image, letzteres rechts ausgerichtet). Das sieht so aus, wie ich das wollte, allerdings würde ich nun gerne auf einen Click auf das Image reagieren. Mein erster Gedanke war, im OnItemClickEx das übergebene ItemObject auszuwerten:

Delphi-Quellcode:

procedure TfrmMain.lvRunningItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const LocalClickPos: TPointF;
  const ItemObject: TListItemObject);
begin
  if ItemObject is TListItemImage then
    //Bildchen geklickt
end;

Tut nix, lässt man sich den Klassennamen ausgeben, kommt "T" heraus. Eine andere Möglichkeit wäre, die Position auszuwerten (LocalClickPos wird ja auch übergeben). Da habe ich aber das Problem, die Koordinaten des Bildes relativ zum ListViewItem zu ermitteln. Hat jemand eine zündende Idee, es kann ja nicht sein, dass man sich mit solchen Niggeligkeiten immer wieder stundenlang aufhalten muss?

P.S.: XE8 aktuell

[Union]

Wo kommt denn das Item her?

[DeddyH]

Sry, das sollte ItemObject heißen, korrigiert.

[Union]

Wenn ich das mache, erhalte ich als Klassenname z.b. TListItemText. Du hast XE 10 im Profil. Die Signatur des Events ist aber dort eine ganz andere:

Delphi-Quellcode:

ItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const [Ref] LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);

Im Bereich ListView hat sich sehr viel getan. Das musste ich auch schmerzlich erfahren, weil ich Appearance-Komponenten mit XE5 erstellt hatte und die Kompatibilität ist sehr schwer herzustellen.

[DeddyH]

In einem Testprojekt erhalte ich das jetzt auch, aber immer, egal, wo ich hinklicke. Und an diesem Projekt arbeite ich noch mit XE8, siehe Postscriptum ;)

[bra]

Wenn du einen langen Text im Listview anzeigst, geht der dann über das Bild hinaus? Eventuell muss man da mit Margins für die einzelnen Objekte arbeiten?

[DeddyH]

Diese Objekte verfügen über keine Margins-Eigenschaft :(

[mensch72]

XE10:
NUR wenn sich der ItemIndex gerade geändert hat, liefert ClickEx im ItemObject das richtige getroffene EinzelElement(z.B. TListItemText), sonst bekommt man nur "TListView" als "Absender" und muss halt selber mit "InRect" abfragen ob der Punkt im gewünschten (Image)Element ist

Delphi-Quellcode:

procedure TfrmPscreen.lvDevicesItemClickEx(const Sender: TObject;
  ItemIndex: Integer; const [Ref] LocalClickPos: TPointF;
  const ItemObject: TListItemDrawable);
begin
  if(Assigned(ItemObject)) then
    lbDebug.Items.Add('Item '+ItemObject.ClassName + '='+ IntToStr(ItemIndex)+' '+FloatToStr(LocalClickPos.X) +' '+FloatToStr(LocalClickPos.Y) )
  else
    lbDebug.Items.Add('Sender '+Sender.ClassName + '='+ IntToStr(ItemIndex)+' '+FloatToStr(LocalClickPos.X) +' '+FloatToStr(LocalClickPos.Y) );
end;

[DeddyH]

Mit PtInRect würde ich ja zur Not auch arbeiten, aber woher bekomme ich das Rechteck des Image relativ zum ListViewItem?