Richedit Zeilenweise scrollen die zweite

[Memnarch]

Naja, das zeichnen auf der Bitmap klappt zwar, allerdings wegen des scrollens manchmal doch nicht so ganz. Vertikal klappts perfekt. Da kann ich mir ja imemr die erste sichtbare Zeile des Richedit geben lassen.

Sich ne eigene Thumbbar zu machen könnte eventuell die lösung sein. EVENTUEL. Den auch dort kann ich die position auslesen. Inziwschen klappt mein Horizontales scrollen per standart scrollbar ganz gut. NUR das klicken auf die Pfeile links u. Rechts wird nicht berücksichtigt. Da werden andere nachrichten geschick.(LINE_RIGHT/LINE_LEFT o.ä. ... nur wo kann ich DIE abfangen? in WMV/WMH_Scroll werden die nicht hingefeuert, die landen woanders).


MFG
Memnarch

[stahli]

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?

[stahli]

Ich habe es jetzt ganz brauchbar hin bekommen.
Falls es jemandem mal hilft:

Delphi-Quellcode:

unit uRichEdit;

interface

  uses

    Vcl.ComCtrls, System.Classes, Winapi.Messages;

  type

    TRichEdit = class(Vcl.ComCtrls.TRichEdit)
    protected
      procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
      procedure WMVScroll(var Msg: TWMScroll); message WM_VSCROLL;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
    end;

implementation

  uses

    Winapi.Windows, System.SysUtils;

{ TRichEdit }

  constructor TRichEdit.Create(AOwner: TComponent);
  begin
    inherited;
  end;

  destructor TRichEdit.Destroy;
  begin
    inherited;
  end;

  procedure TRichEdit.WMVScroll(var Msg: TWMScroll);
  var
    mPos : Integer;
    mPosM: Integer;
  begin
    mPos := Msg.Pos;
    mPosM := (mPos mod 14);
    if (mPosM > 0) then
      begin
        Msg.Pos := (mPos - mPosM);
      end;
    inherited;
//  OutputDebugString(PWideChar(IntToStr(mPos) + ' / ' + IntToStr(mPosM) + ' -> ' + IntToStr(Msg.Pos)));
  end;

  procedure TRichEdit.WMMouseWheel(var Msg: TWMMouseWheel);
  var
    mPos : Integer;
    mPosM: Integer;
  begin
    if (Msg.Keys = 1) then
      Msg.Keys := 0; //: Zoom-Bug der Logitec MX Master 3 unterdrücken
      mPos := Msg.WheelDelta;
    mPosM := (mPos mod 14);
    if (mPosM > 0) then
      begin
        Msg.WheelDelta := (mPos - mPosM);
      end;
    inherited;
//  OutputDebugString(PWideChar(IntToStr(mPos) + ' / ' + IntToStr(mPosM) + ' -> ' + IntToStr(Msg.WheelDelta)));
  end;

end.