[Gelöst] TDBGrid anderes scrollen?

[MmVisual]

Hallo,

Wenn man im TDBGrid mit dem Mausrad scrollt, dann wird erst der Datensatz weiter gescrollt, danach, wenn der Datensatz unten am unteren Tabellenrand angekommen ist wird die Tabelle weiter gescrollt.

Nun, die User erwarten eigentlich etwas anderes, die wollen dass wenn man in der Tabelle mit dem Mausrad scrollt, dass sich sofort der Tabelleninhalt verschiebt und nicht erst der Datensatz an das Ende der Tabelle.

Kann man das irgendwie umstellen?

VG Markus

[Sieben]

Nicht dass ich wüsste. Aber du könntest mal schauen, ob die hier vorgestellte Variante, die versucht die SelectedRow zu zentrieren, dem gewünschten Verhalten nicht zumindest nahe kommt.

[theo]

Sonst gibt's auch noch KDBGrid: https://wiki.lazarus.freepascal.org/KControls
Auch im OPM erhältlich.
Ich habe es noch nie benutzt und weiss daher nicht, ob es deinen Vorstellungen entspricht.

[Mathias]

Nun, die User erwarten eigentlich etwas anderes, die wollen dass wenn man in der Tabelle mit dem Mausrad scrollt, dass sich sofort der Tabelleninhalt verschiebt und nicht erst der Datensatz an das Ende der Tabelle.

Ich habe dies gerade in Libre Calc probiert. Dort wird sofort die Tabelle gescrollt.


TStringGrid habe ich auch probiert, dort ist das gleiche verhalten wie bei TDBGrid beschrieben wurde.

Nach meiner Meinung etwas merkwürdig, das die Lazarus Grids sich anders verhalten als die von der Tabellenkalkulation.
Excel kann ich leider nicht testen.

[m.fuchs]

TStringGrid habe ich auch probiert, dort ist das gleiche verhalten wie bei TDBGrid beschrieben wurde.

Nach meiner Meinung etwas merkwürdig, das die Lazarus Grids sich anders verhalten als die von der Tabellenkalkulation.

Beim StringGrid ist es aber einfach lösbar: Die Property MouseWheelOption muss von mwCursor auf mwGrid gestellt werden.

[charlytango]

Beim StringGrid ist es aber einfach lösbar: Die Property MouseWheelOption muss von mwCursor auf mwGrid gestellt werden.

hab gerade nachgeschaut, TDBEdit hat eine andere Vererbungshierarchie als TStringGrid.
MouseWheelOption gibt es im TDBGrid nicht.

[Sieben]

Da das Property schon in TCustomGrid (als protected) angelegt ist, könnte man es in einem TDBGrid veröffentlichen. Es tut nur leider ohne weiteres nicht, man müsste wohl ein eigenes DoMouseWheel implementieren.

[m.fuchs]

Das hat beim TDBGrid auch etwas damit zu tun, was beim Scrollen passiert. Sind denn alle Datensätze schon im Speicher oder werden sie beim Scrollen erst aus der DB geladen?

[MmVisual]

Die Datensätze sind in der Regel schon alle da, damit rechts die Scrollbox korrekt gezeicht werden kann.

[m.fuchs]

Die Datensätze sind in der Regel schon alle da, damit rechts die Scrollbox korrekt gezeicht werden kann.

Ist das eine Vermutung oder weißt du das ganz sicher? Um die Scrollbars zu zeichnen würde ja auch der RecordCount vom DataSet ausreichen.

In der Methode DoMouseWheelDown wird jedenfalls (unter anderem) folgendes gemacht:

Code: Alles auswählen

FDatalink.MoveBy(1);

Das erscheint mir schon so, als würde da einfach im gekoppelten DataSet ein Record weitergegangen.

[Soner]

Ich wollte das auch immer haben, deshalb habe ich es jetzt umgesetzt. Ein Beispielprogramm mit TBufDataset ist dabei.
Ihr könnt es auch in eurem Programm direkt testen in dem Ihr Abschnitte mit Kommenter "// Copy in your code ..." und "// ... until here" in eurem Projekt einfügt, einmal im Interface-Teil und einmal im Implementation-Teil.
Dann müst ihr in Form.OnCreation-Teil, das noch hinzufügen:
EureDBGrid.MouseWheelOption:=mwGrid;

Testet es bitte in eurem Projekt, das ist Ein-Minuten-Arbeit, wenn es gut funktioniert, dann kann ich Patch einreichen.
Bei mir funktioniert es wunderbar mit ZEOS-Komponente.

Es wird bei "MouseWheelOption:=mwGrid" Seitenweise gescrollt, sollte es vielleicht halbe Seite oder die letzte bzw. erste Zeile von vorherige Seite angezeigt werden?

[MmVisual]

Vielen Dank für den Code!

Ich habe das Scrollen noch etwas "verfeinert". Nun kann mit "Ctrl" seitenweise gescrollt werden, und ohne "Ctrl" so wie vorher:

Code: Alles auswählen

function TDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(OnMouseWheelUp) then
    OnMouseWheelUp(Self, Shift, MousePos, Result);
  if not Result and Datalink.Active then begin
    // hier die Änderung:
    if ssCtrl In Shift then TComponentDataLink(Datalink).MoveBy(-VisibleRowCount*2+1)
    else TComponentDataLink(Datalink).MoveBy(-1);
    Result := True;
  end;
end;

function TDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(OnMouseWheelDown) then
    OnMouseWheelDown(Self, Shift, MousePos, Result);
  if not Result and Datalink.Active then begin
    // hier die Änderung:
    if ssCtrl In Shift then TComponentDataLink(Datalink).MoveBy(VisibleRowCount*2-Row)
    else TComponentDataLink(Datalink).MoveBy(1);
    Result := True;
  end;
end; 

Eventuell müsste man das
TMouseWheelOption = (mwCursor, mwGrid);
noch erweitern zu:
TMouseWheelOption = (mwCursor, mwGrid, mwBoth);
Mit dem mwBoth könnte man das mit der Ctrl Taste einbauen.

Guter Tipp, dass man die Klasse TDBGrid lokal einfach überschreiben kann ohne gleich eine neue Komponente erfinden zu müssen.

[wp_xyz]

Ich würde das nicht mit der mwGrid-Option zusammenwürfeln. Denn das mwGrid beim TStringGrid funktioniert anders: da bleibt die aktive Zeile unverändert und es scrollt nur das Grid, das die Zelle "mitnimmt" und diese allmählich aus dem sichtbaren Fenster herausbefördert. In dieser Lösung hier aber scrollt weiterhin die aktive Zelle, nur halt in größeren Sprüngen. Das verhält sich so wie PgUp/PgDown mit dem Mausrad bedient.

[Soner]

wp_xyz bei TDBGrid muss die aktive Zeile immer in sichtbaren Bereich sein, aber dieser Unterschied ist für den Benutzer unwichtig, Hauptsache er scrollt Seitenweise. Ob seitenweise oder zeilenweise, am Endeffekt wird gescrollt und die aktive Zeile wird auf jeden Fall geändert.

Die Idee von MmVisiual ist auch gut. Ich tendiere auf so etwas:

Code: Alles auswählen

if (ssCtrl In Shift)or(MouseWheelOption=mwGrid) then  Seiteweisescrollen
else Normalscrollen;

Damit sind die bisherigen Benutzer, die an einem Programm gewöhnt sind nicht verwirrt, aber man kann auch seitenweise Scrollen.

Schreibt einfach was ihr denkt, ihr versuche morgen Abend ein Patch zu reichen.

[Soner]

Ich habe hier feature request eingereicht, wie ich oben in meinem letzten Text beschrieben habe.
Macht eure Ergänzungen oder Einwände bitte dort.