开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > RichEdit > 查看源码
RichView.pas
资源名称：TRichView.v1.9.10.2.rar　[点击查看]
上传用户：daoqigc
上传日期：2021-04-20
资源大小：2795k
文件大小：142k
源码类别：

RichEdit

开发平台：

Delphi

RichView.pas：源码内容
  1. {*******************************************************}
  2. {                                                       }
  3. {       RichView                                        }
  4. {       TRichView: document viewer                      }
  5. {       (registered on "RichView" page of               }
  6. {       the Component Palette)                          }
  7. {                                                       }
  8. {       Copyright (c) Sergey Tkachenko                  }
  9. {       svt@trichview.com                               }
  10. {       http://www.trichview.com                        }
  11. {                                                       }
  12. {*******************************************************}
  14. unit RichView;
  16. interface
  17. {$I RV_Defs.inc}
  18. {$IFDEF RICHVIEWDEF6}
  19. {$WARN SYMBOL_DEPRECATED OFF}
  20. {$ENDIF}
  21. uses
  22.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  23.   DLines, RVItem, RVStyle, RVScroll, RVFMisc, RVFuncs, CRVData, CRVFData, RVRVData,
  24.   RVBack, RVUni, Registry, Menus, RichEdit,
  25.   {$IFDEF RICHVIEWDEF4}
  26.   ImgList,
  27.   {$ENDIF}
  28.   {$IFNDEF RVDONOTUSEDRAGDROP}
  29.   RVDragDrop, ActiveX,
  30.   {$ENDIF}
  31.   {$IFNDEF RVDONOTUSELIVESPELL}
  32.   RVWordPaint, RVThread,
  33.   {$ENDIF}
  34.   {$IFNDEF RVDONOTUSESMARTPOPUP}
  35.   RVPopup,
  36.   {$ENDIF}
  37.   ClipBrd,
  38.   RVRTFProps, RVRTFErr, StdCtrls;
  39. const
  40.   WM_RVDRAGDROP = WM_USER+16;
  41.   WM_RVRELOAD   = WM_USER+17;
  43. {------------------------------------------------------------------------------}
  45.   { For internal use. Types and constants for implementing Windows messages with
  46.     inplace editor.
  47.     Some messages cannot be processed directly in inplace editor, because
  48.     they can cause its destruction (from inside Delphi events).
  49.     Due to VCL design, destruction of component during processing these
  50.     messages will crash the application.
  51.     So, RV sends (via PostMessage) WM_RVEVENT to the root editor, which in its
  52.     case call proper event                                                     }
  54. const
  55.   WM_RVEVENT    = WM_USER + 15;
  57.   RV_TIMERID_SCROLLING = 1;
  58.   RV_TIMERID_ANIMATION = 2;
  60. type
  62.   // identifies event
  63.   TRVEventType = (rvetRVDblClick, rvetJump, rvetRVMouseUp, rvetRVMouseDown,
  64.     rvetClick, rvetDblClick, rvetMouseMove, rvetDragDrop, rvetEndDrag);
  66.   // basic class for data passed to WM_RVEVENT handler
  67.   TRVMessageData = class
  68.     public
  69.       Event: TRVEventType;
  70.   end;
  72.   // for OnClick
  73.   TRVClickMessageData = class (TRVMessageData)
  74.   end;
  76.   // for OnDblClick
  77.   TRVStdDblClickMessageData = class (TRVMessageData)
  78.   end;
  80.   // for OnRVDblClick
  81.   TRVDblClickMessageData = class (TRVMessageData)
  82.     public
  83.       ClickedWord: String;
  84.       StyleNo: Integer;
  85.   end;
  87.   // for OnJump
  88.   TRVJumpMessageData = class (TRVMessageData)
  89.     public
  90.       id: Integer;
  91.   end;
  93.   // for OnRVMouseMove
  94.   TRVMouseMoveMessageData = class (TRVMessageData)
  95.     public
  96.       X,Y,ItemNo: Integer;
  97.       Shift: TShiftState;
  98.   end;
  100.   // for OnRVMouseUp and OnRVMouseDown
  101.   TRVMouseUpDownMessageData = class (TRVMouseMoveMessageData)
  102.     public
  103.       Button: TMouseButton;
  104.   end;
  106.   // for rvetDragDrop and rvetEndDrag
  107.   TRVDNDMessageData = class (TRVMessageData)
  108.     public
  109.       X, Y: Integer;
  110.       Obj: TObject;
  111.   end;
  113.   TCustomRichView = class;
  115.   { Step of printing or repaginating }
  116.   TRVPrintingStep = (
  117.     rvpsStarting,       // operation is started
  118.     rvpsProceeding,     // next page is completed
  119.     rvpsFinished);      // operation is finished
  121.   { When live spelling is started? }
  122.   TRVLiveSpellingMode = (
  123.     rvlspManualStart,   // only on call of StartLiveSpelling
  124.     //rvlspOnFormat,      // when you call Format
  125.     rvlspOnChange);     // on editing operation (only for editor)
  127.   { When animations are started? }
  128.   TRVAnimationMode = (
  129.     rvaniDisabled,
  130.     rvaniManualStart,
  131.     rvaniOnFormat);
  133.   TRVYesNoAuto =
  134.   ( rvynaNo, rvynaYes, rvynaAuto );
  136.   { ---------------- Types for events of TCustomRichView --------------------- }
  137.   TJumpEvent = procedure (Sender: TObject; id: Integer) of object;
  139.   TRVMouseMoveEvent = procedure (Sender: TObject; id: Integer) of object;
  141.   TRVMouseEvent = procedure (Sender: TCustomRichView; Button: TMouseButton;
  142.     Shift: TShiftState; ItemNo, X, Y: Integer) of object;
  144.   TRVSaveComponentToFileEvent = procedure (Sender: TCustomRichView;
  145.     Path: String; SaveMe: TPersistent; SaveFormat: TRVSaveFormat;
  146.     var OutStr:String) of object;
  148.   TRVSaveItemToFileEvent = procedure (Sender: TCustomRichView;
  149.     const Path: String; RVData: TCustomRVData; ItemNo: Integer;
  150.     SaveFormat: TRVSaveFormat; Unicode: Boolean; var OutStr:String;
  151.     var DoDefault: Boolean) of object;
  153.   TRVURLNeededEvent = procedure (Sender: TCustomRichView; id: Integer;
  154.     var url:String) of object;
  156.   TRVDblClickEvent = procedure (Sender: TCustomRichView; ClickedWord: String;
  157.     Style: Integer) of object;
  159.   TRVRightClickEvent = procedure (Sender: TCustomRichView; ClickedWord: String;
  160.     Style, X, Y: Integer) of object;
  162.   TRVFPictureNeededEvent = procedure  (Sender: TCustomRichView; Name: String;
  163.     Tag: Integer; var gr: TGraphic) of object;
  165.   TRVFControlNeededEvent = procedure  (Sender: TCustomRichView; Name: String;
  166.     Tag: Integer; var ctrl: TControl) of object;
  168.   TRVCheckpointVisibleEvent = procedure (Sender: TCustomRichView;
  169.     CheckpointData: TCheckpointData) of object;
  171.   TRVControlActionEvent = procedure (Sender: TCustomRichView;
  172.     ControlAction: TRVControlAction; ItemNo: Integer;
  173.     var ctrl: TControl) of object;
  175.   TRVItemActionEvent = procedure (Sender: TCustomRichView;
  176.     ItemAction: TRVItemAction; Item: TCustomRVItemInfo; var Text: String;
  177.     RVData: TCustomRVData) of object;
  179.   TRVFImageListNeededEvent = procedure (Sender: TCustomRichView;
  180.     ImageListTag: Integer; var il: TCustomImageList) of object;
  182.   TRVHTMLSaveImageEvent = procedure (Sender: TCustomRichView;
  183.     RVData: TCustomRVData; ItemNo: Integer; const Path: String;
  184.     BackgroundColor: TColor; var Location: String;
  185.     var DoDefault: Boolean) of object;
  187.   TRVSaveImageEvent2 = procedure (Sender: TCustomRichView; Graphic: TGraphic;
  188.     SaveFormat: TRVSaveFormat; const Path, ImagePrefix: String;
  189.     var ImageSaveNo: Integer; var Location: String;
  190.     var DoDefault: Boolean) of object;
  192.   TRVReadHyperlink = procedure (Sender: TCustomRichView;
  193.     const Target, Extras: String; DocFormat: TRVLoadFormat;
  194.    var StyleNo, ItemTag: Integer; var ItemName: String) of object;
  196.    TRVWriteHyperlink = procedure (Sender: TCustomRichView;
  197.      id: Integer; RVData: TCustomRVData; ItemNo: Integer;
  198.      SaveFormat: TRVSaveFormat; var Target, Extras: String) of object;
  200.   TRVSaveRTFExtraEvent = procedure (Sender: TCustomRichView;
  201.     Area: TRVRTFSaveArea; Obj: TObject; Index1, Index2: Integer;
  202.     InStyleSheet: Boolean; var RTFCode: String) of object;
  204.   TRVSaveHTMLExtraEvent = procedure (Sender: TCustomRichView;
  205.     Area: TRVHTMLSaveArea; CSSVersion: Boolean;
  206.     var HTMLCode: String) of object;
  208.   TRVSaveParaToHTMLEvent = procedure (Sender: TCustomRichView;
  209.     RVData: TCustomRVData; ItemNo: Integer; ParaStart, CSSVersion: Boolean;
  210.     var HTMLCode: String) of object;
  212.   TRVPaintEvent = procedure (Sender: TCustomRichView;
  213.     Canvas: TCanvas; Prepaint: Boolean) of object;
  215.   TRVImportPictureEvent = procedure (Sender: TCustomRichView;
  216.     const Location: String; Width, Height: Integer;
  217.     var Graphic: TGraphic) of object;
  219.   TRVItemHintEvent = procedure (Sender: TCustomRichView;
  220.     RVData: TCustomRVData; ItemNo: Integer; var HintText: String) of object;
  222.   TRVProgressEvent = procedure (Sender: TCustomRichView;
  223.     Operation: TRVLongOperation; Stage: TRVProgressStage;
  224.     PercentDone: Byte) of object;
  226.   TRVSpellingCheckEvent = procedure (Sender: TCustomRichView; const AWord: String;
  227.     StyleNo: Integer; var Misspelled: Boolean) of object;
  229.   TRVSpellingCheckExEvent = procedure (Sender: TCustomRichView; const AWord: String;
  230.     RVData: TCustomRVData; ItemNo: Integer; var Misspelled: Boolean) of object;
  232.   TRVSmartPopupClickEvent = procedure (Sender: TCustomRichView;
  233.     Button: TCustomControl) of object;
  235.   //TRVReadHiddenTextEvent = procedure (Sender: TCustomRichView; const Text: String;
  236.   //  DocFormat: TRVLoadFormat;
  238.   { -------------------------------------------------------------------------- }
  239.   { TCustomRichView: ancestor class for TRichView, TRichViewEdit, TDBRichView,
  240.       TDBRichViewEdit
  241.   }
  243.   TCustomRichView = class(TRVScroller)
  244.   private
  245.     { Private declarations }
  246.     FCursor: TCursor;
  247.     FOptions: TRVOptions;
  248.     FRTFOptions: TRVRTFOptions;
  249.     ScrollTimerActive: Boolean;
  250.     FDelimiters: String;
  251.     FOnJump: TJumpEvent;
  252.     FOnRVMouseMove: TRVMouseMoveEvent;
  253.     FOnSaveComponentToFile: TRVSaveComponentToFileEvent;
  254.     FOnSaveItemToFile: TRVSaveItemToFileEvent;
  255.     FOnURLNeeded: TRVURLNeededEvent;
  256.     FOnRVDblClick: TRVDblClickEvent;
  257.     FOnRVRightClick: TRVRightClickEvent;
  258.     FOnRVMouseUp,FOnRVMouseDown: TRVMouseEvent;
  259.     FOnControlAction: TRVControlActionEvent;
  260.     FOnItemAction: TRVItemActionEvent;
  261.     FCPEventKind: TCPEventKind;
  262.     FOnRVFPictureNeeded: TRVFPictureNeededEvent;
  263.     FOnRVFControlNeeded: TRVFControlNeededEvent;
  264.     FOnRVFImageListNeeded: TRVFImageListNeededEvent;
  265.     FOnCheckpointVisible: TRVCheckpointVisibleEvent;
  266.     FMaxTextWidth, FMinTextWidth, FLeftMargin, FRightMargin, FTopMargin, FBottomMargin: Integer;
  267.     FRVFOptions: TRVFOptions;
  268.     FRVFWarnings: TRVFWarnings;
  269.     {$IFDEF RV_ODHC}
  270.     FOnDocumentHeightChange: TNotifyEvent;
  271.     {$ENDIF}
  272.     FOnCopy: TNotifyEvent;
  273.     FOnHTMLSaveImage: TRVHTMLSaveImageEvent;
  274.     FOnSaveImage2: TRVSaveImageEvent2;
  275.     FRTFReadProperties: TRVRTFReaderProperties;
  276.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  277.     FSmartPopupProperties: TRVSmartPopupProperties;
  278.     FOnSmartPopupClick: TRVSmartPopupClickEvent;
  279.     {$ENDIF}
  280.     FRVFTextStylesReadMode: TRVFReaderStyleMode;
  281.     FRVFParaStylesReadMode: TRVFReaderStyleMode;
  282.     FOnReadHyperlink: TRVReadHyperlink;
  283.     FOnWriteHyperlink: TRVWriteHyperlink;
  284.     FOnSaveRTFExtra: TRVSaveRTFExtraEvent;
  285.     FOnSaveHTMLExtra: TRVSaveHTMLExtraEvent;
  286.     FOnSaveParaToHTML: TRVSaveParaToHTMLEvent;    
  287.     FOnPaint: TRVPaintEvent;
  288.     FOnImportPicture: TRVImportPictureEvent;
  289.     FOnItemHint: TRVItemHintEvent;
  290.     FDocProperties: TStringList;
  291.     FOnProgress: TRVProgressEvent;
  292.     {$IFNDEF RVDONOTUSELIVESPELL}
  293.     FOnSpellingCheck: TRVSpellingCheckEvent;
  294.     FLiveSpellingMode: TRVLiveSpellingMode;
  295.     {$IFDEF RVLIVESPELLEXEVENT}
  296.     FOnSpellingCheckEx: TRVSpellingCheckExEvent;
  297.     {$ENDIF}
  298.     {$ENDIF}
  299.     {$IFNDEF RVDONOTUSEANIMATION}
  300.     FAnimationMode: TRVAnimationMode;
  301.     {$ENDIF}
  302.     {$IFDEF RICHVIEWDEF3}
  303.     FVAlign: TTextLayout;
  304.     {$ENDIF}
  305.     {$IFDEF RICHVIEWDEF5}
  306.     procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;
  307.     {$ENDIF}
  308.     procedure WMSize(var Message: TWMSize); message WM_SIZE;
  309.     procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  310.     procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  311.     procedure WMCopy(var Message: TWMCopy); message WM_COPY;
  312.     procedure WMTimer(var Message: TWMTimer); message WM_TIMER;
  313.     procedure WMDestroy(var Message: TWMDestroy); message WM_DESTROY;
  314.     procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
  315.     procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
  316.     procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
  317.     procedure WMRVEvent(var Message: TMessage); message WM_RVEVENT;
  318.     procedure WMRVDragDrop(var Message: TMessage); message WM_RVDRAGDROP;
  319.     {$IFNDEF RVDONOTUSELINEARPOSITIONS}
  320.     procedure EMGetSel(var Message: TMessage); message EM_GETSEL;
  321.     procedure EMSetSel(var Message: TMessage); message EM_SETSEL;
  322.     procedure EMGetTextRange(var Message: TMessage); message EM_GETTEXTRANGE;
  323.     {$IFNDEF RICHVIEWDEF9}
  324.     procedure WMGetTextLength(var Message: TMessage); message WM_GETTEXTLENGTH;
  325.     procedure WMGetText(var Message: TMessage); message WM_GETTEXT;
  326.     procedure WMSetText(var Message: TMessage); message WM_SETTEXT;
  327.     {$ENDIF}        
  328.     {$ENDIF}
  329.     {$IFNDEF RVDONOTUSEANIMATION}
  330.     procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED;
  331.     {$ENDIF}
  332.     function GetLineCount: Integer;
  334.     function GetAllowSelection: Boolean;
  335.     function GetSingleClick: Boolean;
  336.     procedure SetAllowSelection(const Value: Boolean);
  337.     procedure SetSingleClick(const Value: Boolean);
  338.     procedure DoOnBackBitmapChange(Sender: TObject);
  339.     function GetPageBreaksBeforeItems(Index: Integer): Boolean;
  340.     procedure SetPageBreaksBeforeItems(Index: Integer;  Value: Boolean);
  341.     function GetDocumentHeight: Integer;
  342.     function GetFirstJumpNo: Integer;
  343.     procedure SetFirstJumpNo(Value: Integer);
  344.     procedure SetTabNavigation(const Value: TRVTabNavigationType);
  345.     procedure SetRTFReadProperties(const Value: TRVRTFReaderProperties);
  346.     function StoreDelimiters: Boolean;
  347.     procedure SetDocProperties(const Value: TStringList);
  348.     {$IFNDEF RVDONOTUSELIVESPELL}
  349.     procedure DoClearLiveSpellingResults;
  350.     procedure ClearItemLiveSpellingResults(RVData: TCustomRVData; ItemNo: Integer;
  351.       var UserData1: Integer; const UserData2: String; var ContinueEnum: Boolean);
  352.     procedure LiveSpellingValidateWordInItem(RVData: TCustomRVData; ItemNo: Integer;
  353.       var UserData1: Integer; const UserData2: String; var ContinueEnum: Boolean);
  354.     {$ENDIF}
  355.     procedure FullInvalidate;
  356.     {$IFNDEF RVDONOTUSEANIMATION}
  357.     procedure SetAnimationMode(const Value: TRVAnimationMode);
  358.     procedure KillAnimators;
  359.     {$ENDIF}
  360.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  361.     function GetSmartPopupProperties: TRVSmartPopupProperties;
  362.     procedure SetSmartPopupProperties(
  363.       const Value: TRVSmartPopupProperties);
  364.     function GetSmartPopupVisible: Boolean;
  365.     procedure SetSmartPopupVisible(const Value: Boolean);
  366.     {$ENDIF}    
  367.     {$IFDEF RVDEBUG}{$I DebugDebPropDef.inc}{$ENDIF}
  368.   protected
  369.     { Protected declarations }
  370.     VScrollDelta, HScrollDelta: Integer;
  371.     FOnSelect: TNotifyEvent;
  372.     FStyle: TRVStyle;
  374.     imgSavePrefix: String;
  375.     SaveOptions: TRVSaveOptions;
  376.     CurrentFileColor: TColor;
  377.     {$IFNDEF RVDONOTUSELIVESPELL}
  378.     FWordEnumThread: TRVWordEnumThread;
  379.     {$ENDIF}
  380.     procedure AdjustPopupMenuPos(var pt: TPoint); dynamic;  
  381.     procedure SetBiDiModeRV(const Value: TRVBiDiMode); override;
  383.     procedure SetVSmallStep(Value: Integer); override;
  384.     procedure Paint; override;
  386.     function GetColor: TColor;
  387.     function GetHoverColor(Color: TColor):TColor;
  389.     function IsCopyShortcut(Shift: TShiftState; Key: Word): Boolean;
  390.     function IsCutShortcut(Shift: TShiftState; Key: Word): Boolean;
  391.     function IsPasteShortcut(Shift: TShiftState; Key: Word): Boolean;
  393.     procedure DblClick; override;
  394.     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  395.     procedure ClearTemporal; virtual;
  396.     function GetFirstItemVisible: Integer;
  397.     function GetLastItemVisible: Integer;
  398.     function GetBackBitmap: TBitmap;
  399.     procedure SetBackBitmap(Value: TBitmap);
  400.     procedure SetBackgroundStyle(Value: TBackgroundStyle);
  401.     function GetBackgroundStyle: TBackgroundStyle;
  402.     procedure Notification(AComponent: TComponent; Operation: TOperation);override;
  404.     procedure Loaded; override;
  405.     function CompareTags(Tag1, Tag2: Integer): Boolean;
  406.     procedure SetStyle(Value: TRVStyle); virtual;
  407.     procedure AfterVScroll; override;
  408.     procedure InplaceRedrawing(AllowRedrawItself: Boolean); virtual;
  409.     procedure AfterHScroll; override;
  410.     procedure GenerateMouseMove;
  411.     procedure Format_(OnlyResized,ForceFormat:Boolean; Canvas: TCanvas;
  412.           OnlyTail, NoCaching, Reformatting: Boolean);
  413.     function GetDataClass: TRichViewRVDataClass; virtual;
  414.     function GetTabNavigation:TRVTabNavigationType;
  415.     function GetRTFReadProperties: TRVRTFReaderProperties; virtual;
  416.     procedure AfterCreateWnd1; override;
  417.     procedure AfterCreateWnd2; override;
  418.     procedure SetName(const NewName: TComponentName); override;
  419.     {$IFNDEF RVDONOTUSELIVESPELL}
  420.     procedure ResumeLiveSpelling;
  421.     {$ENDIF}
  422.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  423.     procedure ShowSmartPopup;
  424.     procedure HideSmartPopup;
  425.     procedure SetSmartPopupTarget; dynamic;
  426.     {$ENDIF}    
  427.     { obsolete properties }
  428.     property AllowSelection: Boolean read GetAllowSelection write SetAllowSelection stored False;
  429.     property SingleClick   : Boolean read GetSingleClick    write SetSingleClick    stored False;
  430.     property OnPaint: TRVPaintEvent  read FOnPaint          write FOnPaint;
  431.   public
  432.     { Should be protected. Do not use! }
  433.     RVData: TRichViewRVData;
  434.     Flags : TRVFlags;
  435.     Background: TRVBackground;
  436.     imgSaveNo: Integer;
  437.     CurPictureInvalid: Boolean;
  438.     property Canvas;
  439.     procedure SelectNext_(GoForward: Boolean);
  440.     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override;
  441.     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
  442.     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override;
  443.     procedure ActivateScrollTimer(Slow: Boolean);
  444.     procedure DeactivateScrollTimer;
  445.     function RTFReaderAssigned: Boolean; dynamic;
  446.     procedure AssignEvents(Source: TCustomRichView);
  447.     { Public declarations }
  448.     constructor Create(AOwner: TComponent); override;
  449.     destructor Destroy; override;
  450.     procedure GetTabOrderList(List: TList); override;
  451.     procedure AssignSoftPageBreaks(RVPrint: TComponent);
  452.     procedure ClearSoftPageBreaks;
  454.     { add... methods: }
  455.     procedure AddItem(const Text: String; Item: TCustomRVItemInfo);
  456.     procedure AddNL(const s: String; StyleNo, ParaNo: Integer);
  457.     procedure AddFmt(const FormatStr: String; const Args: array of const;
  458.                      StyleNo, ParaNo: Integer);
  459.     procedure Add(const s: String; StyleNo:Integer);
  460.     procedure AddTextNL(const s: String; StyleNo, FirstParaNo, OtherParaNo: Integer);
  461.     procedure AddTextNLA(const s: String; StyleNo, FirstParaNo, OtherParaNo: Integer);
  462.     procedure AddTextBlockNL(s: String; StyleNo, ParaNo: Integer);
  463.     {$IFNDEF RVDONOTUSETABS}
  464.     procedure AddTab(TextStyleNo, ParaNo: Integer);
  465.     {$ENDIF}
  466.     procedure AddBreak;
  467.     function AddCheckpoint: Integer; { returns cp # }
  468.     function AddNamedCheckpoint(CpName: String): Integer; { returns cp # }
  469.     function AddNamedCheckpointEx(const CpName: String; RaiseEvent: Boolean): Integer; { returns cp # }
  470.     procedure AddPictureEx(const Name: String; gr: TGraphic; ParaNo: Integer;
  471.                            VAlign: TRVVAlign);
  472.     procedure AddHotPicture(const Name: String; gr: TGraphic; ParaNo: Integer;
  473.                            VAlign: TRVVAlign);
  474.     procedure AddHotspotEx(const Name: String; ImageIndex, HotImageIndex: Integer;
  475.                            ImageList: TCustomImageList; ParaNo: Integer);
  476.     procedure AddBulletEx (const Name: String; ImageIndex: Integer;
  477.                            ImageList: TCustomImageList; ParaNo: Integer);
  478.     procedure AddControlEx(const Name: String; ctrl: TControl;
  479.                            ParaNo: Integer; VAlign: TRVVAlign);
  480.     procedure AddBreakEx(Width: Byte; Style: TRVBreakStyle; Color: TColor);
  481.     {$IFDEF RVDEBUG}{$I DebugDebPropDef2.inc}{$ENDIF}
  482.     { add...tag methods: }
  483.     procedure AddNLTag(const s: String; StyleNo, ParaNo, Tag: Integer);
  484.     procedure AddTag(const s: String;StyleNo,Tag:Integer);
  485.     procedure AddBreakTag(Tag:Integer);
  486.     function AddCheckpointTag(Tag: Integer): Integer; { returns cp # }
  487. //    function AddNamedCheckpointTag(const CpName: String; Tag: Integer): Integer; { returns cp # }
  488.     function AddNamedCheckpointExTag(const CpName: String; RaiseEvent: Boolean;
  489.                                     Tag: Integer): Integer; { returns cp # }
  490.     procedure AddPictureExTag(const Name: String; gr: TGraphic; ParaNo: Integer;
  491.                               VAlign: TRVVAlign; Tag: Integer);
  492.     procedure AddHotPictureTag(const Name: String; gr: TGraphic; ParaNo: Integer;
  493.                               VAlign: TRVVAlign; Tag: Integer);
  494.     procedure AddHotspotExTag(const Name: String; ImageIndex, HotImageIndex: Integer;
  495.                               ImageList: TCustomImageList; ParaNo,Tag: Integer);
  496.     procedure AddBulletExTag (const Name: String; ImageIndex: Integer;
  497.                               ImageList: TCustomImageList; ParaNo,Tag: Integer);
  498.     procedure AddControlExTag(const Name: String; ctrl: TControl;
  499.                               ParaNo: Integer; VAlign: TRVVAlign; Tag: Integer);
  500.     procedure AddBreakExTag(Width: Byte; Style: TRVBreakStyle;
  501.                             Color: TColor; Tag: Integer);
  502.     { add... methods for backward compatibility: }
  503.     procedure AddFromNewLine(const s: String;StyleNo:Integer);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  504.     procedure AddCenterLine(const s: String;StyleNo:Integer);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  505.     procedure AddText(const s: String;StyleNo:Integer);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  506.     procedure AddTextFromNewLine(const s: String;StyleNo:Integer);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  507.     procedure AddPicture(gr: TGraphic);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  508.     procedure AddHotspot(ImageIndex: Integer; ImageList: TCustomImageList;
  509.                          fromnewline: Boolean);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  510.     procedure AddBullet (ImageIndex: Integer; ImageList: TCustomImageList;
  511.                          fromnewline: Boolean);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  512.     procedure AddControl(ctrl: TControl; center: Boolean);  {$IFDEF RICHVIEWDEF6}deprecated;{$ENDIF}
  514.     // checkpoint methods:
  515.     function GetCheckpointY(no: Integer): Integer;
  516.     function GetFirstCheckpoint: TCheckpointData;
  517.     function GetNextCheckpoint(CheckpointData: TCheckpointData): TCheckpointData;
  518.     function GetLastCheckpoint: TCheckpointData;
  519.     function GetPrevCheckpoint(CheckpointData: TCheckpointData): TCheckpointData;
  520.     function GetItemCheckpoint(ItemNo: Integer):TCheckpointData;
  521.     function FindCheckpointByName(const Name: String): TCheckpointData;
  522.     function FindCheckpointByTag(Tag: Integer): TCheckpointData;
  523.     function GetCheckpointByNo(No: Integer): TCheckpointData;
  524.     procedure GetCheckpointInfo(CheckpointData: TCheckpointData;
  525.                                 var Tag: Integer; var Name: String;
  526.                                 var RaiseEvent: Boolean);
  527.     procedure GetCheckpointXY(CheckpointData: TCheckpointData; var X,Y: Integer);
  528.     function GetCheckpointYEx(CheckpointData: TCheckpointData): Integer;
  529.     function GetCheckpointItemNo(CheckpointData: TCheckpointData): Integer;
  530.     function GetCheckpointNo(CheckpointData: TCheckpointData): Integer;
  532.     function GetJumpPointY(id: Integer): Integer;
  533.     function GetJumpPointItemNo(id: Integer): Integer;
  534.     procedure GetJumpPointLocation(id: Integer; var RVData: TCustomRVFormattedData; var ItemNo: Integer);
  536.     function GetItemCoords(ItemNo: Integer;var Left,Top: Integer): Boolean;
  537.     function GetItemClientCoords(ItemNo: Integer;var Left,Top: Integer): Boolean;
  539.     procedure Clear;
  540.     procedure Format;
  541.     procedure Reformat;
  542.     procedure FormatTail;
  544.     procedure AppendFrom(Source: TCustomRichView);
  545.     {$IFNDEF RVDONOTUSEHTML}
  546.     function SaveHTMLToStreamEx(Stream: TStream;
  547.                         const Path, Title, ImagesPrefix, ExtraStyles,
  548.                         ExternalCSS, CPPrefix: String;
  549.                         Options: TRVSaveOptions):Boolean;
  550.     function SaveHTMLToStream(Stream: TStream; const Path, Title,ImagesPrefix: String;
  551.                         Options: TRVSaveOptions):Boolean;
  552.     function SaveHTMLEx(const FileName, Title, ImagesPrefix, ExtraStyles,
  553.                         ExternalCSS, CPPrefix: String;
  554.                         Options: TRVSaveOptions):Boolean;
  555.     function SaveHTML(const FileName,Title,ImagesPrefix: String;
  556.                         Options: TRVSaveOptions):Boolean;
  557.     {$ENDIF}
  558.     function SaveText(const FileName: String; LineWidth: Integer):Boolean;
  559.     function SaveTextToStream(const Path: String; Stream: TStream;
  560.                         LineWidth: Integer;
  561.                         SelectionOnly, TextOnly: Boolean):Boolean;
  562.     function LoadText(const FileName: String; StyleNo, ParaNo: Integer;
  563.       AsSingleParagraph: Boolean):Boolean;
  564.     function LoadTextFromStream(Stream: TStream; StyleNo, ParaNo: Integer;
  565.       AsSingleParagraph: Boolean):Boolean;
  567.     {$IFNDEF RVDONOTUSERVF}
  568.     function CreateLayoutInfo: TRVLayoutInfo;
  569.     procedure ApplyLayoutInfo (Layout: TRVLayoutInfo); dynamic;
  570.     function LoadRVFFromStream(Stream: TStream):Boolean;
  571.     function InsertRVFFromStream(Stream: TStream; Index: Integer):Boolean;
  572.     function AppendRVFFromStream(Stream: TStream; ParaNo: Integer):Boolean;
  573.     function LoadRVF(const FileName: String):Boolean;
  574.     function SaveRVFToStream(Stream: TStream; SelectionOnly: Boolean):Boolean;
  575.     function SaveRVF(const FileName: String; SelectionOnly: Boolean):Boolean;
  576.     procedure CopyRVF;
  577.     {$ENDIF}
  579.     {$IFNDEF RVDONOTUSERTF}
  580.     function SaveRTFToStream(Stream: TStream; SelectionOnly: Boolean):Boolean;
  581.     function SaveRTF(const FileName: String; SelectionOnly: Boolean):Boolean;
  582.     procedure CopyRTF;
  583.     {$ENDIF}
  584.     {$IFNDEF RVDONOTUSERTFIMPORT}
  585.     function LoadRTFFromStream(Stream: TStream):Boolean;
  586.     function LoadRTF(const FileName: String):Boolean;
  587.     {$IFDEF RVUSEWORDDOC}
  588.     function LoadWordDoc(const FileName: String):Boolean;
  589.     {$ENDIF}
  590.     {$ENDIF}
  592.     function LoadFromStream(Stream: TStream; IsTextUnicode: TRVYesNoAuto): Boolean;
  594.     procedure AddNLATag(const s: String; StyleNo, ParaNo, Tag: Integer);
  595.     {$IFNDEF RVDONOTUSEUNICODE}
  596.     function SaveTextW(const FileName: String; LineWidth: Integer):Boolean;
  597.     function SaveTextToStreamW(const Path: String; Stream: TStream;
  598.                         LineWidth: Integer;
  599.                         SelectionOnly, TextOnly: Boolean):Boolean;
  600.     function LoadTextW(const FileName: String; StyleNo, ParaNo: Integer;
  601.       DefAsSingleParagraph: Boolean):Boolean;
  602.     function LoadTextFromStreamW(Stream: TStream; StyleNo, ParaNo: Integer;
  603.       DefAsSingleParagraph: Boolean):Boolean;
  604.     procedure SetItemTextA(ItemNo: Integer; const s: String);
  606.     {$IFDEF RICHVIEWCBDEF3}
  607.     procedure AddNLWTag(const s: WideString; StyleNo, ParaNo, Tag: Integer);
  608.     procedure AddTextNLW(const s: WideString; StyleNo, FirstParaNo, OtherParaNo: Integer;
  609.                          DefAsSingleParagraph: Boolean);
  610.     function GetSelTextW: WideString;
  611.     function GetItemTextW(ItemNo: Integer): WideString;
  612.     procedure SetItemTextW(ItemNo: Integer; const s: WideString);
  613.     {$ENDIF}
  614.     {$ENDIF}
  615.     function GetItemTextA(ItemNo: Integer): String;
  617.     procedure DeleteSection(const CpName: String);
  618.     procedure DeleteItems(FirstItemNo, Count: Integer);
  619.     procedure DeleteParas(FirstItemNo, LastItemNo: Integer);
  621.     procedure CopyText;
  622.     procedure CopyTextW;
  623.     procedure CopyImage;
  624.     procedure Copy;
  625.     function CopyDef: Boolean;
  627.     function GetSelectedImage: TGraphic;
  629.     function GetSelText: String;
  630.     function SelectionExists: Boolean;
  631.     procedure Deselect;
  632.     procedure SelectAll;
  634.     function SearchText(const s: String; SrchOptions: TRVSearchOptions): Boolean;
  636.     function GetItemStyle(ItemNo: Integer): Integer;
  638.     procedure GetBreakInfo(ItemNo: Integer; var AWidth: Byte;
  639.                             var AStyle: TRVBreakStyle; var AColor: TColor;
  640.                             var ATag: Integer);
  641.     procedure GetBulletInfo(ItemNo: Integer; var AName: String;
  642.                             var AImageIndex: Integer;
  643.                             var AImageList: TCustomImageList;
  644.                             var ATag: Integer);
  645.     procedure GetHotspotInfo(ItemNo: Integer; var AName: String;
  646.                             var AImageIndex, AHotImageIndex: Integer;
  647.                             var AImageList: TCustomImageList;
  648.                             var ATag: Integer);
  649.     procedure GetPictureInfo(ItemNo: Integer; var AName: String;
  650.                             var Agr: TGraphic; var AVAlign: TRVVAlign;
  651.                             var ATag: Integer);
  652.     procedure GetControlInfo(ItemNo: Integer; var AName: String;
  653.                             var Actrl: TControl; var AVAlign: TRVVAlign;
  654.                             var ATag: Integer);
  655.     procedure GetTextInfo(ItemNo: Integer; var AText: String;
  656.                             var ATag: Integer);
  657.     function GetItemTag(ItemNo: Integer): Integer;
  659.     procedure SetItemText(ItemNo: Integer; const s: String);
  660.     function GetItemText(ItemNo: Integer): String;
  662.     function SetItemExtraIntProperty(ItemNo: Integer; Prop: TRVExtraItemProperty;
  663.       Value: Integer): Boolean;
  664.     function GetItemExtraIntProperty(ItemNo: Integer; Prop: TRVExtraItemProperty;
  665.       var Value: Integer): Boolean;
  666.     function SetItemExtraStrProperty(ItemNo: Integer; Prop: TRVExtraItemStrProperty;
  667.       const Value: String): Boolean;
  668.     function GetItemExtraStrProperty(ItemNo: Integer; Prop: TRVExtraItemStrProperty;
  669.       var Value: String): Boolean;
  671.     function IsParaStart(ItemNo: Integer): Boolean;
  672.     function GetItemPara(ItemNo: Integer): Integer;
  673.     function IsFromNewLine(ItemNo: Integer): Boolean;
  675.     procedure SetBreakInfo(ItemNo: Integer; AWidth: Byte;
  676.                             AStyle: TRVBreakStyle; AColor: TColor;
  677.                             ATag: Integer);
  678.     procedure SetBulletInfo(ItemNo: Integer; const AName: String;
  679.                             AImageIndex: Integer;
  680.                             AImageList: TCustomImageList;
  681.                             ATag: Integer);
  682.     procedure SetHotspotInfo(ItemNo: Integer; const AName: String;
  683.                             AImageIndex, AHotImageIndex: Integer;
  684.                             AImageList: TCustomImageList;
  685.                             ATag: Integer);
  686.     // ret value: reformatting needed
  687.     function SetPictureInfo(ItemNo: Integer; const  AName: String;
  688.                             Agr: TGraphic; AVAlign: TRVVAlign;
  689.                             ATag: Integer): Boolean;
  690.     function SetControlInfo(ItemNo: Integer; const AName: String;
  691.                             AVAlign: TRVVAlign; ATag: Integer): Boolean;
  692.     procedure SetItemTag(ItemNo: Integer; ATag: Integer);
  693.     procedure SetCheckpointInfo(ItemNo: Integer; ATag: Integer;
  694.                                 const AName: String;
  695.                                 ARaiseEvent: Boolean);
  696.     function RemoveCheckpoint(ItemNo: Integer): Boolean;
  698.     function FindControlItemNo(actrl: TControl): Integer;
  699.     function SelectControl(actrl: TControl): Boolean;
  701.     procedure GetSelectionBounds(var StartItemNo, StartItemOffs,
  702.                                  EndItemNo, EndItemOffs: Integer;
  703.                                  Normalize: Boolean);
  704.     procedure SetSelectionBounds(StartItemNo, StartItemOffs,
  705.                                  EndItemNo, EndItemOffs: Integer);
  706.     procedure GetWordAt(X,Y: Integer; var RVData: TCustomRVFormattedData; var ItemNo: Integer; var Word: String); {$IFDEF RICHVIEWDEF4}overload;
  707.     function GetWordAt(X,Y: Integer): String; overload;{$ENDIF}
  708.     procedure SelectWordAt(X,Y: Integer);
  710.     procedure UpdatePaletteInfo; override;
  712.     function GetOffsBeforeItem(ItemNo: Integer): Integer;
  713.     function GetOffsAfterItem(ItemNo: Integer): Integer;
  715.     procedure SetAddParagraphMode(AllowNewPara: Boolean);
  717.     function SavePicture(DocumentSaveFormat: TRVSaveFormat; const Path: String;
  718.       gr: TGraphic): String; virtual;
  719.     function GetSelectionRect: TRect;
  720.     function GetItem(ItemNo: Integer): TCustomRVItemInfo;
  721.     function GetItemNo(Item: TCustomRVItemInfo): Integer;
  723.     procedure GetFocusedItem(var ARVData: TCustomRVFormattedData; var AItemNo: Integer);
  724.     procedure MarkStylesInUse(Data: TRVDeleteUnusedStylesData);
  725.     procedure DeleteMarkedStyles(Data: TRVDeleteUnusedStylesData);
  726.     procedure DeleteUnusedStyles(TextStyles, ParaStyles, ListStyles: Boolean);
  728.     {$IFNDEF RVDONOTUSEDRAGDROP}
  729.     procedure BeginOleDrag;
  730.     {$ENDIF}
  732.     {$IFNDEF RVDONOTUSELISTS}
  733.     function SetListMarkerInfo(AItemNo, AListNo, AListLevel, AStartFrom,
  734.       AParaNo: Integer; AUseStartFrom: Boolean): Integer;
  735.     procedure RemoveListMarker(ItemNo: Integer);
  736.     function GetListMarkerInfo(AItemNo: Integer; var AListNo, AListLevel,
  737.       AStartFrom: Integer; var AUseStartFrom: Boolean): Integer;
  738.     procedure RefreshListMarkers;
  739.     {$ENDIF}
  740.     function GetLineNo(ItemNo, ItemOffs: Integer): Integer;
  741.     function GetItemAt(X,Y: Integer; var RVData: TCustomRVFormattedData; var ItemNo, OffsetInItem: Integer;
  742.       Strict: Boolean): Boolean;
  743.     function ClientToDocument(const APoint: TPoint): TPoint;
  744.     {$IFNDEF RVDONOTUSELIVESPELL}
  745.     procedure StartLiveSpelling;
  746.     procedure ClearLiveSpellingResults;
  747.     procedure LiveSpellingValidateWord(const AWord: String);
  748.     procedure LaterSetBackLiveSpellingTo(RVData: TCustomRVData; ItemNo, Offs: Integer);
  749.     procedure RemoveRVDataFromLiveSpelling(RVData: TCustomRVData);
  750.     procedure AdjustLiveSpellingOnKeyPress(RVData: TCustomRVData; ItemNo, Index: Integer;
  751.       ch: Char);
  752.     procedure AdjustLiveSpellingOnDelete(RVData: TCustomRVData;
  753.       ItemNo, Index, Count: Integer);
  754.     procedure LiveSpellingCheckCurrentItem(RVData: TCustomRVData; ItemNo: Integer);
  755.     {$ENDIF}
  757.     {$IFNDEF RVDONOTUSEANIMATION}
  758.     procedure StartAnimation;
  759.     procedure StopAnimation;
  760.     {$ENDIF}
  762.     property LineCount: Integer read GetLineCount;
  763.     property ItemCount: Integer read GetLineCount;
  765.     property FirstItemVisible: Integer read GetFirstItemVisible;
  766.     property LastItemVisible: Integer read GetLastItemVisible;
  767.     property RVFWarnings: TRVFWarnings read FRVFWarnings write FRVFWarnings;
  769.     property DocumentHeight: Integer read GetDocumentHeight;
  771.     property PageBreaksBeforeItems[Index: Integer]: Boolean
  772.       read GetPageBreaksBeforeItems write SetPageBreaksBeforeItems;
  774.     property BackgroundBitmap: TBitmap   read GetBackBitmap write SetBackBitmap;
  775.     property BackgroundStyle: TBackgroundStyle read GetBackgroundStyle write SetBackgroundStyle;
  776.     property BottomMargin: Integer       read FBottomMargin write FBottomMargin default 5;
  777.     property Color default clNone;
  778.     property CPEventKind : TCPEventKind  read FCPEventKind  write FCPEventKind;
  779.     property Cursor: TCursor read FCursor write FCursor;
  780.     property Delimiters  : String        read FDelimiters   write FDelimiters stored StoreDelimiters;
  781.     property DoInPaletteMode;
  782.     property FirstJumpNo    : Integer               read GetFirstJumpNo   write SetFirstJumpNo default 0;
  783.     property FullRedraw;
  784.     property HScrollVisible;
  785.     property HScrollMax;
  786.     property HScrollPos;
  787.     property InplaceEditor;
  788.     property LeftMargin  : Integer       read FLeftMargin   write FLeftMargin default 5;
  789.     {$IFNDEF RVDONOTUSELIVESPELL}
  790.     property LiveSpellingMode: TRVLiveSpellingMode  read FLiveSpellingMode write FLiveSpellingMode default rvlspManualStart;
  791.     {$ENDIF}
  792.     {$IFNDEF RVDONOTUSEANIMATION}
  793.     property AnimationMode: TRVAnimationMode read FAnimationMode write SetAnimationMode default rvaniManualStart;
  794.     {$ENDIF}
  795.     property MaxTextWidth: Integer       read FMaxTextWidth write FMaxTextWidth default 0;
  796.     property MinTextWidth: Integer       read FMinTextWidth write FMinTextWidth default 0;
  797.     property Options     : TRVOptions    read FOptions      write FOptions
  798.              default [rvoAllowSelection, rvoScrollToEnd, rvoAutoCopyText,
  799.                        rvoAutoCopyImage, rvoAutoCopyRVF, rvoAutoCopyRTF,
  800.                        rvoDblClickSelectsWord, rvoRClickDeselects,
  801.                        rvoFormatInvalidate,
  802.                        rvoShowPageBreaks, rvoFastFormatting];
  803.     property RightMargin : Integer       read FRightMargin  write FRightMargin default 5;
  804.     property RTFOptions  : TRVRTFOptions read FRTFOptions   write FRTFOptions default [rvrtfDuplicateUnicode, rvrtfSaveEMFAsWMF, rvrtfSaveJpegAsJpeg];
  805.     property RTFReadProperties: TRVRTFReaderProperties read GetRTFReadProperties write SetRTFReadProperties;
  806.     property RVFOptions  : TRVFOptions   read FRVFOptions   write FRVFOptions
  807.       default [rvfoSavePicturesBody, rvfoSaveControlsBody, rvfoSaveBinary,
  808.         rvfoSaveDocProperties, rvfoLoadDocProperties];
  809.     property RVFParaStylesReadMode: TRVFReaderStyleMode read FRVFParaStylesReadMode write FRVFParaStylesReadMode default rvf_sInsertMerge;
  810.     property RVFTextStylesReadMode: TRVFReaderStyleMode read FRVFTextStylesReadMode write FRVFTextStylesReadMode default rvf_sInsertMerge;
  811.     property Style       : TRVStyle      read FStyle        write SetStyle;
  812.     property TabNavigation: TRVTabNavigationType read GetTabNavigation write SetTabNavigation default rvtnTab;
  813.     property TopMargin   : Integer       read FTopMargin    write FTopMargin default 5;
  814.     property DocProperties: TStringList  read FDocProperties write SetDocProperties;
  815.     property VScrollMax;
  816.     property VScrollPos;
  817.     property VScrollVisible;
  818.     property VSmallStep;
  819.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  820.     property SmartPopupProperties: TRVSmartPopupProperties read GetSmartPopupProperties write SetSmartPopupProperties;
  821.     property SmartPopupVisible: Boolean read GetSmartPopupVisible write SetSmartPopupVisible;
  822.     {$ENDIF}
  823.     {$IFDEF RICHVIEWDEF3}
  824.     property VAlign         : TTextLayout           read FVAlign          write FVAlign default tlTop;
  825.     {$ENDIF}
  827.     property OnRVDblClick   : TRVDblClickEvent      read FOnRVDblClick    write FOnRVDblClick;
  828.     property OnCheckpointVisible: TRVCheckpointVisibleEvent read FOnCheckpointVisible write FOnCheckpointVisible;
  829.     property OnControlAction: TRVControlActionEvent read FOnControlAction write FOnControlAction;
  830.     property OnItemAction   : TRVItemActionEvent    read FOnItemAction    write FOnItemAction;
  831.     property OnCopy         : TNotifyEvent          read FOnCopy          write FOnCopy;
  832.     {$IFDEF RV_ODHC}
  833.     property OnDocumentHeightChange: TNotifyEvent read FOnDocumentHeightChange write FOnDocumentHeightChange;
  834.     {$ENDIF}
  835.     property OnImportPicture: TRVImportPictureEvent read FOnImportPicture write FOnImportPicture;
  836.     property OnItemHint: TRVItemHintEvent           read FOnItemHint      write FOnItemHint;
  837.     property OnJump         : TJumpEvent            read FOnJump          write FOnJump;
  838.     property OnHTMLSaveImage: TRVHTMLSaveImageEvent read FOnHTMLSaveImage write FOnHTMLSaveImage;
  839.     property OnSaveImage2: TRVSaveImageEvent2       read FOnSaveImage2    write FOnSaveImage2;
  840.     property OnReadHyperlink: TRVReadHyperlink      read FOnReadHyperlink write FOnReadHyperlink;
  841.     property OnWriteHyperlink: TRVWriteHyperlink    read FOnWriteHyperlink write FOnWriteHyperlink;
  842.     property OnURLNeeded    : TRVURLNeededEvent     read FOnURLNeeded     write FOnURLNeeded;
  843.     property OnRVMouseDown  : TRVMouseEvent         read FOnRVMouseDown   write FOnRVMouseDown;
  844.     property OnRVMouseMove  : TRVMouseMoveEvent     read FOnRVMouseMove   write FOnRVMouseMove;
  845.     property OnRVMouseUp    : TRVMouseEvent         read FOnRVMouseUp     write FOnRVMouseUp;
  846.     property OnRVRightClick : TRVRightClickEvent    read FOnRVRightClick  write FOnRVRightClick;
  847.     property OnRVFControlNeeded: TRVFControlNeededEvent read FOnRVFControlNeeded write FOnRVFControlNeeded;
  848.     property OnRVFImageListNeeded: TRVFImageListNeededEvent read FOnRVFImageListNeeded write FOnRVFImageListNeeded;
  849.     property OnRVFPictureNeeded: TRVFPictureNeededEvent read FOnRVFPictureNeeded write FOnRVFPictureNeeded;
  850.     property OnSaveComponentToFile: TRVSaveComponentToFileEvent read FOnSaveComponentToFile write FOnSaveComponentToFile;
  851.     property OnSaveItemToFile: TRVSaveItemToFileEvent read FOnSaveItemToFile write FOnSaveItemToFile;
  852.     property OnSelect       : TNotifyEvent          read FOnSelect        write FOnSelect;
  853.     property OnSaveRTFExtra: TRVSaveRTFExtraEvent   read FOnSaveRTFExtra  write FOnSaveRTFExtra;
  854.     property OnSaveHTMLExtra: TRVSaveHTMLExtraEvent read FOnSaveHTMLExtra write FOnSaveHTMLExtra;
  855.     property OnSaveParaToHTML: TRVSaveParaToHTMLEvent read FOnSaveParaToHTML write FOnSaveParaToHTML;
  856.     property OnProgress: TRVProgressEvent           read FOnProgress      write FOnProgress;
  857.     {$IFNDEF RVDONOTUSELIVESPELL}
  858.     property OnSpellingCheck: TRVSpellingCheckEvent read FOnSpellingCheck    write FOnSpellingCheck;
  859.     {$IFDEF RVLIVESPELLEXEVENT}
  860.     property OnSpellingCheckEx: TRVSpellingCheckExEvent read FOnSpellingCheckEx write FOnSpellingCheckEx;
  861.     {$ENDIF}
  862.     {$ENDIF}
  863.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  864.     property OnSmartPopupClick: TRVSmartPopupClickEvent read FOnSmartPopupClick write FOnSmartPopupClick;
  865.     {$ENDIF}
  866.   end;
  868.   { -------------------------------------------------------------------------- }
  869.   { TRichView: visual component, document viewer.
  870.     Component Palette page: "RichView".
  871.     This class publishes many inherited properties.                            }
  873.   TRichView = class (TCustomRichView)
  874.   published
  875.     { Published standard properties }
  876.     property Align;
  877.     {$IFDEF RICHVIEWDEF4}
  878.     property Anchors;
  879.     property Constraints;
  880.     {$ENDIF}
  881.     property Color default clNone;
  882.     property Ctl3D;
  883.     {$IFDEF RICHVIEWDEF4}
  884.     property DragKind;
  885.     {$ENDIF}    
  886.     property DragMode;
  887.     property Enabled;
  888.     property HelpContext;
  889.     property ParentCtl3D;
  890.     property ParentShowHint;
  891.     property PopupMenu;
  892.     property ShowHint;
  893.     property TabOrder;
  894.     property TabStop default True;
  895.     property UseXPThemes;
  896.     property Visible;
  897.     { Published standard events }
  898.     property OnClick;
  899.     {$IFDEF RICHVIEWDEF5}
  900.     property OnContextPopup;
  901.     {$ENDIF}
  902.     property OnDblClick;
  903.     property OnDragDrop;
  904.     property OnDragOver;
  905.     property OnEndDrag;
  906.     property OnEnter;
  907.     property OnExit;
  908.     property OnKeyDown;
  909.     property OnKeyPress;
  910.     property OnKeyUp;
  911.     property OnMouseMove;
  912.     {$IFDEF RICHVIEWDEF4}
  913.     property OnMouseWheel;
  914.     property OnMouseWheelDown;
  915.     property OnMouseWheelUp;
  916.     property OnResize;
  917.     {$ENDIF}
  918.     property OnStartDrag;
  919.     { Published RichView properties }
  920.     {$IFNDEF RVDONOTUSEANIMATION}
  921.     property AnimationMode;
  922.     {$ENDIF}
  923.     property BackgroundBitmap;
  924.     property BackgroundStyle default bsNoBitmap;
  925.     property BiDiMode;
  926.     property BorderStyle default bsSingle;
  927.     property BottomMargin;
  928.     property CPEventKind default cpeNone;
  929.     property Cursor default crDefault;
  930.     property Delimiters;
  931.     property DoInPaletteMode;
  932.     property FirstJumpNo;
  933.     property HScrollVisible;
  934.     property LeftMargin;
  935.     {$IFNDEF RVDONOTUSELIVESPELL}
  936.     //property LiveSpellingMode;
  937.     {$ENDIF}
  938.     property MaxTextWidth;
  939.     property MinTextWidth;
  940.     property Options;
  941.     property RightMargin;
  942.     property RTFOptions;
  943.     property RTFReadProperties;
  944.     property RVFOptions;
  945.     property RVFParaStylesReadMode;
  946.     property RVFTextStylesReadMode;
  947.     {$IFDEF RVFLATSCROLLBARS}
  948.     property ScrollBarColor;
  949.     property ScrollBarStyle;
  950.     {$ENDIF}
  951.     property Style;
  952.     property TabNavigation;
  953.     property TopMargin;
  954.     property Tracking;
  955.     {$IFDEF RICHVIEWDEF3}
  956.     property VAlign;
  957.     {$ENDIF}
  958.     property VScrollVisible;
  959.     {$IFDEF RICHVIEWDEF4}
  960.     property WheelStep;
  961.     {$ENDIF}
  962.     { Published RichView events }
  963.     property OnCheckpointVisible;
  964.     property OnControlAction;
  965.     property OnCopy;
  966.     {$IFDEF RV_ODHC}
  967.     property OnDocumentHeightChange;
  968.     {$ENDIF}
  969.     property OnImportPicture;
  970.     property OnItemAction;
  971.     property OnItemHint;
  972.     property OnJump;
  973.     property OnHScrolled;    
  974.     property OnHTMLSaveImage;
  975.     property OnPaint;
  976.     property OnProgress;
  977.     property OnReadHyperlink;
  978.     property OnRVDblClick;
  979.     property OnRVFImageListNeeded;
  980.     property OnRVFControlNeeded;
  981.     property OnRVFPictureNeeded;
  982.     property OnRVMouseDown;
  983.     property OnRVMouseMove;
  984.     property OnRVMouseUp;
  985.     property OnRVRightClick;
  986.     property OnSaveComponentToFile;
  987.     property OnSaveHTMLExtra;
  988.     property OnSaveImage2;
  989.     property OnSaveItemToFile;
  990.     property OnSaveRTFExtra;
  991.     property OnSelect;
  992.     {$IFNDEF RVDONOTUSELIVESPELL}
  993.     property OnSpellingCheck;
  994.     {$IFDEF RVLIVESPELLEXEVENT}
  995.     property OnSpellingCheckEx;
  996.     {$ENDIF}
  997.     {$ENDIF}
  998.     property OnVScrolled;
  999.     property OnWriteHyperlink;
  1000.     { obsolete properties }
  1001.     property AllowSelection;
  1002.     property SingleClick;
  1003.     property OnURLNeeded;
  1004.   end;
  1006. {------------------------------------------------------------------------------}
  1007. implementation
  1008. uses ShellApi, PtblRV,
  1009.      {$IFNDEF RVDONOTUSELISTS}
  1010.      RVMarker,
  1011.      {$ENDIF}
  1012.      {$IFNDEF RVDONOTUSELINEARPOSITIONS}
  1013.      RVLinear,
  1014.      {$ENDIF}
  1015.      RVStr;
  1016. {============================= TCustomRichView ======================================}
  1017. {$IFDEF RVDEBUG}{$I DebugDecl.inc}{$ENDIF}
  1018. constructor TCustomRichView.Create(AOwner: TComponent);
  1019. begin
  1020.   inherited Create(AOwner);
  1021.   RVData := GetDataClass.Create(Self);
  1022.   Cursor         := crDefault;
  1023.   Color          := clNone;
  1024.   FLeftMargin    := 5;
  1025.   FRightMargin   := 5;
  1026.   FTopMargin     := 5;
  1027.   FBottomMargin  := 5;
  1028.   FMaxTextWidth  := 0;
  1029.   {$IFDEF RVDEBUG}{$I Debugl.inc}{$ENDIF}
  1030.   FMinTextWidth  := 0;
  1031.   FStyle         := nil;
  1033.   Background     := TRVBackground.Create(True);
  1034.   Background.Bitmap.OnChange := DoOnBackBitmapChange;
  1035.   Width          := 100;
  1036.   Height         := 40;
  1037.   Flags          := [rvflUseJumps, rvflTrim, {rvflUseExternalLeading,} rvflRoot,
  1038.     rvflCanUseCustomPPI, rvflCanProcessGetText];
  1039.   FDelimiters    := RVDEFAULTDELIMITERS;
  1040.   ScrollTimerActive := False;
  1041.   FOptions       := [rvoAllowSelection, rvoScrollToEnd, rvoAutoCopyText,
  1042.                      rvoAutoCopyImage, rvoAutoCopyRVF, rvoAutoCopyRTF,
  1043.                      rvoDblClickSelectsWord, rvoRClickDeselects,
  1044.                      rvoFormatInvalidate,
  1045.                      rvoShowPageBreaks, rvoFastFormatting];
  1046.   FRVFOptions    := [rvfoSavePicturesBody, rvfoSaveControlsBody, rvfoSaveBinary,
  1047.     rvfoSaveDocProperties, rvfoLoadDocProperties];
  1048.   FRTFOptions    := [rvrtfDuplicateUnicode, rvrtfSaveEMFAsWMF, rvrtfSaveJpegAsJpeg];
  1049.   BorderStyle    := bsSingle;
  1050.   FRVFTextStylesReadMode := rvf_sInsertMerge;
  1051.   FRVFParaStylesReadMode := rvf_sInsertMerge;
  1052.   FDocProperties := TStringList.Create;
  1053.   {$IFNDEF RVDONOTUSELIVESPELL}
  1054.   FLiveSpellingMode := rvlspManualStart;
  1055.   {$ENDIF}
  1056.   {$IFNDEF RVDONOTUSEANIMATION}
  1057.   FAnimationMode := rvaniManualStart;
  1058.   {$ENDIF}
  1059. end;
  1060. {------------------------------------------------------------------------------}
  1061. function TCustomRichView.GetDataClass: TRichViewRVDataClass;
  1062. begin
  1063.   Result := TRichViewRVData;
  1064. end;
  1065. {------------------------------------------------------------------------------}
  1066. destructor TCustomRichView.Destroy;
  1067. begin
  1068.   Destroying;
  1069.   {
  1070.   if Assigned(FWordEnumThread) then begin
  1071.     FWordEnumThread.Finish;
  1072.     FWordEnumThread.Reset(nil);
  1073.     FWordEnumThread := nil;
  1074.   end;
  1075.   }
  1076.   Background.Free;
  1077.   Clear;
  1078.   RVData.Free;
  1079.   RTFReadProperties := nil;
  1080.   FDocProperties.Free;
  1081.   {$IFNDEF RVDONOTUSESMARTPOPUP}
  1082.   FSmartPopupProperties.Free;
  1083.   FSmartPopupProperties := nil;
  1084.   {$ENDIF}  
  1085.   inherited Destroy;
  1086. end;
  1087. {------------------------------------------------------------------------------}
  1088. procedure TCustomRichView.GetTabOrderList(List: TList);
  1089. var i: Integer;
  1090. begin
  1091.   inherited GetTabOrderList(List);
  1092.   if TabNavigation<>rvtnNone then begin
  1093.     for i := List.Count-1 downto 2 do
  1094.       if TWinControl(List[i]).Parent=Self then
  1095.         List.Insert(i,Self);
  1096.     if List.Count>1 then
  1097.       List.Add(Self);
  1098.   end;
  1099. end;
  1100. {------------------------------------------------------------------------------}
  1101. procedure TCustomRichView.Notification(AComponent: TComponent; Operation: TOperation);
  1102. begin
  1103.   inherited Notification(AComponent, Operation);
  1104.   if (Operation=opRemove) then begin
  1105.     if (AComponent=FStyle) then
  1106.       Style := nil;
  1107.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  1108.     if (FSmartPopupProperties<>nil) and (FSmartPopupProperties.ImageList=AComponent) then
  1109.       FSmartPopupProperties.ImageList := nil;
  1110.     if (FSmartPopupProperties<>nil) and (FSmartPopupProperties.Menu=AComponent) then
  1111.       FSmartPopupProperties.Menu := nil;
  1112.     {$ENDIF}
  1113.   end;
  1114. end;
  1115. {------------------------------------------------------------------------------}
  1116. procedure TCustomRichView.WMSize(var Message: TWMSize);
  1117. begin
  1118.   Format_(True, False, Canvas, False, False, False);
  1119.   inherited;
  1120. //  if Assigned(FOnResized) then FOnResized(Self);
  1121. end;
  1122. {------------------------------------------------------------------------------}
  1123. procedure TCustomRichView.Format;
  1124. begin
  1125.   Format_(False, True, Canvas, False, True, False);
  1126.   if rvoFormatInvalidate in Options then Invalidate;
  1127.   {$IFNDEF RVDONOTUSEANIMATION}
  1128.   if AnimationMode=rvaniOnFormat then
  1129.     StartAnimation;
  1130.   {$ENDIF}
  1131. end;
  1132. {------------------------------------------------------------------------------}
  1133. procedure TCustomRichView.Reformat;
  1134. begin
  1135.   Format_(True, True, Canvas, False, True, True);
  1136.   if rvoFormatInvalidate in Options then Invalidate;
  1137. end;
  1138. {------------------------------------------------------------------------------}
  1139. procedure TCustomRichView.FormatTail;
  1140. begin
  1141.   Format_(False, True, Canvas, True, True, False);
  1142.   if rvoFormatInvalidate in Options then Invalidate;
  1143. end;
  1144. {------------------------------------------------------------------------------}
  1145. procedure TCustomRichView.ClearTemporal;
  1146. begin
  1147.   DeactivateScrollTimer;
  1148.   RVData.ClearTemporal;
  1149. end;
  1150. {------------------------------------------------------------------------------}
  1151. procedure TCustomRichView.Deselect;
  1152. begin
  1153.   RVData.Deselect(nil, True);
  1154. end;
  1155. {------------------------------------------------------------------------------}
  1156. procedure TCustomRichView.SelectAll;
  1157. begin
  1158.   RVData.SelectAll;
  1159. end;
  1160. {------------------------------------------------------------------------------}
  1161. function TCustomRichView.GetOffsBeforeItem(ItemNo: Integer): Integer;
  1162. begin
  1163.   Result := RVData.GetOffsBeforeItem(ItemNo);
  1164. end;
  1165. {------------------------------------------------------------------------------}
  1166. function TCustomRichView.GetOffsAfterItem(ItemNo: Integer): Integer;
  1167. begin
  1168.   Result := RVData.GetOffsAfterItem(ItemNo);
  1169. end;
  1170. {------------------------------------------------------------------------------}
  1171. procedure TCustomRichView.Clear;
  1172. begin
  1173.   ClearTemporal;
  1174.   RVData.Clear;
  1175. end;
  1176. {------------------------------------------------------------------------------}
  1177. function TCustomRichView.GetFirstJumpNo: Integer;
  1178. begin
  1179.   Result := RVData.FirstJumpNo;
  1180. end;
  1181. {------------------------------------------------------------------------------}
  1182. procedure TCustomRichView.SetFirstJumpNo(Value: Integer);
  1183. begin
  1184.   RVData.FirstJumpNo := Value;
  1185. end;
  1186. {------------------------------------------------------------------------------}
  1187. procedure TCustomRichView.SetDocProperties(const Value: TStringList);
  1188. begin
  1189.   FDocProperties.Assign(Value);
  1190. end;
  1191. {------------------------------------------------------------------------------}
  1192. procedure TCustomRichView.AddNLTag(const s: String; StyleNo, ParaNo, Tag: Integer);
  1193. begin
  1194.   RVData.AddNLTag(s, StyleNo, ParaNo, Tag);
  1195. end;
  1196. {------------------------------------------------------------------------------}
  1197. procedure TCustomRichView.AddItem(const Text: String; Item: TCustomRVItemInfo);
  1198. begin
  1199.   RVData.AddItem(Text, Item);
  1200. end;
  1201. {------------------------------------------------------------------------------}
  1202. procedure TCustomRichView.AddNL(const s: String; StyleNo, ParaNo: Integer);
  1203. begin
  1204.   RVData.AddNL(s, StyleNo, ParaNo);
  1205. end;
  1206. {------------------------------------------------------------------------------}
  1207. procedure TCustomRichView.AddFmt(const FormatStr: String; const Args: array of const;
  1208.                            StyleNo, ParaNo: Integer);
  1209. begin
  1210.   RVData.AddFmt(FormatStr, Args, StyleNo, ParaNo);
  1211. end;
  1212. {------------------------------------------------------------------------------}
  1213. procedure TCustomRichView.AddFromNewLine(const s: String; StyleNo:Integer);
  1214. begin
  1215.   RVData.AddNLTag(s, StyleNo, 0, 0);
  1216. end;
  1217. {------------------------------------------------------------------------------}
  1218. procedure TCustomRichView.AddTag(const s: String; StyleNo,Tag:Integer);
  1219. begin
  1220.   RVData.AddNLTag(s, StyleNo, -1, Tag);
  1221. end;
  1222. {------------------------------------------------------------------------------}
  1223. procedure TCustomRichView.Add(const s: String; StyleNo:Integer);
  1224. begin
  1225.   RVData.AddNLTag(s, StyleNo, -1, 0);
  1226. end;
  1227. {------------------------------------------------------------------------------}
  1228. procedure TCustomRichView.AddText(const s: String;StyleNo:Integer);
  1229. begin
  1230.   RVData.AddTextNL(s, StyleNo, -1, 0);
  1231. end;
  1232. {------------------------------------------------------------------------------}
  1233. procedure TCustomRichView.AddTextFromNewLine(const s: String;StyleNo:Integer);
  1234. begin
  1235.   RVData.AddTextNL(s, StyleNo, 0, 0);
  1236. end;
  1237. {------------------------------------------------------------------------------}
  1238. procedure TCustomRichView.AddTextNL(const s: String; StyleNo, FirstParaNo, OtherParaNo : Integer);
  1239. begin
  1240.   RVData.AddTextNL(s, StyleNo, FirstParaNo, OtherParaNo);
  1241. end;
  1242. {------------------------------------------------------------------------------}
  1244. procedure TCustomRichView.AddTextNLA(const s: String; StyleNo, FirstParaNo,
  1245.   OtherParaNo: Integer);
  1246. begin
  1247.   {$IFNDEF RVDONOTUSEUNICODE}
  1248.   RVData.AddTextNLA(s, StyleNo, FirstParaNo, OtherParaNo);
  1249.   {$ELSE}
  1250.   RVData.AddTextNL(s, StyleNo, FirstParaNo, OtherParaNo);  
  1251.   {$ENDIF}
  1252. end;
  1254. {------------------------------------------------------------------------------}
  1255. procedure TCustomRichView.AddTextBlockNL(s: String; StyleNo, ParaNo: Integer);
  1256. begin
  1257.   RVData.AddTextBlockNL(s, StyleNo, ParaNo);
  1258. end;
  1259. {------------------------------------------------------------------------------}
  1260. {$IFNDEF RVDONOTUSETABS}
  1261. procedure TCustomRichView.AddTab(TextStyleNo, ParaNo: Integer);
  1262. begin
  1263.   RVData.AddTab(TextStyleNo, ParaNo);
  1264. end;
  1265. {$ENDIF}
  1266. {------------------------------------------------------------------------------}
  1267. {
  1268. procedure TCustomRichView.AddTextNLTag(s: String; StyleNo, ParaNo, Tag: Integer);
  1269. begin
  1271. end;
  1272. }
  1273. {------------------------------------------------------------------------------}
  1274. procedure TCustomRichView.AddCenterLine(const s: String;StyleNo:Integer);
  1275. begin
  1276.   RVData.AddNLTag(s, StyleNo, 1, 0);
  1277. end;
  1278. {------------------------------------------------------------------------------}
  1279. procedure TCustomRichView.AddBreakExTag(Width: Byte; Style: TRVBreakStyle; Color: TColor; Tag: Integer);
  1280. begin
  1281.   RVData.AddBreakExTag(Width,Style,Color,Tag);
  1282. end;
  1283. {------------------------------------------------------------------------------}
  1284. procedure TCustomRichView.AddBreakEx(Width: Byte; Style: TRVBreakStyle; Color: TColor);
  1285. begin
  1286.   RVData.AddBreakEx(Width,Style,Color);
  1287. end;
  1288. {------------------------------------------------------------------------------}
  1289. procedure TCustomRichView.AddBreakTag(Tag: Integer);
  1290. begin
  1291.   RVData.AddBreakTag(Tag);
  1292. end;
  1293. {------------------------------------------------------------------------------}
  1294. procedure TCustomRichView.AddBreak;
  1295. begin
  1296.   RVData.AddBreakTag(0);
  1297. end;
  1298. {------------------------------------------------------------------------------}
  1299. function TCustomRichView.AddNamedCheckpointExTag(const CpName: String;
  1300.                                            RaiseEvent: Boolean;
  1301.                                            Tag: Integer): Integer;
  1302. begin
  1303.   Result := RVData.AddNamedCheckpointExTag(CpName, RaiseEvent, Tag);
  1304. end;
  1305. {------------------------------------------------------------------------------}
  1306. {
  1307. function TCustomRichView.AddNamedCheckpointTag(const CpName: String; Tag: Integer): Integer;
  1308. begin
  1309.   Result := AddNamedCheckpointExTag(CpName, False, Tag);
  1310. end;
  1311. }
  1312. {------------------------------------------------------------------------------}
  1313. function TCustomRichView.AddNamedCheckpointEx(const CpName: String;
  1314.                                            RaiseEvent: Boolean): Integer;
  1315. begin
  1316.   Result := RVData.AddNamedCheckpointExTag(CpName, RaiseEvent, 0);
  1317. end;
  1318. {------------------------------------------------------------------------------}
  1319. function TCustomRichView.AddNamedCheckpoint(CpName: String): Integer;
  1320. begin
  1321.   Result := RVData.AddNamedCheckpointExTag(CpName, False, 0);
  1322. end;
  1323. {------------------------------------------------------------------------------}
  1324. function TCustomRichView.AddCheckpointTag(Tag: Integer): Integer;
  1325. begin
  1326.   Result := RVData.AddNamedCheckpointExTag('',False,Tag);
  1327. end;
  1328. {------------------------------------------------------------------------------}
  1329. function TCustomRichView.AddCheckpoint: Integer;
  1330. begin
  1331.   Result := RVData.AddNamedCheckpointExTag('',False,0);
  1332. end;
  1333. {------------------------------------------------------------------------------}
  1334. procedure TCustomRichView.AddHotspotExTag(const Name: String;
  1335.                                     ImageIndex, HotImageIndex: Integer;
  1336.                                     ImageList: TCustomImageList;
  1337.                                     ParaNo, Tag: Integer);
  1338. begin
  1339.   RVData.AddHotspotExTag(Name, ImageIndex, HotImageIndex, ImageList, ParaNo, Tag);
  1340. end;
  1341. {------------------------------------------------------------------------------}
  1342. procedure TCustomRichView.AddHotspotEx(const Name: String;
  1343.                                  ImageIndex, HotImageIndex: Integer;
  1344.                                  ImageList: TCustomImageList;
  1345.                                  ParaNo: Integer);
  1346. begin
  1347.   RVData.AddHotspotEx(Name, ImageIndex, HotImageIndex, ImageList, ParaNo);
  1348. end;
  1349. {------------------------------------------------------------------------------}
  1350. procedure TCustomRichView.AddHotspot(ImageIndex: Integer; ImageList: TCustomImageList;
  1351.                                fromnewline: Boolean);
  1352. begin
  1353.   if FromNewLine then
  1354.     RVData.AddHotspotExTag('', ImageIndex, ImageIndex, ImageList, 0, 0)
  1355.   else
  1356.     RVData.AddHotspotExTag('', ImageIndex, ImageIndex, ImageList, -1, 0);
  1357. end;
  1358. {------------------------------------------------------------------------------}
  1359. procedure TCustomRichView.AddBulletExTag(const Name: String; ImageIndex: Integer;
  1360.                                    ImageList: TCustomImageList;
  1361.                                    ParaNo, Tag: Integer);
  1362. begin
  1363.   RVData.AddBulletExTag(Name, ImageIndex, ImageList, ParaNo, Tag);
  1364. end;
  1365. {------------------------------------------------------------------------------}
  1366. procedure TCustomRichView.AddBulletEx(const Name: String; ImageIndex: Integer;
  1367.                                 ImageList: TCustomImageList;
  1368.                                 ParaNo: Integer);
  1369. begin
  1370.   RVData.AddBulletEx(Name, ImageIndex, ImageList, ParaNo);
  1371. end;
  1372. {------------------------------------------------------------------------------}
  1373. procedure TCustomRichView.AddBullet(ImageIndex: Integer; ImageList: TCustomImageList; fromnewline: Boolean);
  1374. begin
  1375.   if FromNewLine then
  1376.     RVData.AddBulletExTag('', ImageIndex, ImageList, 0, 0)
  1377.   else
  1378.     RVData.AddBulletExTag('', ImageIndex, ImageList, -1, 0);
  1379. end;
  1380. {------------------------------------------------------------------------------}
  1381. { "gr" does not copied, do not free it!}
  1382. procedure TCustomRichView.AddPictureExTag(const Name: String; gr: TGraphic;
  1383.                                     ParaNo: Integer; VAlign: TRVVAlign; Tag: Integer);
  1384. begin
  1385.   RVData.AddPictureExTag(Name, gr, ParaNo, VAlign, Tag);
  1386. end;
  1387. {------------------------------------------------------------------------------}
  1388. procedure TCustomRichView.AddPictureEx(const Name: String; gr: TGraphic; ParaNo: Integer; VAlign: TRVVAlign); { gr does not copied, do not free it!}
  1389. begin
  1390.   RVData.AddPictureExTag(Name, gr, ParaNo, VAlign, 0);
  1391. end;
  1392. {------------------------------------------------------------------------------}
  1393. procedure TCustomRichView.AddHotPictureTag(const Name: String; gr: TGraphic;
  1394.                                     ParaNo: Integer; VAlign: TRVVAlign; Tag: Integer);
  1395. begin
  1396.   RVData.AddHotPictureTag(Name, gr, ParaNo, VAlign, Tag);
  1397. end;
  1398. {------------------------------------------------------------------------------}
  1399. procedure TCustomRichView.AddHotPicture(const Name: String; gr: TGraphic; ParaNo: Integer;
  1400.                            VAlign: TRVVAlign);
  1401. begin
  1402.   RVData.AddHotPictureTag(Name, gr, ParaNo, VAlign, 0);
  1403. end;
  1404. {------------------------------------------------------------------------------}
  1405. procedure TCustomRichView.AddPicture(gr: TGraphic); { gr not copied, do not free it!}
  1406. begin
  1407.   RVData.AddPictureExTag('', gr, 1, rvvaBaseline, 0);
  1408. end;
  1409. {------------------------------------------------------------------------------}
  1410. { do not free ctrl yourself! }
  1411. procedure TCustomRichView.AddControlExTag(const Name: String; ctrl: TControl;
  1412.                                     ParaNo: Integer; VAlign: TRVVAlign; Tag: Integer);
  1413. begin
  1414.   RVData.AddControlExTag(Name, ctrl, ParaNo, VAlign, Tag);
  1415. end;
  1416. {------------------------------------------------------------------------------}
  1417. { do not free ctrl yourself!                                            }
  1418. procedure TCustomRichView.AddControlEx(const Name: String; ctrl: TControl; ParaNo: Integer;
  1419.                                  VAlign: TRVVAlign);
  1420. begin
  1421.   RVData.AddControlEx(Name, ctrl, ParaNo, VAlign);
  1422. end;
  1423. {------------------------------------------------------------------------------}
  1424. procedure TCustomRichView.AddControl(ctrl: TControl; center: Boolean); { do not free ctrl! }
  1425. begin
  1426.   if Center then
  1427.     RVData.AddControlExTag('',ctrl, 1, rvvaBaseline, 0)
  1428.   else
  1429.     RVData.AddControlExTag('',ctrl, 0, rvvaBaseline, 0);
  1430. end;
  1431. {------------------------------------------------------------------------------}
  1432. procedure TCustomRichView.Format_(OnlyResized,ForceFormat:Boolean; Canvas: TCanvas;
  1433.           OnlyTail, NoCaching, Reformatting: Boolean);
  1434. begin
  1435.    if VSmallStep = 0 then exit;
  1436.    if (csDesigning in ComponentState) then exit;
  1437.    {$IFDEF RVDEBUG}{$I Debugg.inc}{$ENDIF}
  1438.    RVData.Format_(OnlyResized, ForceFormat, False, 0, Canvas, OnlyTail,
  1439.      NoCaching, Reformatting);
  1440. end;
  1441. {------------------------------------------------------------------------------}
  1442. function TCustomRichView.GetFirstItemVisible: Integer;
  1443. begin
  1444.   Result := RVData.GetFirstItemVisible;
  1445. end;
  1446. {------------------------------------------------------------------------------}
  1447. function TCustomRichView.GetLastItemVisible: Integer;
  1448. begin
  1449.   Result := RVData.GetLastItemVisible;
  1450. end;
  1451. {------------------------------------------------------------------------------}
  1452. procedure TCustomRichView.Paint;
  1453.   {.......................................................}
  1454.     procedure DrawDesignInfo(const msg: String);
  1455.     var r: TRect;
  1456.     begin
  1457.       Canvas.Brush.Color := GetColor;
  1458.       Canvas.Brush.Style := bsSolid;
  1459.       if Ctl3d then
  1460.         Canvas.Pen.Color := clWindow
  1461.       else
  1462.         Canvas.Pen.Color := clWindowText;
  1463.       Canvas.Font.Color := clWindowText;
  1464.       Canvas.Font.Name := RVDEFAULTDESIGNFONT;
  1465.       Canvas.Font.Size := 8;
  1466.       Canvas.Font.Style := [];
  1467.       Canvas.FillRect(Canvas.ClipRect);
  1468.       r := ClientRect;
  1469.       DrawText(Canvas.Handle, PChar(msg), Length(msg),  r, DT_TOP or DT_WORDBREAK);
  1470.       if not Ctl3d then begin
  1471.         Canvas.Brush.Color := clWindowText;
  1472.         Canvas.FrameRect(ClientRect);
  1473.       end;
  1474.     end;
  1475.   {.......................................................}
  1476. var NeedXOR: Boolean;
  1477. begin
  1478.  if (csDesigning in ComponentState) then
  1479.    DrawDesignInfo(SysUtils.Format('%s:%s %s (%s)', [Name, ClassName, RVVersion, RVAddress]))
  1480.  else if not Assigned(FStyle) then
  1481.    DrawDesignInfo(SysUtils.Format(RVNOSTYLEMSG, [Name]))
  1482.  else begin
  1483.    NeedXOR := RVData.ClearXorDrawing;
  1484.    //if Assigned(FOnPaint) then
  1485.    //  FOnPaint(Self, Canvas, True);
  1486.    RVData.PaintBuffered;
  1487.    if Assigned(FOnPaint) then
  1488.      FOnPaint(Self, Canvas, False);
  1489.    if NeedXOR then
  1490.      RVData.XorDrawing;
  1491.  end;
  1492. end;
  1493. {------------------------------------------------------------------------------}
  1494. procedure TCustomRichView.CMMouseLeave(var Message: TMessage);
  1495. begin
  1496.   RVData.MouseLeave;
  1497. end;
  1498. {------------------------------------------------------------------------------}
  1499. procedure TCustomRichView.MouseMove(Shift: TShiftState; X, Y: Integer);
  1500. begin
  1501.   if {RVData.CaptureMouseItem=nil} True then begin
  1502.     if Y<-20 then
  1503.       VScrollDelta := -10
  1504.     else if Y<0 then
  1505.       VScrollDelta := -1
  1506.     else if Y>ClientHeight+20 then
  1507.       VScrollDelta := 10
  1508.     else if Y>ClientHeight then
  1509.       VScrollDelta := 1
  1510.     else
  1511.       VScrollDelta := 0;
  1513.     if X<-20 then
  1514.       HScrollDelta := -10
  1515.     else if X<0 then
  1516.       HScrollDelta := -1
  1517.     else if X>ClientWidth+20 then
  1518.       HScrollDelta := 10
  1519.     else if X>ClientWidth then
  1520.       HScrollDelta := 1
  1521.     else
  1522.       HScrollDelta := 0;
  1523.     inherited MouseMove(Shift, X, Y);
  1524.   end;
  1526.   RVData.MouseMove(Shift, X, Y);
  1527. end;
  1528. {------------------------------------------------------------------------------}
  1529. {$IFDEF RICHVIEWDEF5}
  1530. type
  1531.   TControlPopupMenuHack = class (TControl)
  1532.     public
  1533.       property PopupMenu;
  1534.   end;
  1535. {$ENDIF}
  1536. procedure TCustomRichView.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1537. {$IFDEF RICHVIEWDEF5}
  1538. var p: TPoint;
  1539.     Handled: Boolean;
  1540.     RootRichView: TCustomRichView;
  1541.     Menu: TPopupMenu;
  1543.     function GetPopupMenu: TPopupMenu;
  1544.     var ctrl: TControl;
  1545.     begin
  1546.       Result := nil;
  1547.       ctrl := Self;
  1548.       while (ctrl<>nil) do begin
  1549.         Result := TControlPopupMenuHack(ctrl).PopupMenu;
  1550.         if Result<>nil then
  1551.           exit;
  1552.         ctrl := ctrl.Parent;
  1553.       end;
  1554.     end;
  1556. {$ENDIF}
  1557. begin
  1558.   inherited MouseUp(Button, Shift, X, Y);
  1559.   if (Button=mbLeft) then
  1560.     DeactivateScrollTimer;
  1561.   RVData.MouseUp(Button, Shift, X, Y);
  1562.   {$IFDEF RICHVIEWDEF5}
  1563.   if Style=nil then
  1564.     exit;
  1565.   RootRichView := TCustomRichView(RVData.GetAbsoluteRootData.GetParentControl);
  1566.   if not (csDesigning in ComponentState) and (Button=mbRight) then begin
  1567.     Handled := False;
  1568.     p.X := X;
  1569.     p.Y := Y;
  1570.     AdjustPopupMenuPos(p);
  1571.     p := ClientToScreen(p);
  1572.     RootRichView.DoContextPopup(RootRichView.ScreenToClient(p), Handled);
  1573.     if not Handled then begin
  1574.       Menu := GetPopupMenu;
  1575.       if (Menu<>nil) and Menu.AutoPopup then begin
  1576.         SendCancelMode(nil);
  1577.         Menu.PopupComponent := Self;
  1578.         Menu.Popup(p.X, p.Y);
  1579.       end;
  1580.     end;
  1581.   end;
  1582.   {$ENDIF}
  1583. end;
  1584. {------------------------------------------------------------------------------}
  1585. {$IFDEF RICHVIEWDEF5}
  1586. type
  1587.   TControlHack = class (TControl)
  1588.     public
  1589.       function GetCHPopupMenu: TPopupMenu;
  1590.   end;
  1592.   function TControlHack.GetCHPopupMenu: TPopupMenu;
  1593.   begin
  1594.     Result := GetPopupMenu;
  1595.   end;
  1597. procedure TCustomRichView.WMContextMenu(var Message: TWMContextMenu);
  1598. var Ctrl: TControl;
  1599. begin
  1600.   if (csDesigning in ComponentState) then begin
  1601.     inherited;
  1602.     exit;
  1603.   end;
  1604.   if (Message.XPos=-1) and (Message.YPos=-1) then begin
  1605.     if RVData.GetAbsoluteRootData.GetParentControl=Self then
  1606.       inherited
  1607.     else
  1608.       with Message do
  1609.         RVData.GetAbsoluteRootData.GetParentControl.Perform(Msg, hWnd, -1)
  1610.   end;
  1611.   Ctrl := ControlAtPos(ScreenToClient(SmallPointToPoint(Message.Pos)), False);
  1612.   if (Ctrl<>nil) and (TControlHack(Ctrl).GetCHPopupMenu<>GetPopupMenu) then
  1613.     inherited;
  1614. end;
  1615. {$ENDIF}
  1616. {------------------------------------------------------------------------------}
  1617. procedure TCustomRichView.SelectNext_(GoForward: Boolean);
  1618. begin
  1619.   SelectNext(nil,GoForward,True);
  1620. end;
  1621. {------------------------------------------------------------------------------}
  1622. procedure TCustomRichView.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1623. begin
  1624.   if InplaceEditor=nil then begin
  1625.     Include(RVData.State,rvstDoNotTab);
  1626.   //if not (ssDouble in Shift) then
  1627.   //  Windows.SetFocus(Handle);
  1628.   end;
  1629.   RVData.MouseDown(Button, Shift, X, Y);
  1630.   inherited MouseDown(Button, Shift, X, Y);  
  1631.   if (Button=mbLeft) then
  1632.     ActivateScrollTimer(False);
  1633. end;
  1634. {------------------------------------------------------------------------------}
  1635. procedure TCustomRichView.ActivateScrollTimer(Slow: Boolean);
  1636. var Interval: Integer;
  1637. begin
  1638.   if not ScrollTimerActive then begin
  1639.     if Slow then
  1640.       Interval := 300
  1641.     else
  1642.       Interval := 100;
  1643.     SetTimer(Handle, RV_TIMERID_SCROLLING, Interval,nil);
  1644.     ScrollTimerActive := True;
  1645.   end;
  1646. end;
  1647. {------------------------------------------------------------------------------}
  1648. procedure TCustomRichView.DeactivateScrollTimer;
  1649. begin
  1650.   if ScrollTimerActive then begin
  1651.     if HandleAllocated then
  1652.       KillTimer(Handle, RV_TIMERID_SCROLLING);
  1653.     ScrollTimerActive := False;
  1654.   end;
  1655. end;
  1656. {------------------------------------------------------------------------------}
  1657. function TCustomRichView.CompareTags(Tag1, Tag2: Integer): Boolean;
  1658. begin
  1659.   if (rvoTagsArePChars in Options) then
  1660.     if (Tag1=0) then
  1661.       if (Tag2=0) then
  1662.         Result := True
  1663.       else
  1664.         Result := False
  1665.     else
  1666.       if (Tag2=0) then
  1667.         Result := False
  1668.       else
  1669.         Result := StrComp(PChar(Tag1),PChar(Tag2))=0
  1670.   else
  1671.     Result := Tag1=Tag2;
  1672. end;
  1673. {------------------------------------------------------------------------------}
  1674. procedure TCustomRichView.AppendFrom(Source: TCustomRichView);
  1675. begin
  1676.   RVData.AppendFrom(Source.RVData);
  1677. end;
  1678. {------------------------------------------------------------------------------}
  1679. function TCustomRichView.GetBackBitmap: TBitmap;
  1680. begin
  1681.   Result := Background.Bitmap;
  1682. end;
  1683. {------------------------------------------------------------------------------}
  1684. procedure TCustomRichView.SetBackBitmap(Value: TBitmap);
  1685. begin
  1686.   Background.Bitmap.Assign(Value);
  1687. end;
  1688. {------------------------------------------------------------------------------}
  1689. procedure TCustomRichView.DoOnBackBitmapChange(Sender: TObject);
  1690. begin
  1691.   if not RVData.UpdatingBAckgroundPalette then begin
  1692.     FullRedraw := Background.ScrollRequiresFullRedraw;//or (RVData.FZoomPercent<>100);
  1693.     RVData.UpdateBackgroundPaletteInfo(Background);
  1694.     if rvoFormatInvalidate in Options then Invalidate;
  1695.     {$IFNDEF RVDONOTUSEANIMATION}
  1696.     RVData.ResetAniBackground;
  1697.     {$ENDIF}
  1698.   end;
  1699. end;
  1700. {------------------------------------------------------------------------------}
  1701. function TCustomRichView.GetBackgroundStyle: TBackgroundStyle;
  1702. begin
  1703.   Result := Background.Style;
  1704. end;
  1705. {------------------------------------------------------------------------------}
  1706. procedure TCustomRichView.SetBackgroundStyle(Value: TBackgroundStyle);
  1707. begin
  1708.   Background.Style := Value;
  1709.   DoOnBackBitmapChange(nil);
  1710. end;
  1711. {------------------------------------------------------------------------------}
  1712. function TCustomRichView.GetColor: TColor;
  1713. begin
  1714.   {$IFDEF RVDEBUG}{$I Debuge.inc}{$ENDIF}
  1715.   if Color<>clNone then
  1716.     Result := Color
  1717.   else if Assigned(FStyle) then
  1718.     Result := FStyle.Color
  1719.   else
  1720.     Result := clWindow;
  1721. end;
  1722. {------------------------------------------------------------------------------}
  1723. function TCustomRichView.GetHoverColor(Color: TColor):TColor;
  1724. begin
  1725.   if Color<>clNone then
  1726.     Result := Color
  1727.   else
  1728.     Result := FStyle.HoverColor;
  1729. end;
  1730. {------------------------------------------------------------------------------}
  1731. procedure TCustomRichView.WMEraseBkgnd(var Message: TWMEraseBkgnd);
  1732. begin
  1733.   Message.Result := 1;
  1734. end;
  1735. {------------------------------------------------------------------------------}
  1736. procedure TCustomRichView.SetVSmallStep(Value: Integer);
  1737. begin
  1738.    if (Value<=0) or (VScrollVisible and (DocumentHeight div Value > 32000)) then
  1739.      exit;
  1740.    inherited SetVSmallStep(Value);
  1741. end;
  1742. {------------------------------------------------------------------------------}
  1743. procedure TCustomRichView.SetBiDiModeRV(const Value: TRVBiDiMode);
  1744. begin
  1745.   if Value<>BiDiMode then begin
  1746.     inherited SetBiDiModeRV(Value);
  1747.     Deselect;
  1748.     if not (rvstSkipFormatting in RVData.State) then
  1749.       Format;
  1750.   end;
  1751. end;
  1752. {------------------------------------------------------------------------------}
  1753. procedure TCustomRichView.SelectWordAt(X,Y: Integer);
  1754. begin
  1755.   RVData.SelectWordAt(X, Y);
  1756. end;
  1757. {------------------------------------------------------------------------------}
  1758. procedure TCustomRichView.DblClick;
  1759. begin
  1760.   inherited DblClick;
  1761.   RVData.DblClick;
  1762. end;
  1763. {------------------------------------------------------------------------------}
  1764. procedure TCustomRichView.DeleteSection(const CpName: String);
  1765. begin
  1766.   RVData.DeleteSection(CpName);
  1767. end;
  1768. {------------------------------------------------------------------------------}
  1769. procedure TCustomRichView.DeleteItems(FirstItemNo, Count: Integer);
  1770. begin
  1771.   RVData.DeleteItems(FirstItemNo, Count);