Unit RichText

Classes

CoDataObject -
CoDataObjectFiles -
CoOLEObject - The RichTextBox control enables you to add insertable objects to an RTF file.
CoOLEObjects - RichText Control OLEObjects Collection Interface
DRichTextEvents - Event interface for RichText control
IOLEObject - The RichTextBox control enables you to add insertable objects to an RTF file.
IOLEObjectDisp - DispInterface declaration for Dual Interface IOLEObject
IOLEObjects - RichText Control OLEObjects Collection Interface
IOLEObjectsDisp - DispInterface declaration for Dual Interface IOLEObjects
IRichText - Microsoft Rich Textbox Control 6.
IRichTextDisp - DispInterface declaration for Dual Interface IRichText
IVBDataObject -
IVBDataObjectDisp - DispInterface declaration for Dual Interface IVBDataObject
IVBDataObjectFiles -
IVBDataObjectFilesDisp - DispInterface declaration for Dual Interface IVBDataObjectFiles
TMSRichTextBox -

Functions

Register -

Types

AppearanceConstants
BorderStyleConstants
ClipBoardConstants
DataObject
DataObjectFiles
DisplayTypeConstants
DragOverConstants
ErrorConstants
FindConstants
LoadSaveConstants
MousePointerConstants
OLEDragConstants
OLEDropConstants
OLEDropEffectConstants
OLEObject
OLEObjects
RichTextBox
ScrollBarsConstants
SelAlignmentConstants
TMSRichTextBoxOLECompleteDrag
TMSRichTextBoxOLEDragDrop
TMSRichTextBoxOLEDragOver
TMSRichTextBoxOLEGiveFeedback
TMSRichTextBoxOLESetData
TMSRichTextBoxOLEStartDrag

Constants

Class_DataObject
Class_DataObjectFiles
Class_OLEObject
Class_OLEObjects
Class_RichTextBox
LIBID_RichTextLib
rtfArrow
rtfArrowHourglass
rtfArrowQuestion
rtfBoth
rtfCannotLoadFile
rtfCenter
rtfCFBitmap
rtfCFDIB
rtfCFEMetafile
rtfCFFiles
rtfCFMetafile
rtfCFPalette
rtfCFRTF
rtfCFText
rtfCross
rtfCustom
rtfDataNotSetInFormat
rtfDataObjectLocked
rtfDefault
rtfDisplayContent
rtfDisplayIcon
rtfEnter
rtfExpectedAnArgument
rtfFixedSingle
rtfFlat
rtfFormatNotByteArray
rtfGetNotSupported
rtfHorizontal
rtfHourglass
rtfIBeam
rtfIcon
rtfInvalidCharPosition
rtfInvalidClassName
rtfInvalidFileFormat
rtfInvalidHdc
rtfInvalidKeyName
rtfInvalidObject
rtfInvalidObjectUse
rtfInvalidProcedureCall
rtfInvalidPropertyArrayIndex
rtfInvalidPropertyValue
rtfKeyNotFound
rtfLeave
rtfLeft
rtfMatchCase
rtfNoBorder
rtfNoDrop
rtfNoHighlight
rtfNone
rtfNonUniqueKey
rtfOleCreate
rtfOLEDragAutomatic
rtfOLEDragManual
rtfOLEDropAutomatic
rtfOLEDropEffectCopy
rtfOLEDropEffectMove
rtfOLEDropEffectNone
rtfOLEDropEffectScroll
rtfOLEDropManual
rtfOLEDropNone
rtfOleServer
rtfOLESourceRequired
rtfOutOfMemory
rtfOver
rtfPathFileAccessError
rtfProtected
rtfRecursiveOleDrag
rtfRight
rtfRTF
rtfSetNotPermitted
rtfSetNotSupported
rtfSize
rtfSizeAll
rtfSizeEW
rtfSizeNESW
rtfSizeNS
rtfSizeNWSE
rtfText
rtfThreeD
rtfUpArrow
rtfVertical
rtfWholeWord
rtfWrongClipboardFormat

Variables


Functions


procedure Register;


Types


AppearanceConstants = TOleEnum

BorderStyleConstants = TOleEnum

ClipBoardConstants = TOleEnum

DataObject = IVBDataObject
Forward declarations: CoClasses
DataObjectFiles = IVBDataObjectFiles

DisplayTypeConstants = TOleEnum

DragOverConstants = TOleEnum

ErrorConstants = TOleEnum

FindConstants = TOleEnum

LoadSaveConstants = TOleEnum

MousePointerConstants = TOleEnum

OLEDragConstants = TOleEnum
Forward declarations: Enums
OLEDropConstants = TOleEnum

OLEDropEffectConstants = TOleEnum

OLEObject = IOLEObject

OLEObjects = IOLEObjects

RichTextBox = IRichText

ScrollBarsConstants = TOleEnum

SelAlignmentConstants = TOleEnum

TMSRichTextBoxOLECompleteDrag = procedure(Sender: TObject; var Effect: Integer)
    of object

TMSRichTextBoxOLEDragDrop = procedure(Sender: TObject; var Data: DataObject;
    var Effect: Integer; var Button, Shift: Smallint; var x, y: Single) of object

TMSRichTextBoxOLEDragOver = procedure(Sender: TObject; var Data: DataObject;
    var Effect: Integer; var Button, Shift: Smallint; var x, y: Single; var State:
    Smallint) of object

TMSRichTextBoxOLEGiveFeedback = procedure(Sender: TObject; var Effect:
    Integer; var DefaultCursors: WordBool) of object

TMSRichTextBoxOLESetData = procedure(Sender: TObject; var Data: DataObject; var
    DataFormat: Smallint) of object

TMSRichTextBoxOLEStartDrag = procedure(Sender: TObject; var Data: DataObject;
    var AllowedEffects: Integer) of object
Microsoft Rich Textbox Control 6.0

Constants

Class_DataObject = '{2334D2B2-713E-11CF-8AE5-00AA00C00905}'

Component class GUIDs

Class_DataObjectFiles = '{2334D2B4-713E-11CF-8AE5-00AA00C00905}'

Class_OLEObject = '{4A8F35A1-D900-11CF-89B4-00AA00688B10}'

Class_OLEObjects = '{4A8F35A0-D900-11CF-89B4-00AA00688B10}'

Class_RichTextBox = '{3B7C8860-D78F-101B-B9B5-04021C009402}'

LIBID_RichTextLib = '{3B7C8863-D78F-101B-B9B5-04021C009402}'

Microsoft Rich Textbox Control 6.0 } { Version 1.1 } //IOLEObject.Class changed to Class_

rtfArrow = 1

rtfArrowHourglass = 13

rtfArrowQuestion = 14

rtfBoth = 3

rtfCannotLoadFile = 32002

rtfCenter = 2

rtfCFBitmap = 2

rtfCFDIB = 8

rtfCFEMetafile = 14

rtfCFFiles = 15

rtfCFMetafile = 3

rtfCFPalette = 9

rtfCFRTF = -16639

rtfCFText = 1

Clipboard format constants. } { ClipBoardConstants

rtfCross = 2

rtfCustom = 99

rtfDataNotSetInFormat = 676

rtfDataObjectLocked = 672

rtfDefault = 0

MousePointer constants. } { MousePointerConstants

rtfDisplayContent = 0

OLEObject DisplayType constants } { DisplayTypeConstants

rtfDisplayIcon = 1

rtfEnter = 0

State transition constants for the DragOver and OLEDragOver events. } { DragOverConstants

rtfExpectedAnArgument = 673

rtfFixedSingle = 1

rtfFlat = 0

Appearance constants. } { AppearanceConstants

rtfFormatNotByteArray = 675

rtfGetNotSupported = 394

rtfHorizontal = 1

rtfHourglass = 11

rtfIBeam = 3

rtfIcon = 4

rtfInvalidCharPosition = 32000

rtfInvalidClassName = 32006

rtfInvalidFileFormat = 321

rtfInvalidHdc = 32001

rtfInvalidKeyName = 32005

rtfInvalidObject = 32010

rtfInvalidObjectUse = 425

rtfInvalidProcedureCall = 5

rtfInvalidPropertyArrayIndex = 381

rtfInvalidPropertyValue = 380

rtfKeyNotFound = 32007

rtfLeave = 1

rtfLeft = 0

SelAlignment constants. } { SelAlignmentConstants

rtfMatchCase = 4

rtfNoBorder = 0

BorderStyle constants. } { BorderStyleConstants

rtfNoDrop = 12

rtfNoHighlight = 8

rtfNone = 0

ScrollBars constants. } { ScrollBarsConstants

rtfNonUniqueKey = 32009

rtfOleCreate = 32012

rtfOLEDragAutomatic = 1

rtfOLEDragManual = 0

Constants for the OLEDragMode property (but not the DragMode or OLEDropMode properties). } { OLEDragConstants

rtfOLEDropAutomatic = 2

rtfOLEDropEffectCopy = 1

rtfOLEDropEffectMove = 2

rtfOLEDropEffectNone = 0

Drop effect constants for OLE drag and drop events. } { OLEDropEffectConstants

rtfOLEDropEffectScroll = $80000000

rtfOLEDropManual = 1

rtfOLEDropNone = 0

Constants for the OLEDropMode property (but not the DragMode or OLEDragMode properties). } { OLEDropConstants

rtfOleServer = 32013

rtfOLESourceRequired = 32008

rtfOutOfMemory = 7

Error Constants } { ErrorConstants

rtfOver = 2

rtfPathFileAccessError = 75

rtfProtected = 32011

rtfRecursiveOleDrag = 674

rtfRight = 1

rtfRTF = 0

LoadSave constants. } { LoadSaveConstants

rtfSetNotPermitted = 387

rtfSetNotSupported = 383

rtfSize = 5

rtfSizeAll = 15

rtfSizeEW = 9

rtfSizeNESW = 6

rtfSizeNS = 7

rtfSizeNWSE = 8

rtfText = 1

rtfThreeD = 1

rtfUpArrow = 10

rtfVertical = 2

rtfWholeWord = 2

Find constants. } { FindConstants

rtfWrongClipboardFormat = 461


Variables