Richedit - noch einmal Cursor positionieren

[mani64]

Hallo,

mit Bezug auf diesen Topic - um den Bildausschnitt richtig zu fixieren, muss ich doch anders vorgehen, weil die Länge des Textes sich ja geändert hat und daher auch die relative Position der Scrollbar.

Wie wäre dieses? Ich positioniere den Cursor im Bildausschnitt oben links, merke mir die Position und komme später mit
richedit.Perform(EM_SCROLLCARET,0,0) zu dieser Position zurück und versetze dann den Cursor mit Selstart an die Position innerhalb des Bildausschnittes.

Dazu müsste ich nur noch wissen, wie ich den Cursor im Bildausschnitt oben links positioniere bzw. welchen Wert ich dazu an Selstart übergeben muss. Per Tasten ist das einfach: Strg + Bild.up.
Also Frage: Wie bekomme ich den Cursor an die Position oben links im aktuellen Bildausschnitt?

Selstart:=...

- damit ich später mit richedit.Perform(EM_SCROLLCARET,0,0) erst zu dieser Position scrollen und anschließend den Cursor wieder an die alte Position innerhalb des Bildausschnittes setzen kann?

Danke für Hilfe.

[Lannes]

Hallo,

Zitat:

Zitat von mani64

...Also Frage: Wie bekomme ich den Cursor an die Position oben links im aktuellen Bildausschnitt?

SwissDelphiCenter :arrow: ...die erste/letzte sichtbare Zeile eines TRichEdits ermitteln?

[mani64]

Vielen Dank für den Tipp!

Jetzt kann ich die Zeile ermitteln. Bleibt nur noch ein Problem: Wie scrolle ich wieder zu dieser Zeile, damit sie die erste auf dem Bildschirm ist?

Edit:
Ich glaube ich hab's schon gefunden. (EM_LINEINDEX)

[r29d43]

Hallo,

du hattest das Manko dieses Verfahrens schon richtig erwähnt: "...mit Bezug auf diesen Topic - um den Bildausschnitt richtig zu fixieren, muss ich doch anders vorgehen, weil die Länge des Textes sich ja geändert hat und daher auch die relative Position der Scrollbar."

Besser als diese realtive ist da also eine quasi absolute Positionierung, per em_-Messages:

Delphi-Quellcode:

const EM_GETSCROLLPOS = WM_USER +221;
      EM_SETSCROLLPOS = WM_USER +222;
var oldSelStart : integer;
    ScrollXY0 : TPoint;


// - - - - - Code - - - - - 


with RichEdit1 do begin
  Lines.BeginUpdate;
  Perform(EM_GETSCROLLPOS,0,integer(@ScrollXY0));                     
  oldSelStart := SelStart;                                           
  ...

  ...
  SelStart := oldSelStart;                                            
  Perform(EM_SetScrollPos,0,integer(@ScrollXY0));                     
  Lines.EndUpdate;
end;