DominoArea.org [Archive]

Bonjour,

En commentaire des conversions ou je ne suis pas sur ou des partis de code que je ne sais pas convertir.

Code : Tout sélectionner

Option Public
' EDIT_ODS_DEFS => editods.h
' nls.h

Const COMP_FROM_FILE = &h00000001
Const COMP_PRESERVE_LINES = &h00000002
Const COMP_PARA_LINE = &h00000004
Const COMP_PARA_BLANK_LINE = &h00000008
Const COMP_SERVER_HINT_FOLLOWS = &h00000010

Const STYLE_ID_SMAESPREV = &hFFFFFFFF

Type COMPOUNDSTYLE
   JustifyMode As Integer
   LineSpacing As Integer
   ParagraphSpacingBefore As Integer
   ParagraphSpacingAfter As Integer
   LeftMargin As Integer
   RightMargin As Integer
   FirstLineLeftMargin As Integer
   Tabs As Integer
   Tab As Integer ' Tab[MAXTABS]
   Flags As Integer
End Type

Declare Function CompoundTextCreate Lib "nnotes.dll" (hNote As Long, pszItemName As String, phCompound As Long) As Long
Declare Function CompoundTextClose Lib "nnotes.dll" (hCompound As Long, phReturnBuffer As Long, pdwReturnBufferSize As Long, pchReturnFile As String, wReturnFileSize As Integer) As Long
Declare Function CompoundTextDiscard Lib "nnotes.dll" (hCompound As Long) As Long
Declare Function CompoundTextDefineStyle Lib "nnotes.dll" (hCompound As Long, pszStyleName As String, pDefinition As COMPOUNDSTYLE, pdwStyleID As Long) As Long
Declare Function CompoundTextAssimilateItem Lib "nnotes.dll" (hCompound As Long, hNote As Long, pszItemName As String, dwFlags As Long) As Long
Declare Function CompoundTextAssimilateFile Lib "nnotes.dll" (hCompound As Long, pszFileSpec As String, dwFlags As Long) As Long
Declare Function CompoundTextAddParagraphExt Lib "nnotes.dll" (hCompound As Long, dwStyleId As Long, FontID As Long, pchText As String, dwTextLen As Long, pInfo As Long) As Long ' FontID As FONTID, pInfo As NLS_PINFO
Declare Function CompoundTextAddTextExt Lib "nnotes.dll" (hCompound As Long, dwStyleId As Long, FontID As Long, pchText As String, dwTextLen As Long, pszLineDelim As String, dwFlags As Long, pInfo As Long) As Long ' FontID As FONTID, pInfo As NLS_PINFO
Declare Sub CompoundTextInitStyle Lib "nnotes.dll" (pStyle As COMPOUNDSTYLE) ' void LNPUBLIC CompoundTextInitStyle(COMPOUNDSTYLE far *pStyle);
Declare Function CompoundTextAddDocLink Lib "nnotes.dll" (hCompound As Long, DBReplicaID As Long, ViewUNID As Long, NoteUNID As Long, pszComment As String, dwFlags As Long) As Long ' DBReplicaID as TIMEDATE, ViewUNID as UNID, NoteUNID as UNID
Declare Function CompoundTextAddRenderedNote Lib "nnotes.dll" (hCompound As Long, nNote As Long, hFormNote As Long, dwFlags As Long) As Long
Declare Function CompoundTextAddCDRecords Lib "nnotes.dll" (hCompound As Long, pvRecord As Integer, dwRecordLength As Long) As Long ' void * pvRecord
Declare Function SubformInsert Lib "nnotes.dll" (hDB As Long, pSubForm As String, pForm As String, Flags As Long) As Long
Declare Function SubformRemove Lib "nnotes.dll" (hDB As Long, pSubForm As String, pForm As String, Flags As Long) As Long