RichText und Scrollen mit Mausrad

[haentschman]

Hallöle...

Ich habe einen Frame mit einem RichEdit drin... eingebettet auf einem Panel in der Oberfläche. Unter D11 konnte man, wenn das Edit den Focus hatte, mit dem Mausrad scrollen. Seit D12 srollt das Edit nicht mehr sondern der Parent auf dem der Frame liegt.

Was hat sich verändert? Die Properties haben sich nicht verändert.

PS: Seit D12 habe ich auch DevExpress aktualisiert.
PS: Ein normales Memo läßt sich mit dem Mausrad scollen...in der gleichen Ansicht.

Danke für Infos...

[haentschman]

...keiner hat eine Idee?

[haentschman]

Moin...

Klarstellung: Es hat nichts mit D12 zu tun.

Im Video (Scroll.zip) ist zu sehen, dass das Mausrad auf das Layout Control reagiert und nicht auf das Control mit dem Focus. Wenn das Layout Control so groß ist, das kein Scrollbalken erscheint, scrollt auch das RTF Feld.

Wie bekomme ich die Message an das Active RTF weitergeleitet? ...ich kann damit leben das Layout Control nicht mehr scrollt.

Danke...

Ausprobiert:
Wenn das Active Control ein RichEdit ist, dann wird das Scrollen des Layouts unterbunden. Soweit ok. Aber das Senden an das RichEdit funtioniert nicht...

Delphi-Quellcode:

procedure TfoReceipt.dxLayoutMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  inherited;
  if Self.ActiveControl is TCustomRichEdit then
  begin
    Handled := True;
    SendMessage(Self.ActiveControl.Handle, CM_MOUSEWHEEL, WheelDelta, 0); // -> scrollt nicht
  end;
end;

...wo ist der Fehler?

PS: Ich habe gefühlt alle Varianten, auch mit Perform, mit verschiedenen Parameter Konstellationen durch.

[peterbelow]

Warum schickst Du dem richedit ein CM_MOUSEWHEEL und nicht WM_MOUSEWHEEL?

[haentschman]

Danke...

Zitat:

Warum schickst Du dem richedit ein CM_MOUSEWHEEL und nicht WM_MOUSEWHEEL?

Ich habe gefühlt alle SendMessage Varianten (CM_MOUSEWHEEL + WM_MOUSEWHEEL) und Perform durch.
...egal wo ich das SendMessage plaziere...das RichEdit reagiert nicht. Im OnMouseWheel, auch im Frame nach Handled := True, die gleiche Message zum RichEdit absetzen führt zu einem Stack Overflow. (Schleife imho logisch)
Dann habe ich ScrollBy im MousewheelUp/Down versucht. ScrollBy reagiert aber die Oberfläche zeichnet nicht richtig...Mit Invalidate wird der Cursor wieder auf Anfang gesetzt.

Mir gehen die Ideen aus...

[himitsu]

Der Eingabefokus liegt aber beim RichEdit?
Viele Komponenten reagieren nichts auf's Scrollen, wenn sie nicht aktiv sind,

[haentschman]

Zitat:

Der Eingabefokus liegt aber beim RichEdit?

...definitiv. Ich kann schreiben...aber nicht scrollen.

[jaenicke]

Zitat von haentschman:

Aber das Senden an das RichEdit funtioniert nicht...

Delphi-Quellcode:

procedure TfoReceipt.dxLayoutMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  inherited;
  if Self.ActiveControl is TCustomRichEdit then
  begin
    Handled := True;
    SendMessage(Self.ActiveControl.Handle, CM_MOUSEWHEEL, WheelDelta, 0); // -> scrollt nicht
  end;
end;

...wo ist der Fehler?

PS: Ich habe gefühlt alle Varianten, auch mit Perform, mit verschiedenen Parameter Konstellationen durch.

Wie wäre es so?

Delphi-Quellcode:

const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;
var
  ScrollPos: TPoint;
begin
  RichEdit1.Perform(EM_GETSCROLLPOS, 0, @ScrollPos);
  ScrollPos.Offset(0, 50);
  RichEdit1.Perform(EM_SETSCROLLPOS, 0, @ScrollPos);
end;

[haentschman]

Moin...

Heureka...ich habs...mit Hilfe. (jaenicke)

Delphi-Quellcode:

procedure TfrRTFBase.edtRTFMouseWheelDown(Sender: TObject; Shift: TShiftState;  MousePos: TPoint; var Handled: Boolean); // #1462
const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;
var
  ScrollPos: TPoint;
begin
  Handled := True;
  if GetWindowLong(edtRTF.Handle, GWL_STYLE) = conScrollbarVisible then
  begin
    edtRTF.Perform(EM_GETSCROLLPOS, 0, @ScrollPos);
    ScrollPos.Offset(0, 50);
    edtRTF.Perform(EM_SETSCROLLPOS, 0, @ScrollPos);
  end;
end;

procedure TfrRTFBase.edtRTFMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); // #1462
const
  EM_GETSCROLLPOS = $04DD;
  EM_SETSCROLLPOS = $04DE;
var
  ScrollPos: TPoint;
begin
  Handled := True;
  if GetWindowLong(edtRTF.Handle, GWL_STYLE) = conScrollbarVisible then
  begin
    edtRTF.Perform(EM_GETSCROLLPOS, 0, @ScrollPos);
    ScrollPos.Offset(0, -50);
    edtRTF.Perform(EM_SETSCROLLPOS, 0, @ScrollPos);
  end;
end;

siehe Video

Danke.

[jaenicke]

Das sieht so aus, als ob es sinnvoll wäre, bei der äußeren Scrollbar Smooth auf True zu setzen. Zumindest bei einer TScrollBox sieht es dann viel besser aus.

Ich meine die Scrollgeschwindigkeit, wenn du im rechten Bereich scrollst.