Unit RichView

Classes

TCPInfo - ------------------------------------------------------------------
TDrawLineInfo - ------------------------------------------------------------------
TJumpInfo - ------------------------------------------------------------------
TLineInfo - ------------------------------------------------------------------
TRichView - ------------------------------------------------------------------
TRVInteger2 - ------------------------------------------------------------------

Functions

InfoAboutSaD - -------------------------------------
Register - ------------------------------------------------------------------} {$I RV_Save.

Types

TBackgroundStyle
TJumpEvent
TRVDblClickEvent
TRVDisplayOption
TRVDisplayOptions
TRVMouseMoveEvent
TRVRightClickEvent
TRVSaveComponentToFileEvent
TRVSaveFormat
TRVSaveOption
TRVSaveOptions
TRVURLNeededEvent
TScreenAndDevice

Constants

rvsBreak
rvsBullet
rvsCheckPoint
rvsComponent
rvsHotSpot
rvsPicture

Variables


Functions


procedure InfoAboutSaD(var sad:TScreenAndDevice; Canvas: TCanvas);

-------------------------------------

procedure Register;

------------------------------------------------------------------} {$I RV_Save.pas} {------------------------------------------------------------------

Types


TBackgroundStyle = (bsNoBitmap, bsStretched, bsTiled, bsTiledAndScrolled);
------------------------------------------------------------------
TJumpEvent = procedure (Sender: TObject; id: Integer) of object
------------------------------------------------------------------
TRVDblClickEvent = procedure  (Sender: TRichView; ClickedWord: String; Style: Integer) of object

TRVDisplayOption = (rvdoImages, rvdoComponents, rvdoBullets);
------------------------------------------------------------------
TRVDisplayOptions = set of TRVDisplayOption

TRVMouseMoveEvent = procedure (Sender: TObject; id: Integer) of object

TRVRightClickEvent = procedure  (Sender: TRichView; ClickedWord: String; Style, X, Y: Integer) of object

TRVSaveComponentToFileEvent = procedure (Sender: TRichView; Path: String; SaveMe: TPersistent; SaveFormat: TRVSaveFormat; var OutStr:String) of object

TRVSaveFormat = (rvsfText,
                   rvsfHTML,
                   rvsfRTF, //<---not yet implemented
                   rvsfRVF  //<---not yet implemented
                   );

TRVSaveOption = (rvsoOverrideImages);
<---not yet implemented
TRVSaveOptions = set of TRVSaveOption

TRVURLNeededEvent = procedure (Sender: TRichView; id: Integer; var url:String) of object

TScreenAndDevice = record
ppixScreen : Integer;
ppiyScreen : Integer;
ppixDevice : Integer;
ppiyDevice : Integer;
LeftMargin : Integer;
end;
------------------------------------------------------------------

Constants

rvsBreak = -1

------------------------------------------------------------------

rvsBullet = -6

rvsCheckPoint = -2

rvsComponent = -5

rvsHotSpot = -4

rvsPicture = -3


Variables