Class TNotesRichTextItem (unit Class_LotusNotes) |
Inherits from
TNotesItem
constructor Create(notesDocument: TNotesDocument; aName: string);
- ClassMarker_Method(TNotesItem) *************************************************** TNotesRichTextItem
constructor CreateNew (notesDocument: TNotesDocument; aName: string);
- ***************************************************
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);
**********************************************
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
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;
constructor Create(notesDocument: TNotesDocument; aName: string);
ClassMarker_Method(TNotesItem) *************************************************** TNotesRichTextItem
constructor CreateNew (notesDocument: TNotesDocument; aName: string);
***************************************************
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);
**********************************************
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
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;