TListView und Spalte

[Schwedenbitter]

Hallo,

ich habe mit den im Titel genannten Worten unter anderem auch eine Suche hier durchgeführt. Die Themen habe ich mir angesehen, aber nichts gefunden, das mich weiterbringt.
Leider kann eine einfache TListView nur eine einzige CheckBox anzeigen. Ich brauche aber mind. 5 pro Zeile und VirtualTreeView ist mir zu aufwendig. Meine Idee ist daher jetzt, dass ich statt CheckBoxen einfach kleine Symbole nehme (sieht sogar chicker aus). Wenn der Benutzer jetzt auf einen Eintrag klickt, wird einfach ein entsprechendes Bild eingeblendet oder eben nicht. Damit habe ich dann meine CheckBoxen :mrgreen:
Es hapert aber bei mir an der Umsetzung. Zwar weiß ich, auf welche Zeile der Benutzer geklickt hat. Ich bekomme aber nicht das Item bzw. SubItem. Ich kenne das Ereignis OnMouseDown. Hier bekäme ich die X,Y-Koordinaten. Ich könnte daher anhand dieser Daten das SubItem errechnen.

Gibt es eine einfachere Methode, um dort ranzukommen?

Gruß, Alex

[stho]

sei mir nicht böse aber WAS GENAU benutzt du jetzt?
Checkboxen? Comboboxen? Listboxen? listviews? :?:

Ich hab grad keine ahnung :gruebel:

aber VST ist eigentlich ganz komfortabel weil man da recht leicht daten hinterlegen kann.
Zur not auch in SPaltenform.

Ich persönlich habs noch net geschafft in einem Listview objekte zu hinterlegen. in einer listbox geht das einfacher ^^

LG
stho

[Andreas L.]

Zitat:

Zitat von stho

Ich persönlich habs noch net geschafft in einem Listview objekte zu hinterlegen. in einer listbox geht das einfacher ^^

Objekte kannst du ganz einfach der Data-Eigenschaft eines Items zuweisen.

Delphi-Quellcode:

var
  MeinObjekt: TObject;
begin
  with ListView1.Items.Add do
  begin
    ...
    MeinObject := TObject.Create;
    Data := MeinObjekt;
  end;
end;

...
...

TObject(ListView1.Items[0].Data).Name := 'NeuerName';
//etc...

Oder meinst du visuelle Objekte die in der ListView angezeigt werden sollen?

[Schwedenbitter]

Zitat:

Zitat von stho

sei mir nicht böse aber WAS GENAU benutzt du jetzt?

Bin ich nicht! -> TListView

Also ich kann den einzelnen Zellen Bilder zuweisen und die auch ändern (lassen)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
   LI            : TListItem;
begin
   LI:=ListView1.Items.Add;
   LI.SubItems.Add('');
   LI.SubItems.Add('');
   LI.SubItems.Add('');
   LI.SubItems.Add('1-5');
   LI.SubItemImages[2]:=1;
   ListView1.Items[Pred(ListView1.Items.Count)].ImageIndex:=2;
end;

Mir geht es jetzt nur darum, mit geringstmöglichem Aufwand herauszufinden, auf welches Bild der Benutzer grad geklickt hat. Ich habe mal einen Screenshot angehängt. Vielleicht wird dann das Problem besser verständlich.

Gruß, Alex

[Schwedenbitter]

Ich habe es jetzt so probiert

Delphi-Quellcode:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
Var
   I            : Integer;
   aLeft         : Integer;
begin
   aLeft:=0;
   For I:=0 To Pred(ListView1.Columns.Count) Do
   Begin
      If Y In [aLeft..(aLeft + ListView1.Columns.Items[I].Width)] Then
         Break
      Else
         aLeft:=aLeft + ListView1.Columns.Items[I].Width;
   End;
   MessageBox(0, PAnsiChar(IntToStr(I)), 'SubItem', mb_OK);
end;

Ich bekomme aber immer eine '0' ausgegeben. :wall:

Wieso klappt das nicht?

[DeddyH]

Ich habe die Logik jetzt nicht bis ins Letzte nachvollzogen, aber müsstest Du nicht X prüfen statt Y?

[Schwedenbitter]

Zitat:

Zitat von DeddyH

... aber müsstest Du nicht X prüfen statt Y?

Genau das! Jetzt klappt es ... fast.

Ich habe jetzt aber immer noch 2 Probleme:

• Zum einen läuft die Schleife von 0 bis Anzahl der Spalten - 1. In meinem Fall sind es 7 Spalten, so dass die Schleife bis 6 laufen müsste. Bis zu 6. Spalte stimmt die Ausgabe (=5). In der 7. Spalte kommt aber 7, was falsch ist.
• Wenn ich die Größe der Spalten zur Laufzeit ändere, passen die Werte nur noch bis zur letzten geänderten Spalte. Da aber auch bis zum Ende. Ich verstehe das nicht

Ich habe deshalb mal den Quellcode beigefügt.

Alex

[DeddyH]

Probier es mal so:

Delphi-Quellcode:

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
Var
  I   : Integer;
  aLeft   : Integer;
  CurCol: integer;
begin
  aLeft:=0;
  CurCol := -1;
  For I:=0 To Pred(ListView1.Columns.Count) Do
    Begin
      If (X >= aLeft) and (X <= (aLeft + ListView1.Columns[I].Width)) Then
        begin
          CurCol := i;
          Break;
        end
      Else
        aLeft:=aLeft + ListView1.Columns[I].Width;
    End;
  MessageBox(0, PAnsiChar(IntToStr(CurCol)), 'SubItem', mb_OK);
end;

In operiert mit Mengen. Mengenelemente dürfen aber maximal den Wert 255 haben, die Summe der Spaltenbreiten ist aber größer, deshalb klappt das nicht.

[himitsu]

Du könntest statt der ListView auch einen VirtualTreeView nehmen
> ich weiß "Tree", aber sie läßt sich auch als "List" verwenden :angel:

Dort kannst du erstmal die Bilder direct von der Komponente zeichnen lassen und muß ihr nur einen BildIndex und eventuell noch 'ne ImageList (falls da nicht die über das Property Angebundene genommen werden soll) übergeben.

Und dann gibt es ein fertiges OnColumnClick, wo du direkt die angeklickte Spalte bekommst und nichts mehr rechnen mußt.

[Schwedenbitter]

Zitat:

Zitat von DeddyH

In operiert mit Mengen. Mengenelemente dürfen aber maximal den Wert 255 haben, die Summe der Spaltenbreiten ist aber größer, deshalb klappt das nicht.

Auch hier hast Du mal wieder ins Schwarze getroffen. Der Code funktioniert jetzt. CurCol ist nicht erforderlich. Ich habe das über eine Abfrage gelöst. Denn CurCol wäre sonst auch am Ende evtl. 0 und ich könnte nicht prüfen, ob außerhalb der Spalten geklickt wurde. Habe es jetzt so gemacht:

Delphi-Quellcode:

begin
   aLeft:=0;
   For I:=0 To Pred(ListView1.Columns.Count) Do
   Begin
      If (X >= aLeft) and (X <= (aLeft + ListView1.Columns[I].Width)) Then
         Break
      Else
         aLeft:=aLeft + ListView1.Columns.Items[I].Width;
   End;
   If I > Pred(ListView1.Columns.Count) Then I:=-1;
   Label1.Caption:='Zeile: '  + IntToStr(ListView1.ItemIndex) + ' | ' +
                   'Spalte: ' + IntToStr(I);
end;

@himitsu
Ich weise auch hier die Bildchen nur per BildIndex zu. Ich brauche VirtualTreeView dazu nicht. Die hatte ich schon einmal am Wickel. Mit kurz mal auf das Form ziehen und loslegen war nicht und die wirklich dicke Anleitung wollte ich mir nicht durchlesen.

Jetzt habe ich aber immer noch ein Problem:

Um ItemIndex hatte ich mich nicht gekümmert. Ich hatte mich darauf verlassen, dass sich TListView allein darum kümmert. Tut sie aber nicht. Ich sehe bei Zeile jetzt immer -1 und das obwohl ich vorher zig Zeilen angelegt habe. Daran kann es also nicht liegen...

Wo liegt denn hier nun wieder mein Denkfehler?

Alex

[Gollum]

Hallo,

die aktuell gewählte Zeile des Listview bekommst Du so:

Delphi-Quellcode:

  row:=ListView1.Selected.Index;

[Schwedenbitter]

Zitat:

Zitat von Gollum

Hallo,
die aktuell gewählte Zeile des Listview bekommst Du so:

Delphi-Quellcode:

   row:=ListView1.Selected.Index;

@Gollum
Boxberg = Das Boxberg in Sachsen?

Ich habe den Tipp gern aufgenommen. Allerdings bekomme ich jetzt immer eine nicht näher definierte EAccessViolation (Zugriffsverletzung bei Adresse ...). Es kann nur an Selected.Index liegen, denn davor lief die Procedure zumindest durch. Gibt es da noch etwas zu beachten?

Gruß, Alex

[DeddyH]

Das CurCol hatte schon seine Berechtigung. Nach Ablauf der Schleife ist i nicht definiert, so dass ich mir Treffer in CurCol merke. Außerdem steht dort der Initialwert -1 drin, wenn es keinen Treffer gab.

[Gollum]

Zitat:

Zitat von Schwedenbitter

@Gollum
Boxberg = Das Boxberg in Sachsen?

Nein, Boxberg, Baden Württemberg.

Bzgl. Deiner EAccessViolation bin ich etwas verwundert. Die entsprechende Zeile müsste doch markiert sein (OnMouseDown).

Überprüfe einmal mit

Delphi-Quellcode:

  if (ListView1.Selected<>nil) then 
    ShowMessage(IntToStr(ListView1.Selected.Index));

ob die entsprechende Zeile überhaupt markiert ist.

[Schwedenbitter]

Danke, das war es:

Zitat:

Zitat von Gollum

Überprüfe einmal mit ...
ob die entsprechende Zeile überhaupt markiert ist.

War sie nicht, bis ich dann RowSelect:=True; gesetzt hatte. Jetzt klappt es. Ich habe aber immer den Balken blau. Gibt es auch eine Möglichkeit ohne RowSelect?

Dann habe ich mal eine Frage zum Einbinden von Objekten:
Ich habe anhand dieses Threads herausgefunden, dass man z.B. auch eine TCheckBox einbinden kann. Bei mir klappt das aber nur in der ersten Spalte, wo es die TListView ja schon selbst unterstützt sowie noch in der zweiten Spalte. Wenn ich in dem folgenden Code I durch 1 bzw. 2 ersetze, kommt die CheckBox dann wieder in der 1. Spalte

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
   I            : Integer;
   Bereich      : TRect;
   CB            : TCheckBox;
begin
   I:=0;
   ListView1.Items.Add.Caption:='Test';
   Bereich:=Listview1.Items[Pred(ListView1.Items.Count)].DisplayRect(drBounds);
   Bereich.left:=Bereich.Left + Listview1.columns[I].Width;
   Bereich.right:=Bereich.Left + Listview1.columns[Succ(I)].Width;
   CB:=TCheckBox.Create(self);
   CB.Parent:=Listview1;
   CB.BoundsRect:=Bereich;
   CB.Checked:=True;
   Listview1.items[Pred(ListView1.Items.Count)].Data:=CB;
end;

Kann mir bitte da jetzt noch jemand einen Tip geben?

Denn dann müsste ich das nicht mehr - wie geplant - mit den Bildchen (ImageIndex) machen, sondern könnte direkt CheckBoxen in jeder Spalte verwenden...

Gruß, Alex

[Schwedenbitter]

Ich habe es jetzt fertig. Für alle die, die es gebrauchen können, habe ich den Quelltext beigefügt.

Ich würde mich aber immer noch freuen, wenn mir jemand einen Hinweis geben könnte, wie ich es mit TCheckBox in der Liste hinbekommen kann ...

Gruß, Alex