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

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

RichEdit

开发平台：

Delphi

RVRVData.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       RichView                                        }
  5. {       TRichViewRVData represents RichView document.   }
  6. {       This is a type of TRichView.RVData.             }
  7. {                                                       }
  8. {       Copyright (c) Sergey Tkachenko                  }
  9. {       svt@trichview.com                               }
  10. {       http://www.trichview.com                        }
  11. {                                                       }
  12. {*******************************************************}
  14. unit RVRVData;
  16. interface
  18. {$I RV_Defs.inc}
  20. uses Windows, Classes, Controls, Graphics, Forms, StdCtrls,
  21.      RVItem, RVBack, RVStyle, CRVData, CRVFData, RVCtrlData, RVScroll,
  22.     {$IFDEF RICHVIEWDEF4}
  23.      ImgList,
  24.     {$ENDIF}
  25.     {$IFNDEF RVDONOTUSELISTS}
  26.      RVMarker,
  27.     {$ENDIF}
  28.     {$IFNDEF RVDONOTUSEDRAGDROP}
  29.      ActiveX, RVDragDrop,
  30.     {$ENDIF}
  31.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  32.     RVPopup,
  33.     {$ENDIF}
  34.      RVClasses, RVFuncs, RVAnimate
  35.      ;
  37. type
  38.   TRichViewRVData = class (TRVControlData)
  39.   protected
  40.     FRichView: TRVScroller;
  41.     FFontInfoCache: TRVFontInfoCache;
  42.     RVFTextStylesMapping, RVFParaStylesMapping, RVFListStyleMapping: TRVIntegerList;
  43.     {$IFNDEF RVDONOTUSELISTS}
  44.     FMarkers: TRVMarkerList;
  45.     procedure DestroyMarkers; override;
  46.     {$ENDIF}
  47.     function GetInplaceEditor: TControl; override;
  48.     procedure DestroyInplaceEditor; override;
  49.     function GetRTFProperties: TPersistent{TRVRTFReaderProperties}; override;
  50.     procedure InitStyleMappings(var PTextStylesMapping,
  51.       PParaStylesMapping, PListStylesMapping: PRVIntegerList); override;
  52.     procedure DoneStyleMappings(PTextStylesMapping,
  53.       PParaStylesMapping, PListStylesMapping: PRVIntegerList); override;
  54.     {$IFNDEF RVDONOTUSEDRAGDROP}
  55.     { Drag & drop: drop from }
  56.     function CanStartDragging: Boolean; override;
  57.     function InitDragging(var DropSource: TRVDropSource;
  58.       var OKEffect: Integer): Boolean; override;
  59.     procedure DoneDragging(FDeleteSelection: Boolean); override;
  60.     {$ENDIF}
  61.     function GetRVDataExtraVOffs: Integer; override;
  62.     function DoCreateFontInfoCache(ACanvas: TCanvas;
  63.       Owner: TCustomRVFormattedData): TRVFontInfoCache;
  64.     procedure CreateFontInfoCache(ACanvas: TCanvas); override;
  65.     procedure DestroyFontInfoCache(var Cache: TRVFontInfoCache); override;
  66.     function GetFontInfoCache(ACanvas: TCanvas;
  67.       RVData: TCustomRVFormattedData): TRVFontInfoCache; override;
  68.   public
  69.     {$IFNDEF RVDONOTUSEANIMATION}
  70.     FPlayingAnimation: Boolean;
  71.     FAnimatorList: TRVAnimatorList;
  72.     {$ENDIF}
  73.     {$IFNDEF RVDONOTUSEDRAGDROP}
  74.     FDropSource: TRVDropSource; // object implemeting IDropSource and IDataObject
  75.     {$ENDIF}
  76.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  77.     FSmartPopupButton: TRVSmartPopupButton;
  78.     {$ENDIF}
  79.     {$IFNDEF RVDONOTUSESMARTPOPUP}
  80.     procedure AdjustSpecialControlsCoords(RVData: TCustomRVFormattedData); override;
  81.     procedure SetSmartPopupCoords;
  82.     //procedure InternalFreeItem(item: TCustomRVItemInfo; Clearing: Boolean); override;
  83.     {$ENDIF}                
  84.     procedure Clear; override;
  85.     destructor Destroy; override;
  86.     function CanLoadLayout: Boolean; override;
  87.     function GetExtraRTFCode(Area: TRVRTFSaveArea; Obj: TObject;
  88.       Index1, Index2: Integer; InStyleSheet: Boolean): String; override;
  89.     function GetExtraHTMLCode(Area: TRVHTMLSaveArea; CSSVersion: Boolean): String; override;
  90.     function GetParaHTMLCode(RVData: TCustomRVData; ItemNo: Integer;
  91.       ParaStart, CSSVersion: Boolean): String; override;
  92.     function GetChosenRVData: TCustomRVData; override;
  93.     function GetChosenItem: TCustomRVItemInfo; override;
  94.     procedure AssignChosenRVData(RVData: TCustomRVFormattedData;
  95.                                  Item: TCustomRVItemInfo); override;
  96.     procedure SilentReplaceChosenRVData(RVData: TCustomRVFormattedData); override;
  97.     procedure UnassignChosenRVData(RVData: TCustomRVData); override;
  98.     function GetParentControl: TWinControl; override;
  99.     function GetDoInPaletteMode: TRVPaletteAction; override;
  100.     function GetRVPalette: HPALETTE; override;
  101.     function GetRVStyle: TRVStyle; override;
  102.     function GetRVLogPalette: PLogPalette; override;
  103.     function GetURL(id: Integer): String; override;
  104.     procedure ReadHyperlink(const Target, Extras: String; DocFormat: TRVLoadFormat;
  105.       var StyleNo, ItemTag: Integer; var ItemName: String); override;
  106.     procedure WriteHyperlink(id: Integer; RVData: TCustomRVData; ItemNo: Integer;
  107.        SaveFormat: TRVSaveFormat; var Target, Extras: String); override;
  108.     function GetOptions: TRVOptions; override;
  109.     procedure SetOptions(const Value: TRVOptions); override;
  110.     function GetDocProperties: TStringList; override;    
  111.     function GetRVFOptions: TRVFOptions; override;
  112.     procedure SetRVFOptions(const Value: TRVFOptions); override;
  113.     function GetRVFWarnings: TRVFWarnings; override;
  114.     procedure SetRVFWarnings(const Value: TRVFWarnings); override;
  115.     function GetRTFOptions: TRVRTFOptions; override;
  116.     procedure SetRTFOptions(const Value: TRVRTFOptions); override;
  117.     function GetAreaWidth: Integer; override;
  118.     function GetAreaHeight: Integer; override;
  119.     procedure GetOrigin(var ALeft, ATop: Integer); override;
  120.     procedure GetOriginEx(var ALeft, ATop: Integer); override;
  121.     function GetMinTextWidth: Integer; override;
  122.     function GetMaxTextWidth: Integer; override;
  123.     function GetLeftMargin: Integer; override;
  124.     function GetRightMargin: Integer; override;
  125.     function GetTopMargin: Integer; override;
  126.     function GetBottomMargin: Integer; override;
  127.     function GetFlags: TRVFlags; override;
  128.     procedure SetFlags(const Value: TRVFlags); override;
  129.     procedure AdjustVScrollUnits; override;
  130.     procedure SetDocumentAreaSize(Width,Height: Integer; UpdateH: Boolean); override;
  131.     procedure ScrollTo(Y: Integer; Redraw: Boolean); override;
  132.     procedure HScrollTo(X: Integer); override;
  133.     function GetVSmallStep: Integer; override;
  134.     function GetBackground: TRVBackground; override;
  136.     function IsAssignedCopy: Boolean; override;
  137.     function IsAssignedRVMouseDown: Boolean; override;
  138.     function IsAssignedRVMouseUp: Boolean; override;
  139.     function IsAssignedRVRightClick: Boolean; override;
  140.     function IsAssignedJump: Boolean; override;
  141.     function IsAssignedRVDblClick: Boolean; override;
  142.     function IsAssignedCheckpointVisible: Boolean; override;
  143.     function IsAssignedOnProgress: Boolean; override;
  145.     procedure DoProgress(Operation: TRVLongOperation; Stage: TRVProgressStage;
  146.       PercentDone: Byte); override;
  147.     procedure DoCopy; override;
  148.     procedure DoRVMouseMove(id: Integer); override;
  149.     procedure DoRVMouseDown(Button: TMouseButton; Shift: TShiftState;
  150.       ItemNo, X, Y: Integer); override;
  151.     procedure DoRVMouseUp(Button: TMouseButton; Shift: TShiftState;
  152.       ItemNo, X, Y: Integer); override;
  153.     procedure DoRVRightClick(const ClickedWord: String; StyleNo,
  154.       X, Y: Integer); override;
  155.     procedure DoRVDblClick(const ClickedWord: String; StyleNo: Integer); override;
  156.     procedure DoCheckpointVisible(CheckpointData: TCheckpointData); override;
  158.     procedure DoJump(id: Integer); override;
  159.     procedure DoSelect; override;
  160.     function GetNormalCursor: TCursor; override;
  161.     function GetCPEventKind: TCPEventKind; override;
  162.     procedure HTMLSaveImage(RVData: TCustomRVData; ItemNo: Integer;
  163.       const Path: String; BackgroundColor: TColor; var Location: String;
  164.       var DoDefault: Boolean); override;
  165.     procedure SaveImage2(Graphic: TGraphic; SaveFormat: TRVSaveFormat;
  166.       const Path, ImagePrefix: String; var ImageSaveNo: Integer;
  167.       var Location: String; var DoDefault: Boolean); override;
  168.     constructor Create(RichView: TRVScroller); virtual;
  169.     function GetHOffs: Integer; override;
  170.     function GetVOffs: Integer; override;
  171.     function GetCanvas: TCanvas; override;
  172.     function GetWidth: Integer; override;
  173.     function GetHeight: Integer; override;
  174.     function GetColor: TColor; override;
  175.     function SaveComponentToFile(const Path: String; SaveMe: TComponent;
  176.       SaveFormat: TRVSaveFormat): String; override;
  177.     function SaveItemToFile(const Path: String; RVData: TCustomRVData;
  178.       ItemNo: Integer; SaveFormat: TRVSaveFormat; Unicode: Boolean;
  179.       var Text: String): Boolean; override;
  180.     function ImportPicture(const Location: String;
  181.       Width, Height: Integer; var Invalid: Boolean): TGraphic; override;
  182.     function GetItemHint(RVData: TCustomRVData; ItemNo: Integer;
  183.       const UpperRVDataHint: String): String; override;
  184.     function RVFPictureNeeded(const ItemName: String;
  185.       ItemTag: Integer): TGraphic; override;
  186.     function RVFControlNeeded(const ItemName: String;
  187.       ItemTag: Integer): TControl; override;
  188.     function RVFImageListNeeded(ImageListTag: Integer): TCustomImageList; override;
  189.     function GetDelimiters: String; override;
  190.     function GetRVFTextStylesReadMode: TRVFReaderStyleMode; override;
  191.     function GetRVFParaStylesReadMode: TRVFReaderStyleMode; override;
  192.     function GetBiDiMode: TRVBiDiMode; override;
  193.     procedure ControlAction2(ControlAction: TRVControlAction; ItemNo: Integer;
  194.                             var Control:TControl); override;
  195.     procedure ItemAction(ItemAction: TRVItemAction; Item: TCustomRVItemInfo;
  196.                              var Text: String; RVData: TCustomRVData); override;
  197.     {$IFNDEF RVDONOTUSEDRAGDROP}
  198.     { Drag & drop: drop to }
  199.     function GetDragDropCaretInfo: TRVDragDropCaretInfo; override;
  200.     { Drag & drop: drop from }
  201.     function IsDragging: Boolean; override;
  202.     {$ENDIF}
  203.     {$IFNDEF RVDONOTUSEANIMATION}
  204.     procedure InsertAnimator(var Animator: TObject); override;
  205.     function AllowAnimation: Boolean; override;
  206.     procedure ResetAniBackground; override;
  207.     {$ENDIF}
  208.     {$IFNDEF RVDONOTUSELISTS}
  209.     function GetMarkers(AllowCreate: Boolean): TRVMarkerList; override;
  210.     {$ENDIF}
  211.     property RichView: TRVScroller read FRichView;
  212.   end;
  214.   TRichViewRVDataClass = class of TRichViewRVData;
  216.   TRVFontInfoCacheFast = class(TRVFontInfoCache)
  217.   protected
  218.     function GetItems(Index: Integer): TRVFontInfoCacheItem; override;
  219.   public
  220.     procedure Clear; {$IFDEF RICHVIEWDEF4}override;{$ENDIF}
  221.   end;
  223.   TRVFontInfoCacheLowResource = class(TRVFontInfoCache)
  224.   protected
  225.     function GetItems(Index: Integer): TRVFontInfoCacheItem; override;
  226.   end;  
  228. implementation
  229. uses RichView, RVUni;
  230. {============================ TRichViewRVData =================================}
  231. constructor TRichViewRVData.Create(RichView: TRVScroller);
  232. begin
  233.   inherited Create;
  234.   FRichView := RichView;
  235. end;
  236. {------------------------------------------------------------------------------}
  237. destructor TRichViewRVData.Destroy;
  238. begin
  239.   {$IFNDEF RVDONOTUSELISTS}
  240.   FMarkers.Free;
  241.   FMarkers := nil;
  242.   {$ENDIF}
  243.   {$IFNDEF RVDONOTUSEANIMATION}
  244.   TCustomRichView(RichView).StopAnimation;
  245.   FAnimatorList.Free;
  246.   FAnimatorList := nil;
  247.   {$ENDIF}
  248.   FFontInfoCache.Free;
  249.   inherited Destroy;
  250. end;
  251. {------------------------------------------------------------------------------}
  252. function TRichViewRVData.GetDoInPaletteMode: TRVPaletteAction;
  253. begin
  254.   Result := TCustomRichView(FRichView).DoInPaletteMode;
  255. end;
  256. {------------------------------------------------------------------------------}
  257. function TRichViewRVData.GetOptions: TRVOptions;
  258. begin
  259.   Result := TCustomRichView(FRichView).Options;
  260. end;
  261. {------------------------------------------------------------------------------}
  262. procedure TRichViewRVData.SetOptions(const Value: TRVOptions);
  263. begin
  264.   TCustomRichView(FRichView).Options := Value;
  265. end;
  266. {------------------------------------------------------------------------------}
  267. function TRichViewRVData.GetParentControl: TWinControl;
  268. begin
  269.   Result := TWinControl(FRichView);
  270. end;
  271. {------------------------------------------------------------------------------}
  272. function TRichViewRVData.GetRVFOptions: TRVFOptions;
  273. begin
  274.   Result := TCustomRichView(FRichView).RVFOptions;
  275. end;
  276. {------------------------------------------------------------------------------}
  277. procedure TRichViewRVData.SetRVFOptions(const Value: TRVFOptions);
  278. begin
  279.   TCustomRichView(FRichView).RVFOptions := Value;
  280. end;
  281. {------------------------------------------------------------------------------}
  282. function TRichViewRVData.GetRTFOptions: TRVRTFOptions;
  283. begin
  284.   Result := TCustomRichView(FRichView).RTFOptions;
  285. end;
  286. {------------------------------------------------------------------------------}
  287. procedure TRichViewRVData.SetRTFOptions(const Value: TRVRTFOptions);
  288. begin
  289.   TCustomRichView(FRichView).RTFOptions := Value;
  290. end;
  291. {------------------------------------------------------------------------------}
  292. function TRichViewRVData.GetRVFWarnings: TRVFWarnings;
  293. begin
  294.   Result := TCustomRichView(FRichView).RVFWarnings;
  295. end;
  296. {------------------------------------------------------------------------------}
  297. procedure TRichViewRVData.SetRVFWarnings(const Value: TRVFWarnings);
  298. begin
  299.   TCustomRichView(FRichView).RVFWarnings := Value;
  300. end;
  301. {------------------------------------------------------------------------------}
  302. function TRichViewRVData.GetRVLogPalette: PLogPalette;
  303. begin
  304.   Result := TCustomRichView(FRichView).PRVLogPalette;
  305. end;
  306. {------------------------------------------------------------------------------}
  307. function TRichViewRVData.GetRVPalette: HPALETTE;
  308. begin
  309.   Result := TCustomRichView(FRichView).RVPalette;
  310. end;
  311. {------------------------------------------------------------------------------}
  312. function TRichViewRVData.GetURL(id: Integer): String;
  313. begin
  314.   Result := '';
  315.   if Assigned(TCustomRichView(FRichView).OnURLNeeded) then
  316.     TCustomRichView(FRichView).OnURLNeeded(TCustomRichView(FRichView), id, Result);
  317. end;
  318. {------------------------------------------------------------------------------}
  319. function TRichViewRVData.CanLoadLayout: Boolean;
  320. begin
  321.   Result := True;
  322. end;
  323. {------------------------------------------------------------------------------}
  324. function TRichViewRVData.GetExtraRTFCode(Area: TRVRTFSaveArea;
  325.   Obj: TObject; Index1, Index2: Integer; InStyleSheet: Boolean): String;
  326. begin
  327.   Result := '';
  328.   if Assigned(TCustomRichView(FRichView).OnSaveRTFExtra) then
  329.     TCustomRichView(FRichView).OnSaveRTFExtra(TCustomRichView(FRichView),
  330.       Area, Obj, Index1, Index2, InStyleSheet, Result);
  331. end;
  332. {------------------------------------------------------------------------------}
  333. function TRichViewRVData.GetExtraHTMLCode(Area: TRVHTMLSaveArea; CSSVersion: Boolean): String; 
  334. begin
  335.   Result := '';
  336.   if Assigned(TCustomRichView(FRichView).OnSaveHTMLExtra) then
  337.     TCustomRichView(FRichView).OnSaveHTMLExtra(TCustomRichView(FRichView),
  338.       Area, CSSVersion, Result);
  339. end;
  340. {------------------------------------------------------------------------------}
  341. function TRichViewRVData.GetParaHTMLCode(RVData: TCustomRVData;
  342.   ItemNo: Integer; ParaStart, CSSVersion: Boolean): String;
  343. begin
  344.   Result := '';
  345.   if Assigned(TCustomRichView(FRichView).OnSaveParaToHTML) then
  346.     TCustomRichView(FRichView).OnSaveParaToHTML(TCustomRichView(FRichView),
  347.       RVData, ItemNo, ParaStart, CSSVersion, Result);
  348. end;
  349. {------------------------------------------------------------------------------}
  350. procedure TRichViewRVData.ReadHyperlink(const Target, Extras: String;
  351.   DocFormat: TRVLoadFormat; var StyleNo, ItemTag: Integer;
  352.   var ItemName: String);
  353. begin
  354.   case StyleNo of
  355.     rvsPicture:
  356.       StyleNo := rvsHotPicture;
  357.     rvsBullet:
  358.       StyleNo := rvsHotspot;
  359.   end;
  360.   if Assigned(TCustomRichView(FRichView).OnReadHyperlink) then
  361.     TCustomRichView(FRichView).OnReadHyperlink(TCustomRichView(FRichView),
  362.       Target, Extras, DocFormat, StyleNo, ItemTag, ItemName);
  363. end;
  364. {------------------------------------------------------------------------------}
  365. procedure TRichViewRVData.WriteHyperlink(id: Integer; RVData: TCustomRVData;
  366.   ItemNo: Integer; SaveFormat: TRVSaveFormat;
  367.   var Target, Extras: String);
  368. begin
  369.   Target := '';
  370.   Extras := '';
  371.   if rvflRoot in Flags then begin
  372.     {$IFNDEF RVDONOTUSEITEMHINTS}
  373.     RVData.GetItem(ItemNo).GetExtraStrProperty(rvespHint, Extras);
  374.     Extras := RV_GetHintStr(SaveFormat, Extras);
  375.     {$ENDIF}
  376.     if Assigned(TCustomRichView(FRichView).OnWriteHyperlink) then
  377.       TCustomRichView(FRichView).OnWriteHyperlink(TCustomRichView(FRichView),
  378.         id, RVData, ItemNo, SaveFormat, Target, Extras)
  379.     else
  380.       Target := GetURL(id)
  381.     end
  382.   else
  383.     inherited;
  384. end;
  385. {------------------------------------------------------------------------------}
  386. function TRichViewRVData.RVFControlNeeded(const ItemName: String; ItemTag: Integer): TControl;
  387. begin
  388.   Result := nil;
  389.   if Assigned(  TCustomRichView(FRichView).OnRVFControlNeeded) then
  390.       TCustomRichView(FRichView).OnRVFControlNeeded(TCustomRichView(FRichView),
  391.                                               ItemName, ItemTag, Result);
  392. end;
  393. {------------------------------------------------------------------------------}
  394. function TRichViewRVData.RVFImageListNeeded(ImageListTag: Integer): TCustomImageList;
  395. begin
  396.   Result := nil;
  397.   if Assigned(TCustomRichView(FRichView).OnRVFImageListNeeded) then
  398.     TCustomRichView(FRichView).OnRVFImageListNeeded(TCustomRichView(FRichView),
  399.                                               ImageListTag, Result);
  400. end;
  401. {------------------------------------------------------------------------------}
  402. function TRichViewRVData.RVFPictureNeeded(const ItemName: String;
  403.   ItemTag: Integer): TGraphic;
  404. begin
  405.   Result := nil;
  406.   if Assigned(TCustomRichView(FRichView).OnRVFPictureNeeded) then
  407.     TCustomRichView(FRichView).OnRVFPictureNeeded(TCustomRichView(FRichView),
  408.                                             ItemName, ItemTag, Result);
  409. end;
  410. {------------------------------------------------------------------------------}
  411. function TRichViewRVData.SaveComponentToFile(const Path: String;
  412.   SaveMe: TComponent; SaveFormat: TRVSaveFormat): String;
  413. begin
  414.   Result := '';
  415.   if Assigned(TCustomRichView(FRichView).OnSaveComponentToFile) then
  416.     TCustomRichView(FRichView).OnSaveComponentToFile(
  417.       TCustomRichView(FRichView), Path, SaveMe, SaveFormat, Result);
  418. end;
  419. {------------------------------------------------------------------------------}
  420. function TRichViewRVData.SaveItemToFile(const Path: String; 
  421.   RVData: TCustomRVData; ItemNo: Integer; SaveFormat: TRVSaveFormat;
  422.   Unicode: Boolean; var Text: String): Boolean;
  423. begin
  424.   if Assigned(TCustomRichView(FRichView).OnSaveItemToFile) then begin
  425.     Result := True;
  426.     TCustomRichView(FRichView).OnSaveItemToFile(TCustomRichView(FRichView),
  427.       Path, RVData, ItemNo, SaveFormat, Unicode, Text, Result);
  428.     Result := not Result;
  429.     end
  430.   else
  431.     Result := False;
  432. end;
  433. {------------------------------------------------------------------------------}
  434. function TRichViewRVData.ImportPicture(const Location: String; Width,
  435.   Height: Integer; var Invalid: Boolean): TGraphic;
  436. begin
  437.   Result := nil;
  438.   if Assigned(TCustomRichView(FRichView).OnImportPicture) then begin
  439.     TCustomRichView(FRichView).CurPictureInvalid := False;
  440.     TCustomRichView(FRichView).OnImportPicture(TCustomRichView(FRichView),
  441.       Location, Width, Height, Result);
  442.     Invalid := TCustomRichView(FRichView).CurPictureInvalid;
  443.     TCustomRichView(FRichView).CurPictureInvalid := False;
  444.   end;
  445. end;
  446. {------------------------------------------------------------------------------}
  447. function TRichViewRVData.GetItemHint(RVData: TCustomRVData;
  448.   ItemNo: Integer; const UpperRVDataHint: String): String;
  449. begin
  450.   if ItemNo<0 then begin
  451.     Result := UpperRVDataHint;
  452.     exit;
  453.   end;
  454.   {$IFNDEF RVDONOTUSEITEMHINTS}
  455.   RVData.GetItem(ItemNo).GetExtraStrProperty(rvespHint, Result);
  456.   {$ELSE}
  457.   Result := '';
  458.   {$ENDIF}
  459.   if Assigned(TCustomRichView(FRichView).OnItemHint) then
  460.     TCustomRichView(FRichView).OnItemHint(TCustomRichView(FRichView),
  461.       RVData, ItemNo, Result);
  462.   if Result='' then
  463.     Result := UpperRVDataHint;
  464. end;
  465. {------------------------------------------------------------------------------}
  466. function TRichViewRVData.IsAssignedCopy: Boolean;
  467. begin
  468.   Result := Assigned(TCustomRichView(FRichView).OnCopy);
  469. end;
  470. {------------------------------------------------------------------------------}
  471. procedure TRichViewRVData.DoCopy;
  472. begin
  473.   if Assigned(TCustomRichView(FRichView).OnCopy) then
  474.     TCustomRichView(FRichView).OnCopy(TCustomRichView(FRichView));
  475. end;
  476. {------------------------------------------------------------------------------}
  477. procedure TRichViewRVData.DoRVMouseMove(id: Integer);
  478. begin
  479.   if Assigned(TCustomRichView(FRichView).OnRVMouseMove) then
  480.     TCustomRichView(FRichView).OnRVMouseMove(TCustomRichView(FRichView),id);
  481. end;
  482. {------------------------------------------------------------------------------}
  483. procedure TRichViewRVData.DoRVMouseDown(Button: TMouseButton;
  484.   Shift: TShiftState; ItemNo, X, Y: Integer);
  485. begin
  486.   if Assigned(TCustomRichView(FRichView).OnRVMouseDown) then
  487.     TCustomRichView(FRichView).OnRVMouseDown(TCustomRichView(FRichView),Button,Shift,ItemNo,X,Y);
  488. end;
  489. {------------------------------------------------------------------------------}
  490. function TRichViewRVData.IsAssignedRVMouseUp: Boolean;
  491. begin
  492.   Result := Assigned(TCustomRichView(FRichView).OnRVMouseUp);
  493. end;
  494. {------------------------------------------------------------------------------}
  495. function TRichViewRVData.IsAssignedRVMouseDown: Boolean;
  496. begin
  497.   Result := Assigned(TCustomRichView(FRichView).OnRVMouseDown);
  498. end;
  499. {------------------------------------------------------------------------------}
  500. function TRichViewRVData.IsAssignedRVRightClick: Boolean;
  501. begin
  502.   Result := Assigned(TCustomRichView(FRichView).OnRVRightClick);
  503. end;
  504. {------------------------------------------------------------------------------}
  505. function TRichViewRVData.IsAssignedJump: Boolean;
  506. begin
  507.   Result := Assigned(TCustomRichView(FRichView).OnJump);
  508. end;
  509. {------------------------------------------------------------------------------}
  510. function TRichViewRVData.IsAssignedRVDblClick: Boolean;
  511. begin
  512.   Result := Assigned(TCustomRichView(FRichView).OnRVDblClick);
  513. end;
  514. {------------------------------------------------------------------------------}
  515. function TRichViewRVData.IsAssignedCheckpointVisible: Boolean;
  516. begin
  517.   Result := Assigned(TCustomRichView(FRichView).OnCheckpointVisible);
  518. end;
  519. {------------------------------------------------------------------------------}
  520. procedure TRichViewRVData.DoRVMouseUp(Button: TMouseButton;
  521.   Shift: TShiftState; ItemNo, X, Y: Integer);
  522. begin
  523.   if IsAssignedRVMouseUp then
  524.     TCustomRichView(FRichView).OnRVMouseUp(TCustomRichView(FRichView),Button,Shift,ItemNo,X,Y);
  525. end;
  526. {------------------------------------------------------------------------------}
  527. procedure TRichViewRVData.DoRVRightClick(const ClickedWord: String;
  528.   StyleNo, X, Y: Integer);
  529. begin
  530.   if Assigned(TCustomRichView(FRichView).OnRVRightClick) then
  531.     TCustomRichView(FRichView).OnRVRightClick(TCustomRichView(FRichView), ClickedWord,
  532.                                         StyleNo, X, Y);
  533. end;
  534. {------------------------------------------------------------------------------}
  535. procedure TRichViewRVData.DoJump(id: Integer);
  536. begin
  537.   if Assigned(TCustomRichView(FRichView).OnJump) then
  538.     TCustomRichView(FRichView).OnJump(TCustomRichView(FRichView), id);
  539. end;
  540. {------------------------------------------------------------------------------}
  541. procedure TRichViewRVData.HTMLSaveImage(RVData: TCustomRVData; ItemNo: Integer;
  542.   const Path: String; BackgroundColor: TColor;
  543.   var Location: String; var DoDefault: Boolean);
  544. begin
  545.   DoDefault := True;
  546.   if Assigned(TCustomRichView(FRichView).OnHTMLSaveImage) then
  547.     TCustomRichView(FRichView).OnHTMLSaveImage(TCustomRichView(FRichView),
  548.       RVData, ItemNo, Path, BackgroundColor, Location, DoDefault);
  549. end;
  550. {------------------------------------------------------------------------------}
  551. procedure TRichViewRVData.SaveImage2(Graphic: TGraphic; SaveFormat: TRVSaveFormat;
  552.   const Path, ImagePrefix: String; var ImageSaveNo: Integer;
  553.   var Location: String; var DoDefault: Boolean); 
  554. begin
  555.   DoDefault := True;
  556.   if Assigned(TCustomRichView(FRichView).OnSaveImage2) then
  557.     TCustomRichView(FRichView).OnSaveImage2(TCustomRichView(FRichView),
  558.       Graphic, SaveFormat, Path, ImagePrefix, ImageSaveNo, Location, DoDefault);
  559. end;
  560. {------------------------------------------------------------------------------}
  561. procedure TRichViewRVData.DoRVDblClick(const ClickedWord: String; StyleNo: Integer);
  562. begin
  563.   if Assigned(TCustomRichView(FRichView).OnRVDblClick) then
  564.     TCustomRichView(FRichView).OnRVDblClick(TCustomRichView(FRichView), ClickedWord, StyleNo);
  565. end;
  566. {------------------------------------------------------------------------------}
  567. procedure TRichViewRVData.DoSelect;
  568. begin
  569.   if Assigned(TCustomRichView(FRichView).OnSelect) and
  570.      not (csDestroying in FRichView.ComponentState) and
  571.      FRichView.HandleAllocated then
  572.     TCustomRichView(FRichView).OnSelect(TCustomRichView(FRichView));
  573. end;
  574. {------------------------------------------------------------------------------}
  575. procedure TRichViewRVData.DoCheckpointVisible(CheckpointData: TCheckpointData);
  576. begin
  577.   if Assigned(TCustomRichView(FRichView).OnCheckpointVisible) then
  578.     TCustomRichView(FRichView).OnCheckpointVisible(TCustomRichView(FRichView), CheckpointData);
  579. end;
  580. {------------------------------------------------------------------------------}
  581. procedure TRichViewRVData.ControlAction2(ControlAction: TRVControlAction;
  582.   ItemNo: Integer; var Control: TControl);
  583. begin
  584.   if Assigned(TCustomRichView(FRichView).OnControlAction) then
  585.     TCustomRichView(FRichView).OnControlAction(TCustomRichView(FRichView), ControlAction,
  586.                                          ItemNo, Control);
  587. end;
  588. {------------------------------------------------------------------------------}
  589. procedure TRichViewRVData.ItemAction(ItemAction: TRVItemAction; Item: TCustomRVItemInfo;
  590.                                      var Text: String; RVData: TCustomRVData);
  591. begin
  592.   if Assigned(TCustomRichView(FRichView).OnItemAction) then
  593.     TCustomRichView(FRichView).OnItemAction(TCustomRichView(FRichView), ItemAction,
  594.                                          Item, Text, RVData);
  595. end;
  596. {------------------------------------------------------------------------------}
  597. procedure TRichViewRVData.DoProgress(Operation: TRVLongOperation;
  598.   Stage: TRVProgressStage; PercentDone: Byte);
  599. begin
  600.   if Assigned(TCustomRichView(FRichView).OnProgress) then
  601.     TCustomRichView(FRichView).OnProgress(TCustomRichView(FRichView),
  602.       Operation, Stage, PercentDone);
  603. end;
  604. {------------------------------------------------------------------------------}
  605. function TRichViewRVData.IsAssignedOnProgress: Boolean;
  606. begin
  607.   Result := Assigned(TCustomRichView(FRichView).OnProgress);
  608. end;
  609. {------------------------------------------------------------------------------}
  610. function TRichViewRVData.GetWidth: Integer;
  611. begin
  612.   Result := FRichView.ClientWidth;
  613. end;
  614. {------------------------------------------------------------------------------}
  615. function TRichViewRVData.GetHeight: Integer;
  616. begin
  617.   Result := FRichView.ClientHeight;
  618. end;
  619. {------------------------------------------------------------------------------}
  620. function TRichViewRVData.GetAreaWidth: Integer;
  621. begin
  622.   Result := FRichView.AreaWidth;
  623. end;
  624. {------------------------------------------------------------------------------}
  625. function TRichViewRVData.GetAreaHeight: Integer;
  626. begin
  627.   Result := FRichView.AreaHeight;
  628. end;
  629. {------------------------------------------------------------------------------}
  630. function TRichViewRVData.GetFlags: TRVFlags;
  631. begin
  632.   Result := TCustomRichView(FRichView).Flags;
  633. end;
  634. {------------------------------------------------------------------------------}
  635. procedure TRichViewRVData.SetFlags(const Value: TRVFlags);
  636. begin
  637.   TCustomRichView(FRichView).Flags := Value;
  638. end;
  639. {------------------------------------------------------------------------------}
  640. function TRichViewRVData.GetHOffs: Integer;
  641. begin
  642.   Result := TCustomRichView(FRichView).HScrollPos;
  643. end;
  644. {------------------------------------------------------------------------------}
  645. function TRichViewRVData.GetVOffs: Integer;
  646. begin
  647.   Result := TCustomRichView(FRichView).VScrollPos*TCustomRichView(FRichView).VSmallStep
  648.     -GetRVDataExtraVOffs;
  649. end;
  650. {------------------------------------------------------------------------------}
  651. function TRichViewRVData.GetLeftMargin: Integer;
  652. begin
  653.   Result := TCustomRichView(FRichView).LeftMargin;
  654. end;
  655. {------------------------------------------------------------------------------}
  656. function TRichViewRVData.GetRightMargin: Integer;
  657. begin
  658.   Result := TCustomRichView(FRichView).RightMargin;
  659. end;
  660. {------------------------------------------------------------------------------}
  661. function TRichViewRVData.GetBottomMargin: Integer;
  662. begin
  663.   Result := TCustomRichView(FRichView).BottomMargin;
  664. end;
  665. {------------------------------------------------------------------------------}
  666. function TRichViewRVData.GetTopMargin: Integer;
  667. begin
  668.   Result := TCustomRichView(FRichView).TopMargin;
  669. end;
  670. {------------------------------------------------------------------------------}
  671. function TRichViewRVData.GetMaxTextWidth: Integer;
  672. begin
  673.   Result := TCustomRichView(FRichView).MaxTextWidth;
  674. end;
  675. {------------------------------------------------------------------------------}
  676. function TRichViewRVData.GetMinTextWidth: Integer;
  677. begin
  678.   Result := TCustomRichView(FRichView).MinTextWidth;
  679. end;
  680. {------------------------------------------------------------------------------}
  681. procedure TRichViewRVData.AdjustVScrollUnits;
  682. var v: Integer;
  683. begin
  684.   if  TCustomRichView(FRichView).VScrollVisible and
  685.      (DocumentHeight div TCustomRichView(FRichView).VSmallStep > 32000) then begin
  686.     v := DocumentHeight div 32000;
  687.     if DocumentHeight div v > 32000 then
  688.       inc(v);
  689.     TCustomRichView(FRichView).VSmallStep := v;
  690.     end
  691.   {$IFNDEF DONOTDECVSCROLLUNITS}
  692.   else if (TCustomRichView(FRichView).VSmallStep>10) and
  693.           (DocumentHeight div 10 <= 32000) then
  694.     TCustomRichView(FRichView).VSmallStep := 10;
  695.   {$ENDIF}
  696. end;
  697. {------------------------------------------------------------------------------}
  698. procedure TRichViewRVData.SetDocumentAreaSize(Width, Height: Integer;
  699.                                               UpdateH: Boolean);
  700. var h: Integer;
  701. begin
  702.   //Width := MulDiv(Width,ZoomPercent,100);
  703.   //Height := MulDiv(Height,ZoomPercent,100);
  704.   {$IFDEF RVDEBUG}{$I Debugc.inc}{$ENDIF}
  705.   h := Height div TCustomRichView(FRichView).VSmallStep;
  706.   if (Height mod TCustomRichView(FRichView).VSmallStep)>0 then
  707.     inc(h);
  708.   FRichView.UpdateScrollBars(Width, h, UpdateH,True);
  709.   {$IFDEF RV_ODHC}
  710.   if Assigned(TCustomRichView(FRichView).OnDocumentHeightChange) then
  711.     TCustomRichView(FRichView).OnDocumentHeightChange(FRichView);
  712.   {$ENDIF}
  713. end;
  714. {------------------------------------------------------------------------------}
  715. procedure TRichViewRVData.ScrollTo(Y: Integer; Redraw: Boolean);
  716. begin
  717.   if rvstNoScroll in State then
  718.     exit;
  719.   if Redraw then
  720.     FRichView.ScrollTo(Y)
  721.   else
  722.     FRichView.ScrollToNoRedraw(Y)
  723. end;
  724. {------------------------------------------------------------------------------}
  725. procedure TRichViewRVData.HScrollTo(X: Integer);
  726. begin
  727.   if rvstNoScroll in State then
  728.     exit;
  729.   TCustomRichView(FRichView).HScrollPos := X;
  730. end;
  731. {------------------------------------------------------------------------------}
  732. function TRichViewRVData.GetVSmallStep: Integer;
  733. begin
  734.   Result := TCustomRichView(FRichView).VSmallStep;
  735. end;
  736. {------------------------------------------------------------------------------}
  737. function TRichViewRVData.GetBackground: TRVBackground;
  738. begin
  739.   Result := TCustomRichView(FRichView).Background;
  740. end;
  741. {------------------------------------------------------------------------------}
  742. function TRichViewRVData.GetColor: TColor;
  743. begin
  744.   if TCustomRichView(FRichView).Color<>clNone then
  745.     Result := TCustomRichView(FRichView).Color
  746.   else
  747.     Result :=  TCustomRichView(FRichView).Style.Color;
  748. end;
  749. {------------------------------------------------------------------------------}
  750. function TRichViewRVData.GetNormalCursor: TCursor;
  751. begin
  752.   Result := TCustomRichView(FRichView).Cursor;
  753. end;
  754. {------------------------------------------------------------------------------}
  755. function TRichViewRVData.GetDelimiters: String;
  756. begin
  757.   Result := TCustomRichView(FRichView).Delimiters;
  758. end;
  759. {------------------------------------------------------------------------------}
  760. function TRichViewRVData.GetCPEventKind: TCPEventKind;
  761. begin
  762.   Result := TCustomRichView(FRichView).CPEventKind;
  763. end;
  764. {------------------------------------------------------------------------------}
  765. function TRichViewRVData.GetCanvas: TCanvas;
  766. begin
  767.   Result := TCustomRichView(FRichView).Canvas;
  768. end;
  769. {------------------------------------------------------------------------------}
  770. function TRichViewRVData.GetRVStyle: TRVStyle;
  771. begin
  772.   Result := TCustomRichView(FRichView).Style;
  773. end;
  774. {------------------------------------------------------------------------------}
  775. procedure TRichViewRVData.AssignChosenRVData(RVData: TCustomRVFormattedData;
  776.                                              Item: TCustomRVItemInfo);
  777. begin
  778.   FRichView.AssignChosenRVData(RVData, Item);
  779.   inherited AssignChosenRVData(RVData, Item);
  780. end;
  781. {------------------------------------------------------------------------------}
  782. procedure TRichViewRVData.SilentReplaceChosenRVData(
  783.   RVData: TCustomRVFormattedData);
  784. begin
  785.   FRichView.SilentReplaceChosenRVData(RVData);
  786. end;
  787. {------------------------------------------------------------------------------}
  788. procedure TRichViewRVData.UnassignChosenRVData(RVData: TCustomRVData);
  789. begin
  790.   if rvstUnAssigningChosen in State then
  791.     exit;
  792.   State := State+[rvstUnAssigningChosen];
  793.   try
  794.     inherited UnassignChosenRVData(RVData);
  795.     FRichView.UnassignChosenRVData(RVData);
  796.   finally
  797.     State := State-[rvstUnAssigningChosen]
  798.   end;
  799. end;
  800. {------------------------------------------------------------------------------}
  801. function TRichViewRVData.GetInplaceEditor: TControl;
  802. begin
  803.   Result := TCustomRichView(FRichView).InplaceEditor;
  804. end;
  805. {------------------------------------------------------------------------------}
  806. function TRichViewRVData.GetChosenRVData: TCustomRVData;
  807. begin
  808.   Result := TCustomRichView(FRichView).ChosenRVData as TCustomRVData;
  809. end;
  810. {------------------------------------------------------------------------------}
  811. function TRichViewRVData.GetChosenItem: TCustomRVItemInfo;
  812. begin
  813.   Result := TCustomRichView(FRichView).ChosenItem as TCustomRVItemInfo;
  814. end;
  815. {------------------------------------------------------------------------------}
  816. procedure TRichViewRVData.DestroyInplaceEditor;
  817. begin
  818.   FRichView.DestroyInplace;
  819. end;
  820. {------------------------------------------------------------------------------}
  821. function TRichViewRVData.GetRTFProperties: TPersistent;
  822. begin
  823.   Result := TCustomRichView(FRichView).RTFReadProperties
  824. end;
  825. {------------------------------------------------------------------------------}
  826. function TRichViewRVData.GetRVFParaStylesReadMode: TRVFReaderStyleMode;
  827. begin
  828.   Result := TCustomRichView(FRichView).RVFParaStylesReadMode;
  829. end;
  830. {------------------------------------------------------------------------------}
  831. function TRichViewRVData.GetRVFTextStylesReadMode: TRVFReaderStyleMode;
  832. begin
  833.   Result := TCustomRichView(FRichView).RVFTextStylesReadMode;
  834. end;
  835. {------------------------------------------------------------------------------}
  836. function TRichViewRVData.GetBiDiMode: TRVBiDiMode;
  837. begin
  838.   Result := TCustomRichView(FRichView).BiDiMode;
  839. end;
  840. {------------------------------------------------------------------------------}
  841. procedure TRichViewRVData.InitStyleMappings(var PTextStylesMapping,
  842.   PParaStylesMapping, PListStylesMapping: PRVIntegerList);
  843. begin
  844.   PTextStylesMapping := @RVFTextStylesMapping;
  845.   PParaStylesMapping := @RVFParaStylesMapping;
  846.   PListStylesMapping := @RVFListStyleMapping;
  847. end;
  848. {------------------------------------------------------------------------------}
  849. procedure TRichViewRVData.DoneStyleMappings(PTextStylesMapping,
  850.   PParaStylesMapping, PListStylesMapping: PRVIntegerList);
  851. begin
  852.   (PTextStylesMapping^).Free;
  853.   (PParaStylesMapping^).Free;
  854.   (PListStylesMapping^).Free;  
  855.   PTextStylesMapping^ := nil;
  856.   PParaStylesMapping^ := nil;
  857.   PListStylesMapping^ := nil;  
  858. end;
  859. {------------------------------------------------------------------------------}
  860. {$IFNDEF RVDONOTUSELISTS}
  861. function TRichViewRVData.GetMarkers(AllowCreate: Boolean): TRVMarkerList;
  862. begin
  863.   if rvflRoot in Flags then begin
  864.     if (FMarkers=nil) and AllowCreate then begin
  865.       FMarkers := TRVMarkerList.Create;
  866.       FMarkers.PrevMarkerList := GetPrevMarkers;
  867.     end;
  868.     Result := FMarkers;
  869.     end
  870.   else
  871.     Result := inherited GetMarkers(AllowCreate);
  872. end;
  873. {------------------------------------------------------------------------------}
  874. procedure TRichViewRVData.DestroyMarkers;
  875. begin
  876.   if rvflRoot in Flags then begin
  877.     FMarkers.Free;
  878.     FMarkers := nil;
  879.     end
  880.   else
  881.     inherited DestroyMarkers;
  882. end;
  883. {$ENDIF}
  885. function TRichViewRVData.GetDocProperties: TStringList;
  886. begin
  887.   if rvflRoot in Flags then
  888.     Result := TCustomRichView(RichView).DocProperties
  889.   else
  890.     Result := nil;
  891. end;
  892. {------------------------------------------------------------------------------}
  893. {$IFNDEF RVDONOTUSEDRAGDROP}
  894. {------------------------------------------------------------------------------}
  895. { Drag&Drop: IDropTarget related                                               }
  896. {------------------------------------------------------------------------------}
  897. { Returns information about drag&drop caret location.
  898.   D&d caret is not allowed in TRichView.
  899.   This method is overriden in TRVEditRVData.                                   }
  900. function TRichViewRVData.GetDragDropCaretInfo: TRVDragDropCaretInfo;
  901. begin
  902.   Result := nil;
  903. end;
  904. {------------------------------------------------------------------------------}
  905. { Drag&Drop: IDropSource related                                               }
  906. {------------------------------------------------------------------------------}
  907. { Can dragging from this TRichView be started?                                 } 
  908. function TRichViewRVData.CanStartDragging: Boolean;
  909. begin
  910.   if not (rvflRoot in Flags) then begin
  911.     Result := inherited CanStartDragging;
  912.     exit;
  913.   end;
  914.   if rvoDisallowDrag in GetOptions then
  915.     Result := False
  916.   else
  917.     Result := FDropSource=nil;
  918. end;
  919. {------------------------------------------------------------------------------}
  920. { Is dragging from this TRichView in process? Overriden in TRichViewRVData.    }
  921. function TRichViewRVData.IsDragging: Boolean;
  922. begin
  923.   if not (rvflRoot in Flags) then
  924.     Result := inherited IsDragging
  925.   else
  926.     Result := FDropSource<>nil;
  927. end;
  928. {------------------------------------------------------------------------------}
  929. { Initializing dragging. Overriden in TRVEditRVData.
  930.   Returns True on success.
  931.   Returns DropSource and OKEffect for call of DoDragDrop.                      }
  932. function TRichViewRVData.InitDragging(var DropSource: TRVDropSource;
  933.   var OKEffect: Integer): Boolean;
  934. begin
  935.   if not (rvflRoot in Flags) then begin
  936.     Result := inherited InitDragging(DropSource, OKEffect);
  937.     exit;
  938.   end;
  939.   if rvoDisallowDrag in GetOptions then
  940.     Result := False
  941.   else begin
  942.     Result := FDropSource=nil;
  943.     if Result then begin
  944.       FDropSource := TRVDropSource.Create(FRichView);
  945.       OKEffect := DROPEFFECT_COPY;
  946.     end;
  947.     DropSource := FDropSource;
  948.   end;
  949. end;
  950. {------------------------------------------------------------------------------}
  951. { Finalizing dragging.
  952.   Note: if FDropSource<>nil, this function loses the object.                   }
  953. procedure TRichViewRVData.DoneDragging(FDeleteSelection: Boolean);
  954. begin
  955.   FDropSource := nil;
  956. end;
  957. {$ENDIF}
  958. {------------------------------------------------------------------------------}
  959. function TRichViewRVData.GetRVDataExtraVOffs: Integer;
  960. begin
  961.   {$IFDEF RICHVIEWDEF3}
  962.   case TCustomRichView(RichView).VAlign of
  963.     tlBottom:
  964.       begin
  965.         Result := GetHeight-DocumentHeight;
  966.         if Result<0 then
  967.           Result := 0;
  968.       end;
  969.     tlCenter:
  970.       begin
  971.         Result := (GetHeight-DocumentHeight) div 2;
  972.         if Result<0 then
  973.           Result := 0;
  974.       end;
  975.     else
  976.       Result := 0;
  977.   end;
  978.   {$ELSE}
  979.   Result := 0;
  980.   {$ENDIF}
  981. end;
  982. {------------------------------------------------------------------------------}
  983. procedure TRichViewRVData.GetOrigin(var ALeft, ATop: Integer);
  984. begin
  985.   ALeft := 0;
  986.   ATop := GetRVDataExtraVOffs;
  987. end;
  988. {------------------------------------------------------------------------------}
  989. procedure TRichViewRVData.GetOriginEx(var ALeft, ATop: Integer);
  990. begin
  991.   ALeft := 0;
  992.   ATop := GetRVDataExtraVOffs;
  993. end;
  994. {------------------------------------------------------------------------------}
  995. procedure TRichViewRVData.Clear;
  996. begin
  997.   {$IFNDEF RVDONOTUSELIVESPELL}
  998.   if RichView<>nil then
  999.     TCustomRichView(RichView).ClearLiveSpellingResults;
  1000.   {$ENDIF}
  1001.   {$IFNDEF RVDONOTUSEANIMATION}
  1002.   if TCustomRichView(RichView).AnimationMode=rvaniOnFormat then
  1003.     TCustomRichView(RichView).StopAnimation;
  1004.   {$ENDIF}
  1005.   {$IFNDEF RVDONOTUSESMARTPOPUP}
  1006.   FSmartPopupButton.Free;
  1007.   FSmartPopupButton := nil;
  1008.   {$ENDIF}
  1009.   inherited;
  1010. end;
  1011. {------------------------------------------------------------------------------}
  1012. {$IFNDEF RVDONOTUSEANIMATION}
  1013. procedure TRichViewRVData.InsertAnimator(var Animator: TObject);
  1014. begin
  1015.   if rvflRoot in Flags then begin
  1016.     if FAnimatorList=nil then
  1017.       FAnimatorList := TRVAnimatorList.Create;
  1018.     FAnimatorList.Add(TRVAnimator(Animator));
  1019.     if FPlayingAnimation then
  1020.       TCustomRichView(RichView).StartAnimation;
  1021.     end
  1022.   else
  1023.     inherited InsertAnimator(Animator);
  1024. end;
  1025. {------------------------------------------------------------------------------}
  1026. function TRichViewRVData.AllowAnimation: Boolean;
  1027. begin
  1028.   if rvflRoot in Flags then
  1029.     Result := TCustomRichView(RichView).AnimationMode<>rvaniDisabled
  1030.   else
  1031.     Result := inherited AllowAnimation;
  1032. end;
  1033. {------------------------------------------------------------------------------}
  1034. procedure TRichViewRVData.ResetAniBackground;
  1035. begin
  1036.   if rvflRoot in Flags then begin
  1037.     if FAnimatorList<>nil then
  1038.       FAnimatorList.ResetBackground;
  1039.     end
  1040.   else
  1041.     inherited ResetAniBackground;
  1042. end;
  1043. {$ENDIF}
  1044. {------------------------------------------------------------------------------}
  1045. function TRichViewRVData.DoCreateFontInfoCache(ACanvas: TCanvas;
  1046.   Owner: TCustomRVFormattedData): TRVFontInfoCache;
  1047. begin
  1048.   if (rvoFastFormatting in Options) and RVNT then
  1049.     Result := TRVFontInfoCacheFast.Create(Owner, GetRVStyle, ACanvas,
  1050.       rvflCanUseCustomPPI in Flags)
  1051.   else
  1052.     Result := TRVFontInfoCacheLowResource.Create(Owner, GetRVStyle, ACanvas,
  1053.       rvflCanUseCustomPPI in Flags);
  1054. end;
  1055. {------------------------------------------------------------------------------}
  1056. procedure TRichViewRVData.CreateFontInfoCache(ACanvas: TCanvas);
  1057. begin
  1058.   FFontInfoCache.Free;
  1059.   FFontInfoCache := DoCreateFontInfoCache(ACanvas, Self);
  1060. end;
  1061. {------------------------------------------------------------------------------}
  1062. procedure TRichViewRVData.DestroyFontInfoCache(var Cache: TRVFontInfoCache);
  1063. begin
  1064.   if Cache=FFontInfoCache then
  1065.     FFontInfoCache := nil;
  1066.   inherited DestroyFontInfoCache(Cache);
  1067. end;
  1068. {------------------------------------------------------------------------------}
  1069. function TRichViewRVData.GetFontInfoCache(ACanvas: TCanvas;
  1070.   RVData: TCustomRVFormattedData): TRVFontInfoCache;
  1071. begin
  1072.   Result := FFontInfoCache;
  1073.   if Result = nil then begin
  1074.     Result := DoCreateFontInfoCache(ACanvas, RVData);
  1075.   end;
  1076. end;
  1077. {========================== TRVFontInfoCacheFast ==============================}
  1078. procedure TRVFontInfoCacheFast.Clear;
  1079. var
  1080.   CacheItem: TRVFontInfoCacheItem;
  1081.   i: Integer;
  1082. begin
  1083.   for i := 0 to Count-1 do
  1084.     if Items[i] <> nil then begin
  1085.       CacheItem := Items[i];
  1086.       DeleteDC(CacheItem.Canvas.Handle);
  1087.       CacheItem.Canvas.Handle := 0;
  1088.       CacheItem.Canvas.Free;
  1089.     end;
  1090.   inherited Clear;
  1091. end;
  1092. {------------------------------------------------------------------------------}
  1093. function TRVFontInfoCacheFast.GetItems(Index: Integer): TRVFontInfoCacheItem;
  1094. var
  1095.   CacheItem: TRVFontInfoCacheItem;
  1096.   sz: TSize;
  1097. begin
  1098.   CacheItem := Get(Index);
  1099.   if CacheItem = nil then begin
  1100.     CacheItem := TRVFontInfoCacheItem.Create;
  1101.     CacheItem.Canvas := TCanvas.Create;
  1102.     CacheItem.Canvas.Handle := CreateCompatibleDC(FCanvas.Handle);
  1103.     CacheItem.Canvas.Font.PixelsPerInch := FCanvas.Font.PixelsPerInch;
  1104.     CacheItem.FontInfo := FRVStyle.TextStyles[Index];
  1105.     CacheItem.FontInfo.Apply(CacheItem.Canvas, CurParaBiDiMode,
  1106.       FCanUseCustomPPI);
  1107.     CacheItem.LastBiDiMode := CurParaBiDiMode;
  1108.     GetTextMetrics(CacheItem.Canvas.Handle, CacheItem.TextMetric);
  1109.     CacheItem.VerticalOffset :=
  1110.       MulDiv(CacheItem.TextMetric.tmHeight, CacheItem.FontInfo.VShift, 100);
  1111.     GetTextExtentPoint32(CacheItem.Canvas.Handle, '-', 1, sz);
  1112.     CacheItem.EmptyLineHeight := sz.cy;
  1113.     CacheItem.HyphenWidth := sz.cx;
  1114.     Put(Index, CacheItem);
  1115.   end;
  1116.   Result := CacheItem;
  1117.   if CacheItem.LastBiDiMode<>CurParaBiDiMode then
  1118.     CacheItem.FontInfo.ApplyBiDiMode(CacheItem.Canvas, CurParaBiDiMode);
  1119. end;
  1120. {======================== TRVFontInfoCacheLowResource =========================}
  1121. function TRVFontInfoCacheLowResource.GetItems(Index: Integer): TRVFontInfoCacheItem;
  1122. var
  1123.   CacheItem, CacheItem2: TRVFontInfoCacheItem;
  1124.   sz: TSize;
  1125. begin
  1126.   CacheItem := Get(Index);
  1127.   CacheItem2 := CacheItem;
  1128.   if CacheItem = nil then begin
  1129.     CacheItem := TRVFontInfoCacheItem.Create;
  1130.     CacheItem.Canvas := FCanvas;
  1131.     CacheItem.FontInfo := FRVStyle.TextStyles[Index];
  1132.     Put(Index, CacheItem);
  1133.   end;
  1134.   if (LastTextStyle <> Index) or (CacheItem.LastBiDiMode<>CurParaBiDiMode) then begin
  1135.     CacheItem.LastBiDiMode := CurParaBiDiMode;
  1136.     CacheItem.FontInfo.Apply(CacheItem.Canvas, CurParaBiDiMode,
  1137.       FCanUseCustomPPI);
  1138.   end;
  1139.   if CacheItem2 = nil then begin
  1140.     GetTextMetrics(CacheItem.Canvas.Handle, CacheItem.TextMetric);
  1141.     CacheItem.VerticalOffset := MulDiv(CacheItem.TextMetric.tmHeight, CacheItem.FontInfo.VShift, 100);
  1142.     GetTextExtentPoint32(CacheItem.Canvas.Handle, '-', 1, sz);
  1143.     CacheItem.EmptyLineHeight := sz.cy;
  1144.     CacheItem.HyphenWidth := sz.cx;
  1145.   end;
  1146.   Result := CacheItem;
  1147. end;
  1148. {------------------------------------------------------------------------------}
  1149. {$IFNDEF RVDONOTUSESMARTPOPUP}
  1150. procedure TRichViewRVData.AdjustSpecialControlsCoords(RVData: TCustomRVFormattedData);
  1151. begin
  1152.   if (FSmartPopupButton=nil) or (FSmartPopupButton.RVData<>RVData.GetSourceRVData) then
  1153.     exit;
  1154.   RVData := TCustomRVFormattedData(RVData.GetRVData);
  1155.   if (FSmartPopupButton.ItemNo<0) or (FSmartPopupButton.ItemNo>=RVData.ItemCount) or
  1156.     (RVData.GetItem(FSmartPopupButton.ItemNo)<>FSmartPopupButton.Item) then
  1157.     FSmartPopupButton.ItemNo := RVData.GetItemNo(FSmartPopupButton.Item);
  1158.   SetSmartPopupCoords;
  1159. end;
  1160. {------------------------------------------------------------------------------}
  1161. procedure TRichViewRVData.SetSmartPopupCoords;
  1162. var DItemNo: Integer;
  1163.     Left, Top, X, Y, Width, Height: Integer;
  1164.     RVData: TCustomRVFormattedData;
  1165. begin
  1166.   RVData := TCustomRVFormattedData(FSmartPopupButton.RVData.GetRVData);
  1167.   RVData.Item2LastDrawItem(FSmartPopupButton.ItemNo, DItemNo);
  1168.   if DItemNo<0 then begin
  1169.     FSmartPopupButton.Free;
  1170.     FSmartPopupButton := nil;
  1171.     exit;
  1172.   end;
  1173.   RVData.GetOriginEx(Left, Top);
  1174.   X := Left + RVData.DrawItems[DItemNo].Left + RVData.DrawItems[DItemNo].Width;
  1175.   Y := Top  + RVData.DrawItems[DItemNo].Top  + RVData.DrawItems[DItemNo].Height;
  1176.   Width := GetAreaWidth;
  1177.   if GetWidth>Width then
  1178.     Width := GetWidth;
  1179.   if X+FSmartPopupButton.Width>Width then
  1180.     X := Width-FSmartPopupButton.Width;
  1181.   Height := GetAreaHeight*TCustomRichView(FRichView).VSmallStep;
  1182.   if GetHeight>Height then
  1183.     Height := GetHeight;
  1184.   if Y+FSmartPopupButton.Height>Height then
  1185.     Y := Height-FSmartPopupButton.Height;
  1186.   FSmartPopupButton.Left := X - GetHOffs;
  1187.   FSmartPopupButton.Tag  := Y - GetVOffs;
  1188.   RV_Tag2Y(FSmartPopupButton);  
  1189. end;
  1190. {------------------------------------------------------------------------------}
  1191. {
  1192. procedure TRichViewRVData.InternalFreeItem(item: TCustomRVItemInfo;
  1193.   Clearing: Boolean);
  1194. begin
  1195.   inherited;
  1196.   if not Clearing and (FSmartPopupButton<>nil) and
  1197.     (FSmartPopupButton.Item=item) then begin
  1198.     FSmartPopupButton.Free;
  1199.     FSmartPopupButton := nil;
  1200.   end;
  1201. end;
  1202. }
  1203. {$ENDIF}
  1205. end.