Unit RichEdit2

Classes

TCustomRichEdit98 -
TDBRichEdit98 -
TParaAttributes98 -
TRichEdit98 -
TTextAttributes98 -

Functions

Register -

Types

TAlignment98
TAnimationType
TBorderLocation
TBorderLocations
TBorderStyle
TConsistentAttribute98
TConsistentAttributes98
TIndexKind
TLineSpacingRule
TNumberingFollow
TNumberingStyle98
TSearchType98
TSearchTypes98
TShadingStyle
TShadingWeight
TTabAlignment
TTabLeader
TTextRange
TTextRangeA
TTextRangeW
TUnderlineType
TUndoName
TURLClickEvent

Constants

FT_DOWNWARD

Variables


Functions


procedure Register;


Types


TAlignment98 = (taLeft, taRight, taCenter, taJustify);

TAnimationType = (aniLasVegas, aniBlink, aniSparkle, aniBlackAnts,
                    aniRedAnts, aniShimmer);

TBorderLocation = (blLeft, blRight, blTop, blBottom, blInside, blOutside);

TBorderLocations = set of TBorderLocation

TBorderStyle = (bsNone, bs15, bs30, bs45, bs60, bs90, bs120, bs15Dbl,
                  bs30Dbl, bs45Dbl, bs15Gray, bs15GrayDashed);

TConsistentAttribute98 = (caBold, caColor, caFace, caItalic,
    caSize, caStrikeOut, caUnderline, caProtected, caWeight,
    caBackColor, caLanguage, caIndexKind, caOffset, caSpacing,
    caKerning, caULType, caAnimation, caSmallCaps, caAllCaps,
    caHidden, caOutline, caShadow, caEmboss, caImprint);

TConsistentAttributes98 = set of TConsistentAttribute98

TIndexKind = (ikNone, ikSubscript, ikSuperscript);

TLineSpacingRule = (lsrOrdinary, lsr15, lsrLongInt, lsrAtLeast, lsrExactly,
                      lsrMultiple);

TNumberingFollow = (nfParenthesis, nfPeriod, nfEncloseParenthesis);

TNumberingStyle98 = (nsNone, nsBullet, nsNumber, nsLowerCase, nsUpperCase,
                       nsLowerRoman, nsUpperRoman, nsSequence);

TSearchType98 = (stBackward, stWholeWord, stMatchCase);

TSearchTypes98 = set of TSearchType98

TShadingStyle = (shsNone, shsDarkHorizontal, shsDarkVertical, shsDarkDownDiagonal,
                   shsDarkUpDiagonal, shsDarkGrid, shsDarkTrellis, shsLightHorizontal,
                   shsLightVertical, shsLightDownDiagonal, shsLightUpDiagonal,
                   shsLightGrid, shsLightTrellis);

TShadingWeight = 0..100

TTabAlignment = (tbaLeft, tbaCenter, tbaRight, tbaDecimal, tbaWordBar);

TTabLeader = (tblNone, tblDotted, tblDashed, tblUnderlined, tblThick, tblDouble);

TTextRange = TTextRangeA
not WideChar!
TTextRangeA = record
chrg : TCharRange;
lpstrText : PAnsiChar;
end;
The declarations of TTextRangeA and TTextRangeW in Richedit.pas are incorrect
TTextRangeW = record
chrg : TCharRange;
lpstrText : PWideChar;
end;
not AnsiChar!
TUnderlineType = (ultNone, ultSingle, ultWord, ultDouble, ultDotted, ultWave,
                    ultThick, ultHair, ultDashDD, ultDashD, ultDash);

TUndoName = (unUnknown, unTyping, unDelete, unDragDrop, unCut, unPaste);

TURLClickEvent = procedure(Sender: TObject; URL: String) of object

Constants

FT_DOWNWARD = 1


Variables