Ich habe ein RichEdit mit einheitlichen Zeilenhöhen (14px) und möchte ein Smooth-Scrolling verhindern (also immer Zeilenweise scrollen).
Wie kann man das am einfachsten realisieren?
Mit
Delphi-Quellcode:
oPos := (GetScrollPos(RichEdit1.Handle, sb_vert));
oPosM := (oPos mod 14);
if (oPosM > 0) then
begin
// (RichEdit1.Handle, sb_vert, oPos - oPosM, LONGBOOL(True));
// RichEdit1.Perform(EM_LINESCROLL, 0, -1); //-oPosM);
// SetScrollPos(RichEdit1.Handle, sb_vert, oPos - oPosM, LONGBOOL(True));
Beep;
end;
kann ich schon ermitteln, dass der Textbereich z.B. um 4 Pixel verschoben ist, aber ich kann das nicht vernünftig korrigieren.
Wie lässt sich das über WMVScroll regeln?