Creating a Text Object

The following code creates a new project, inserts a text object inside which is a new paragraph with the content "DOM", and saves the project:

 

HLLJOB hJob = LlJobOpen(-1);

 

// Create new project

LlProjectOpen(hJob,LL_PROJECT_LIST,"c:\\simple.lst",
       LL_PRJOPEN_CD_CREATE_ALWAYS | LL_PRJOPEN_AM_READWRITE);

 

HLLDOMOBJ hProj;

LlDomGetProject(hJob, &hProj);

 

// Get object list

HLLDOMOBJ hObjList;

LlDomGetObject(hProj, "Objects", &hObjList);

 

// Create text object

HLLDOMOBJ hObj;

LlDomCreateSubobject(hObjList, 0, _T("Text"), &hObj);

LlDomSetProperty(hObj, _T("Name"), _T("My new Textobject"));

 

// Get paragraph list

HLLDOMOBJ hObjParagraphList;

LlDomGetObject(hObj, _T("Paragraphs"), &hObjParagraphList);

 

// Create new paragraph and create contents

HLLDOMOBJ hObjParagraph;

LlDomCreateSubobject(hObjParagraphList, 0, _T("Paragraph"), &hObjParagraph);

LlDomSetProperty(hObjParagraph, _T("Contents"), _T("'DOM'"));

 

// Save project

LlProjectSave(hJob, NULL);

LlProjectClose(hJob);

 

LlJobClose(hJob);