Listview.dll horizontal scrollen

[JörgG]

Hi, hat jemand einen Tip, wie ich eine bestimmte Spalte in den sichtbaren bereich scrollen kann? Also so was wie 'selectLine'...




edit: Frank, würdest du bitte den Titel korrigieren?

[horsthorn]

@Jörg
Hier sind alle Möglichkeiten aus der Hilfe zu der Listview.dll

SelectLine(H,I,F)

Selektiert oder Deselektiert eine oder alle Zeilen eines Listviews.

H : Long - Handle eines mit CreateListview() erstellten Listview Controls
26
Z : Long - Indexzeile, die selektiert werden soll (nullbasierend).
F : Long - Flags.

Mit dieser Funktion kann entweder eine oder alle Zeilen selektiert / deselektiert werden. Auf Wunsch scrollt das
Listview in die betroffene Zeile.
Hier eine Liste aller möglichen Flags ( kombinierbar durch OR Verknüpfung oder Addition).

0 = nur eine Zeile (Z) selektieren / nicht in die Zeile scrollen
1 = Zeile Z in den sichtbaren Bereich scrollen
2 = nicht selektieren, sondern deselektieren (entmarkieren)
4 = Z ignorieren und alle Zeilen bearbeiten
8 = GetAllSelected() zwingen, auch mit SelectLine() markierte Zeilen aufzulisten.

In seltenen Fällen kann es beim Gebrauch von SelectLine() zu ungewollten Scroll-Phänomen kommen. Lesen sie
in diesem Fall nach unter ForbidScrollMessages().
Beispiele:

SelectLine(listview&,8,0) ;Selektiert Zeile 8
SelectLine(listview&,8,2) ;Deselektiert Zeile 8
SelectLine(listview&,100,1) ;Selektiert Zeile 100 und scrollt zu Zeile 100
SelectLine(listview&,100,3) ;Deselektiert Zeile 100 und scrollt zu Zeile 100
SelectLine(listview&,0,4) ;Selektiert alle Zeilen
SelectLine(listview&,68,5) ;Selektiert alle Zeilen und scrollt zu Zeile 68
SelectLine(listview&,0,12) ;Selektiert alle Zeilen und aktualisiert
GetAllSelected()
SelectLine(listview&,120,7) ;Deselektiert alle Zeilen und scrollt zu Zeile 120
SelectLine(listview&,0,

Denke mal, daß hier das passende dabei ist

[JörgG]

...Denke mal, daß hier das passende dabei ist...

Leider nicht, Horst ich möchte ja SEITWÄRTS scrollen. Das Listview hat also mehr Spalten, als im sichtbaren Bereich darstellbar.
SelectLine(H,I,F) scrollt wunderbar von oben nach unten & umkekehrt. Und genau sowas suche ich für die andere Richtung...

[Frabbing]

Hast du die Message LVM_SCROLL schon getestet? Vielleicht erst SelectLine(), dann die Message mit hohem wParam-Wert und lParam = 0. Wäre ein Versuch wert.

[JörgG]

Hast du die Message LVM_SCROLL schon getestet?

Natürlich nicht! Kommt ja in deine LV-Anleitung nirgends vor
nee, aber wo kann ich sowas denn mal ganz genau (für Dau's) nachlesen. Ich bin in dieser Richtung ziemlich unerfahren (wahrsch. fehlt da das Grundwissen). Vllt. hast du noch irgendwelche Niederschriften, die den Einstieg in der Message-Welt ein wenig erleichtern

[Frabbing]

Das ist einfach nur eine Message (SendMessage). LVM_SCROLL hat den Wert $1014, die Parameter sind x- und y Wert in Pixel, um die sich die Anzeige im Listview verschieben soll. Bei Minuswerten wird nach links / oben verschoben, bei Pluswerten nach rechts / unten. Einfach mal ein bischen rumprobieren. Eine spezielle Anleitung hab ich nicht, nur das bekannte MSDN.

[THFR]

Habe da noch ein Beispiel:

 $H WINDOWS.PH
 $H MESSAGES.PH
 $H COMMCTRL.PH
Declare Titel$,hGrid&,hGrid1&

Proc GridBox1
    
    Titel$ = "Links;0;180;Mitte;0;100;Rechts;0;80"
    hGrid&  = Create("GridBox", %hWnd, Titel$, 1,30, 30, 200, 190)
    AddString(hGrid&, "AB|DEF|0123")
    AddString(hGrid&, "GHI|J23KL|012345")
    AddString(hGrid&, "FGRT|MNOP|PQR|")
    AddString(hGrid&, "STU||V")
    AddString(hGrid&, "ABCD12|STUVW|XYZ0")
    AddString(hGrid&, "ABCD34|stuvw|999,00")
    AddString(hGrid&, "Abcd45|STUVW|-111,11")
    AddString(hGrid&, "Abcd56|StUVW|2.111,11")
    AddString(hgrid&, "AB|DEF|0123")
    AddString(hgrid&, "GHI|J23KL|012345")
    AddString(hgrid&, "FGRT|MNOP|PQR|")
    AddString(hgrid&, "STU||V")
    AddString(hgrid&, "ABCD12|STUVW|XYZ0")
    AddString(hgrid&, "ABCD34|stuvw|999,00")
    AddString(hgrid&, "Abcd45|STUVW|-111,11")
    AddString(hgrid&, "Abcd56|StUVW|2.111,11")

EndProc

Proc GridBox2

    Titel$ = "Links;0;180;Mitte;0;100;Rechts;0;80"
    hGrid1&   = Create("GridBox", %hWnd, Titel$, 1, 240, 30, 200, 190)
    AddString(hgrid1&, "AB|DEF|0123")
    AddString(hgrid1&, "GHI|J23KL|012345")
    AddString(hgrid1&, "FGRT|MNOP|PQR|")
    AddString(hgrid1&, "STU||V")
    AddString(hgrid1&, "ABCD12|STUVW|XYZ0")
    AddString(hgrid1&, "ABCD34|stuvw|999,00")
    AddString(hgrid1&, "Abcd45|STUVW|-111,11")
    AddString(hgrid1&, "Abcd56|StUVW|2.111,11")
    AddString(hgrid1&, "AB|DEF|0123")
    AddString(hgrid1&, "GHI|J23KL|012345")
    AddString(hgrid1&, "FGRT|MNOP|PQR|")
    AddString(hgrid1&, "STU||V")
    AddString(hgrid1&, "ABCD12|STUVW|XYZ0")
    AddString(hgrid1&, "ABCD34|stuvw|999,00")
    AddString(hgrid1&, "Abcd45|STUVW|-111,11")
    AddString(hgrid1&, "Abcd56|StUVW|2.111,11")

EndProc

SubClassProc

    if subClassMessage(hGrid&,~wm_paint)
        sendMessage(hGrid1&,~lvm_scroll,~getScrollPos(hGrid&,0)-~getScrollPos(hGrid1&,0),(~getScrollPos(hGrid&,1)-~getScrollPos(hGrid1&,1))*hiword(sendMessage(hGrid1&,~lvm_getItemSpacing,1,0)))
    Elseif subClassMessage(hGrid1&,~wm_paint)
        sendMessage(hGrid&,~lvm_scroll,~getScrollPos(hGrid1&,0)-~getScrollPos(hGrid&,0),(~getScrollPos(hGrid1&,1)-~getScrollPos(hGrid&,1))*hiword(sendMessage(hGrid&,~lvm_getItemSpacing,1,0)))
    endif

endproc

SetTrueColor 1
WindowStyle 538
WindowTitle "Scroll Gridbox"
Window 100,100-600,400
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1

GridBox1 
GridBox2 
SubClass hGrid&,1
SubClass hGrid1&,1
While 1

    WaitInput
    case %key=2: Break

Wend

SubClass hGrid&,0
SubClass hGrid1&,0

Das lässt sich sicher anpassen.

Gruß Thomas