Problem mit RxRichEdit unter 2000 und XP

[Sourcemaker]

Ich habe jetzt folgendes Code-Fragment aus der Unit RxRichEd verändert:

Delphi-Quellcode:

{$IFDEF RX_D5}
procedure TRxCustomRichEdit.WMRButtonUp(var Message: TMessage);
begin
  { RichEd20 does not pass the WM_RBUTTONUP message to defwndproc, }
  { so we get no WM_CONTEXTMENU message. Simulate message here.    }
  //if Win32MajorVersion < 5 then //auskommentiert sonst keine PopUp-Menu unter 2000/XP
    Perform(WM_CONTEXTMENU, Handle, LParam(PointToSmallPoint(
      ClientToScreen(SmallPointToPoint(TWMMouse(Message).Pos)))));
  inherited;
end;
{$ENDIF}

das scheint gut zu funktionieren.