Listboxen "verschmelzen" lassen

[PierreB]

Moin,

ich hab da ein etwas seltsames Problem:
Also ich habe 3 Listboxen. In diesen stehen in jeder Zeile Daten, die im Zusammenhang stehen.
Beispiel:
Listbox1 - 1 Zeile: Ich
Listbox2 - 1 Zeile: habe
Listbox3 - 1 Zeile: Hunger.

Es gibt circa 20 Zeileneinträge. Nun möchte ich das wenn ich auf ein Item in der Listbox klicke, dass die zugehörigen Items der anderen Listboxen auch markiert werden. Das hab ich so gemacht:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
i : integer;
begin
i := listbox1.ItemIndex;
Listbox2.itemindex := i;
listbox3.itemindex := i;
end;

Das Problem ist jetzt nur, die Scrollbalken. Steht der eine Scrollbalken höher als der andere, sind die Items nicht mehr in einer Linie markiert. Also ist meine Frage, wie kann ich wenn ich Listbox1 runterscrolle auch die beiden anderen automatisch mutgescrollt werden ? Ich hoffe ihr versteht was ich meine und ich hoffe ihr könnt mir helfen. Im Anhang sind 2 Bilder was ich meine.

Danke schonmal,

[barf00s]

ItemIndex Setzen und dann .Scroll(en)

[PierreB]

Zitat:

Zitat von barf00s

ItemIndex Setzen und dann .Scroll(en)

Ich hab die Methode .Scrollby genommen (gefunden). Nur wie soll ich da bei den beiden Integerwerten angeben ?

Zitat:

Zitat von Delphi Hilfe

DeltaY enthält die Änderung in Pixel längs der Y-Achse. Bei einem positiven Wert wird der Bildausschnitt nach unten, bei einem negativen Wert nach oben verschoben

Nur woher krieg ich diesen Wert ? Ich hab ja nur den ItemIndex der Listbox1 !?

[CalganX]

Hi,
du kannst aber herausfinden, wie hoch ein einzelnes Item ist. ItemHeight heißt da das Zauberwort. Ich weiß aber jetzt nicht konkret wovon das die Eigenschaft ist - entweder der ListBox selber oder der Items-Eigenschaft.

Chris

[barf00s]

.Items.IndexOf()

[PierreB]

Zitat:

Zitat von barf00s

.Items.IndexOf()

:gruebel: Mit IndexOf() kann ich doch prüfen ob ein String in der Listbox vorhanden ist. Was nützt mir das ?

@Chakotay: Irgendwie hat jedes Items bei ItemHeight den Wert 13. Es wird also nicht du Position der in der Listbox augegeben, sondern nur die Höhe des Items. Was nützt mir das oder bin ich blind ? :gruebel:

[CalganX]

Hi,
das nützt dir einiges. Überleg mal: du weißt nun, dass jedes Item genau 13 Pixel hoch ist. Außerdem weißt du, welches Item du hast. Nun willst du wissen, wie viele Pixel das von ganz oben ist...

Das erste Item beginnt bei 0px, das zweite bei 13px, das dritte bei 26px, das vierte bei 39px, etc. Und das kannst du dann in der Methode ScrollBy verwenden. ;)

Chris

[PierreB]

Stimmt das hast du recht. :wall:
Ich habs jetzt so versucht, klappt aber leider net:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
i, a : integer;
begin
i := listbox1.ItemIndex;
a := i * listbox1.ItemHeight;
Listbox2.ScrollBy(0, a);
Listbox2.ItemHeight := i;
listbox3.itemindex := i;
end;

:gruebel:

[CalganX]

Hi,
ganz so einfach ist es dann auch nicht. ;)
Denn bei ScrollBy gibst du ja nicht an, zu welchem Pixel gescrollt werden soll, sondern die Differenz zwischen dem jetzigen Punkt und dem, zu dem du hin willst. D.h. wenn du es so machen willst, wie du es da geschrieben hast, musst du erstmal zum Anfang. Vielleicht ist das auch das sinnvollste.
Heißt also: du scrollst ganz um Anfang (Parameter wäre dann z.B. -(Höhe der ListBox)) und dann so, wie du es da schon hast. ;)

Chris

[barf00s]

gnarf ... mit indexof bekommst das jeweilige item aus der liste, multiplizierst das mit der höhe des items und scrollst dann dahin