Verhalten von TListView ändern

[Sir Rufo]

Hmmm, wäre es nicht einfacher gewesen, das mit den StateImages zu erschlagen?

Delphi-Quellcode:

unit Forms.MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
  Vcl.ComCtrls;

type
  TMainForm = class( TForm )
    ListView1: TListView;
    LargeImageList: TImageList;
    StateImageList: TImageList;
    procedure ListView1MouseDown(
      Sender: TObject;
      Button: TMouseButton;
      Shift : TShiftState;
      X, Y  : Integer );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.ListView1MouseDown(
  Sender: TObject;
  Button: TMouseButton;
  Shift : TShiftState;
  X, Y  : Integer );
var
  LItem    : TListItem;
  LHitTests: THitTests;
begin
  if Shift = [ssLeft]
  then
    begin
      LHitTests := ListView1.GetHitTestInfoAt( X, Y );
      LItem     := ListView1.GetItemAt( X, Y );
      if Assigned( LItem ) and ( THitTest.htOnStateIcon in LHitTests )
      then
        begin
          LItem.StateIndex := ( LItem.StateIndex + 1 ) mod 2;
        end;
    end;
end;

end.

Ein einfacher Klick direkt auf das StateImage ändert den Status. Jetzt kann man ganz gemütlich überall hinklicken und beim bewussten Klick auf das StateImage wird das Element ausgewählt oder wieder abgewählt.

Ist irgendwie stressfreier als dauernd Doppelklicks zu veranstalten.

UPDATE

Noch effektiver könnte auch das hier sein, dadurch hat man die gleiche Logik, wie bei Win8+

Delphi-Quellcode:

unit Forms.MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.ImageList, Vcl.ImgList,
  Vcl.ComCtrls;

type
  TMainForm = class( TForm )
    ListView1: TListView;
    LargeImageList: TImageList;
    StateImageList: TImageList;
    procedure ListView1MouseDown(
      Sender: TObject;
      Button: TMouseButton;
      Shift : TShiftState;
      X, Y  : Integer );
    procedure ListView1SelectItem(
      Sender  : TObject;
      Item    : TListItem;
      Selected: Boolean );
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.ListView1MouseDown(
  Sender: TObject;
  Button: TMouseButton;
  Shift : TShiftState;
  X, Y  : Integer );
var
  LItem    : TListItem;
  LHitTests: THitTests;
begin
  if Shift = [ ssLeft ]
  then
    begin
      LHitTests := ListView1.GetHitTestInfoAt( X, Y );
      LItem     := ListView1.GetItemAt( X, Y );
      if Assigned( LItem ) and ( THitTest.htOnStateIcon in LHitTests )
      then
        begin
          LItem.Selected := not LItem.Selected;
        end;
    end;
end;

procedure TMainForm.ListView1SelectItem(
  Sender  : TObject;
  Item    : TListItem;
  Selected: Boolean );
begin
  if Selected
  then
    Item.StateIndex := 1
  else
    Item.StateIndex := 0;
end;

end.

[Schwedenbitter]

Danke erstmal für die Antwort.
Aber irgendwie schaffe ich es nicht, dass nachzuvollziehen. Wenn ich das richtig verstehe, werden die Bilder bei StateImages nicht an- oder abgewählt, sondern es wird lt. Hilfetext ein Bild neben dem Eintrag angezeigt. Das scheint bei ViewStyle:=vsIcon; nicht zu funktionieren, oder? In meinem Testcode sehe ich aber nichts.

Zu meinen Bedürfnissen, muss ich dann weiter ausholen:
Die Liste ist als Vorschauliste für ein Scan-Programm gedacht (danke auch für die Hilfe dort ). Der Benutzer soll die Bilder nicht alle anwählen. Die Bilder mit Inhalt sind bereits angewählt. Der Benutzer soll nur die Möglichkeit der händischen bzw. äugigen Nachkontrolle zu haben. Wenn er ein nicht-leeres Bild entdeckt, soll er es markieren können; entdeckt er ein leeres, die Markierung löschen.
Der Benutzer muss also nicht dauernd Doppelklicks machen. Wenn mein Programm alles richtig erkannt hat, muss er überhaupt nichts klicken. Und das Klick-Ereignis brauche ich nur, um in der Mitte eine große Vorschau anzuzeigen. Ich habe mal einen Screenshot angehängt.

Aber wenn sich das mit Deinem Vorschlag machen lässt, würde ich nochmal um einen Hinweis bitten. Dann schaue ich mal nach einem Howto für StateImages bei einer TListView.

Gruß & Dank, Alex

[Sir Rufo]

Projekt mit Source und EXE im Anhang

[Schwedenbitter]

Zitat von Sir Rufo:

Projekt mit Source und EXE im Anhang

OK. Das beeindruckt mich. Dass man so schnell und unkompliziert eine Liste füllen kann erst Recht. Sehr schöner, kurzer und sauberer Code.
Aber: das ist nicht ganz das, was ich brauche. Außerdem hat es den Nachteil, dass sich ungeschickte Benutzer verklicken können und werden. Auch dann ist die Auswahl wieder futsch. Das darf unter keinen Umständen passieren.

Ich habe mal "meinen" Code nebst EXE angehängt. Der macht perfekt, was er soll - außer eben die Umständliche Abfrage des "ItemIndex" und den Umstand, dass die Tasten nicht funktionieren. Wenn ich ganz viel Zeit habe, werde ich mich um das letzte vielleicht noch kümmern.

[Luckie]

Wären da nicht Checkboxen einfacher?

[Sir Rufo]

Zitat von Luckie:

Wären da nicht Checkboxen einfacher?

Nein, siehe TListView.Checkboxes

[Luckie]

Das war jetzt ein Link auf das Ergebnis einer Suche. Was soll mir das sagen?