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

Procedure BeforeDestruction

Create(aOwner:TComponent)

Procedure CreateWnd

Procedure DestroyWnd

Procedure Loaded

Procedure Paint

Procedure Refresh(SpellCheck:Boolean)

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 to optain the text position.

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)