Class TNotesRichTextItem (unit Class_LotusNotes)

Inherits from

TNotesItem

Constructors


constructor Create(notesDocument: TNotesDocument; aName: string);

ClassMarker_Method(TNotesItem) *************************************************** TNotesRichTextItem

constructor CreateNew (notesDocument: TNotesDocument; aName: string);

***************************************************


Functions

procedure AddPara;

**********************************************

procedure AddText (Text: string);

**********************************************

procedure Attach (AName: string);

**********************************************

procedure CheckContext;

creates or resets Rich-text context

***************************************************


procedure CreateContext;

attach a file by its name to the current context

**********************************************


destructor Destroy;

**********************************************

procedure Detach (Index: integer; FileName: string);

return index in Attachment or -1

**********************************************


function FindAttachment(aName: string): integer;

***************************************************

procedure SaveContext;

checks the context existence and creates if neccessary

**********************************************


procedure AddMem (const Sz: dword);

**********************************************

procedure AddStyle;

**********************************************

procedure AttachFiles;

**********************************************

function CheckOdd (const sz: dword): dword;

**********************************************

function GetAttachment(Index: integer): string;

***************************************************

function GetAttachmentCount: integer;

***************************************************

function GetFontBoolProperty (Index: integer): boolean;

**********************************************

function GetParaIntProperty (Index: integer): integer;

**********************************************

procedure LoadAttachmentInfo;

***************************************************

procedure SetFontBoolProperty (Index: integer; Value: boolean);

**********************************************

procedure SetParaIntProperty (Index: integer; Value: integer);

**********************************************

procedure SetParaJustification (Value: TRichTextJustification);

**********************************************

Properties

property Attachment : string

number of file attachments

property AttachmentCount : integer


property FontBold : boolean

save context to field Font properties

property FontColor : word


property FontEmboss : boolean


property FontExtrude : boolean


property FontFace : TRichTextFont


property FontFaceName : string


property FontItalic : boolean


property FontShadow : boolean


property FontSize : integer


property FontStrikeout : boolean


property FontSubScript : boolean


property FontSuperScript : boolean


property FontUnderline : boolean


property ParaAfterSpace : integer


property ParaBeforeSpace : integer


property ParaFirstLeftMargin : integer


property ParaJustification : TRichTextJustification

Paragraph properties

property ParaLeftMargin : integer


property ParaLineSpacing : integer


property ParaRightMargin : integer


Events

Variables

FAttach : TStrings;


FContext : pointer;


FCurPtr : pointer;


FCurStyle : integer;


FFontBoolProperties : array [0..8] of boolean;


FFontColor : word;


FFontFace : TRichTextFont;


FFontFaceName : string;


FFontSize : integer;


FFontTableChanged : boolean;


FLength : dword;


FNewStyle : boolean;


FParaIntProperties : array [0..5] of integer;


FParaJustification : TRichTextJustification;


FPostedAttachments : TStringList;



Constructors


constructor Create(notesDocument: TNotesDocument; aName: string);

ClassMarker_Method(TNotesItem) *************************************************** TNotesRichTextItem


constructor CreateNew (notesDocument: TNotesDocument; aName: string);

***************************************************


Functions


procedure AddPara;

**********************************************


procedure AddText (Text: string);

**********************************************


procedure Attach (AName: string);

**********************************************


procedure CheckContext;

creates or resets Rich-text context

***************************************************


procedure CreateContext;

attach a file by its name to the current context

**********************************************


destructor Destroy;

**********************************************


procedure Detach (Index: integer; FileName: string);

return index in Attachment or -1

**********************************************


function FindAttachment(aName: string): integer;

***************************************************


procedure SaveContext;

checks the context existence and creates if neccessary

**********************************************


procedure AddMem (const Sz: dword);

**********************************************


procedure AddStyle;

**********************************************


procedure AttachFiles;

**********************************************


function CheckOdd (const sz: dword): dword;

**********************************************


function GetAttachment(Index: integer): string;

***************************************************


function GetAttachmentCount: integer;

***************************************************


function GetFontBoolProperty (Index: integer): boolean;

**********************************************


function GetParaIntProperty (Index: integer): integer;

**********************************************


procedure LoadAttachmentInfo;

***************************************************


procedure SetFontBoolProperty (Index: integer; Value: boolean);

**********************************************


procedure SetParaIntProperty (Index: integer; Value: integer);

**********************************************


procedure SetParaJustification (Value: TRichTextJustification);

**********************************************


Properties


property Attachment : string

number of file attachments


property AttachmentCount : integer


property FontBold : boolean

save context to field Font properties


property FontColor : word


property FontEmboss : boolean


property FontExtrude : boolean


property FontFace : TRichTextFont


property FontFaceName : string


property FontItalic : boolean


property FontShadow : boolean


property FontSize : integer


property FontStrikeout : boolean


property FontSubScript : boolean


property FontSuperScript : boolean


property FontUnderline : boolean


property ParaAfterSpace : integer


property ParaBeforeSpace : integer


property ParaFirstLeftMargin : integer


property ParaJustification : TRichTextJustification

Paragraph properties


property ParaLeftMargin : integer


property ParaLineSpacing : integer


property ParaRightMargin : integer


Events


Variables


FAttach : TStrings;


FContext : pointer;


FCurPtr : pointer;


FCurStyle : integer;


FFontBoolProperties : array [0..8] of boolean;


FFontColor : word;


FFontFace : TRichTextFont;


FFontFaceName : string;


FFontSize : integer;


FFontTableChanged : boolean;


FLength : dword;


FNewStyle : boolean;


FParaIntProperties : array [0..5] of integer;


FParaJustification : TRichTextJustification;


FPostedAttachments : TStringList;