Class TWPPreview
Hierarchy
System.TObject | System.Classes.TPersistent | System.Classes.TComponent | Vcl.Controls.TControl | Vcl.Controls.TWinControl | Vcl.Controls.TCustomControl | WPRTEDefs.TWPCustomRTFControl | WPCTRMemo.TWPCustomRtfEdit | TWPPreview
Description
This class inherits from the TWPCustomRtfEdit class which is also used to build an editor for text.The difference to the latter class the TWPPreview has been specially preconfigurated to view text which is displayed also in an TWPCustomRtfEdit control. It cannot be used without any TWPCustomRtfEdit control attached to it.
The preview is not automatically updated when text is added to the editor. You need to add some code to the OnDelayedUpdate event:
procedure TForm1.WPRichText1DelayedUpdate(Sender: TObject;
var WPUPD_Code: Integer; Param: Integer);
begin
if WPUPD_Code=WPUPD_AFTER_REORDERPAGES then
WPPreview1.Refresh;
end;
Methods
Events
AfterPaintDesktopBackground : TWPOnPaintDesktopBackground= TWPOnPaintDesktopBackground
HyperLinkEvent : THyperLinkEvent= THyperLinkEvent
OnActivateHint : TWPActivateHintEvent= TWPActivateHintEvent
OnActivatingHotStyle : TWPActivatingHotStyle= TWPActivatingHotStyle
OnCalcPageNr : TWPOnCalcPageNr= TWPOnCalcPageNr
OnChangeViewMode : TNotifyEvent= procedure (Sender : TObject) of Object
OnChangeZooming : TNotifyEvent= procedure (Sender : TObject) of Object
OnClick : TWPCustomRtfEditClick= TWPCustomRtfEditClick
OnClickHotText : TWPClickHotTextEvent= TWPClickHotTextEvent
OnClickPage : TOnClickPageEvent= TOnClickPageEvent
OnClickText : TWPClickTextEvent= TWPClickTextEvent
OnCustomLinePaintAfter : TWPVirtPagePaintEvent= TWPVirtPagePaintEvent
OnCustomLinePaintBefore : TWPVirtPagePaintEvent= TWPVirtPagePaintEvent
OnDblClick : TWPCustomRtfEditClick= TWPCustomRtfEditClick
OnDeactivateHotStyle : TWPDeactivateHotStyle= TWPDeactivateHotStyle
OnDragDrop : TDragDropEvent= TDragDropEvent
OnDragOver : TDragOverEvent= TDragOverEvent
OnEndDrag : TEndDragEvent= TEndDragEvent
OnEnter : TNotifyEvent= procedure (Sender : TObject) of Object
OnExit : TNotifyEvent= procedure (Sender : TObject) of Object
OnGetAttributeColor : TWPGetAttrColorEvent= TWPGetAttrColorEvent
OnKeyDown : TKeyEvent= TKeyEvent
OnKeyPress : TKeyPressEvent= TKeyPressEvent
OnKeyUp : TKeyEvent= TKeyEvent
OnMouseDown : TMouseEvent= TMouseEvent
OnMouseMove : TMouseMoveEvent= TMouseMoveEvent
As ususal this event is triggered when the mouse is moved over the editor.
You can use
OnMouseUp : TMouseEvent= TMouseEvent
OnPaint : TNotifyEvent= procedure (Sender : TObject) of Object
OnPaintDesktopBackground : TWPOnPaintDesktopBackground= TWPOnPaintDesktopBackground
OnPaintExternPage : TWPOnPaintExternPageEvent= TWPOnPaintExternPageEvent
OnPaintWatermark : TWPOnPaintWatermarkEvent= TWPOnPaintWatermarkEvent
OnResize : TNotifyEvent= procedure (Sender : TObject) of Object
OnTextObjectClick : TTextObjectClickEvent= TTextObjectClickEvent
OnTextObjectMouseDown : TTextObjectMouseEvent= TTextObjectMouseEvent
OnTextObjectMouseMove : TTextObjectMouseEvent= TTextObjectMouseEvent
OnTextObjectMouseUp : TTextObjectMouseEvent= TTextObjectMouseEvent
OnTextObjectPaint : TWPTextObjectPaintEvent= TWPTextObjectPaintEvent
OnUpdateExternScrollbar : TWPUpdateExternScrollbar= TWPUpdateExternScrollbar
Used or referenced by
-Procedure TWPCustomAttrDlg.ChangeApplied(aEditBox:TWPCustomRtfEdit) |
-Function TWPSuperMerge.GetEditor : TWPCustomRTFControl |
-Procedure TWPCustomAttrDlg.ChangeApplied(aEditBox:TWPCustomRtfEdit) |