DBGrid horizontale ScrollBar Position

[sega84]

Hallo,
ist es möglich mit einem TSMDBGrid, welches mit Option RowSelect läuft, die aktuelle horizontale ScrollBar Position zu ermitteln und wieder zurück zu schreiben?
Vielen Dank für eure Antworten...

[DeddyH]

Wenn Du an das Handle kommst, könnten vielleicht GetScrollInfo und SetScrollInfo helfen.

[sega84]

Das hatte ich bereits versucht.
Die Scrollbars werden auch richtig gesetzt, nur steht das Grid trotzdem immer wieder auf dem ersten Datensatz.

[haentschman]

Moin...

verwechselst du vieleicht horizontal mit vertikal ? :gruebel:
Du sprichst von Datensatz... Willst du den "letzten markierten" Datensatz wieder markieren ? (vertikal) oder zu einer entsprechenden Spalte scrollen ? (horizontal)

[sega84]

Oh sorry, da habe ich mir im letzten Post geirrt...
Ich meinte das DBGrid springt automatisch auf die erste Spalte, er sollte allerdings auf die Spalte der ScrollBar Position springen...

Hier ein wenig Code, wie ich es ausführe:

Code:

 
  var TempScrollInfo: SCROLLINFO;
begin
  // Position der horizontalen Scrollbar
  TempScrollInfo.cbSize := SizeOf(SCROLLINFO);
  TempScrollInfo.fMask := SIF_POS;
  GetScrollInfo(grdData.Handle, SB_HORZ, TempScrollInfo );
  //Daten neu laden...
  //..
   
  //Die horizontale Scrollposition wiederherstellen
  SetScrollInfo(grdData.Handle, SB_HORZ, TempScrollInfo, true);

[DeddyH]

Was gibt GetScrollInfo denn zurück?

[sega84]

Folgende Werte erhalte ich:

[DeddyH]

Zitat:

Remarks

The SetScrollInfo function performs range checking on the values specified by the nPage and nPos members of the SCROLLINFO structure. The nPage member must specify a value from 0 to nMax - nMin +1. The nPos member must specify a value between nMin and nMax - max( nPage– 1, 0). If either value is beyond its range, the function sets it to a value that is just within the range.

Das klingt für mich so, als müsstest Du beim GetScrollInfo-Aufruf die fMask ausweiten auf SIF_PAGE or SIF_POS or SIF_RANGE.

[edit] So müsste es gehen (mit einem Memo getestet):

Delphi-Quellcode:

  var TempScrollInfo: SCROLLINFO;
begin
  // Position der horizontalen Scrollbar
  TempScrollInfo.cbSize := SizeOf(SCROLLINFO);
  TempScrollInfo.fMask := SIF_POS;
  GetScrollInfo(grdData.Handle, SB_HORZ, TempScrollInfo );
  //Daten neu laden...
  //..
   
  //Die horizontale Scrollposition wiederherstellen
  SetScrollInfo(grdData.Handle, SB_HORZ, TempScrollInfo, true);
  grdData.Perform(WM_HSCROLL, Info.nPos shl 16 or SB_THUMBPOSITION, 0);

[/edit]
[edit2] Das SetScrollInfo kann sogar entfallen, schadet aber auch nicht. [/edit2]

[-187-]

Moin. Ich weiss das Thema ist schon alt aber ich möchte es nochmal aufgreifen und fragen wofür "Info.nPos" steht? Wo wird das deklariert und als was?

[DeddyH]

Das war ein C&P-Fehler, es muss natürlich TempScrollInfo heißen.