Textobjekt anlegen

Der folgende Code erzeugt ein neues Projekt, fügt ein Textobjekt und darin einen neuen Absatz mit dem Inhalt "DOM" ein und speichert das Projekt:

 

HLLJOB hJob = LlJobOpen(-1);

 

// Neues Projekt erzeugen

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

 

HLLDOMOBJ hProj;

LlDomGetProject(hJob, &hProj);

 

// Objektliste holen
HLLDOMOBJ hObjList;
LlDomGetObject(hProj, "Objects", &hObjList);

// Textobjekt erzeugen
HLLDOMOBJ hObj;
LlDomCreateSubobject(hObjList, 0, _T("Text"), &hObj);
LlDomSetProperty(hObj, _T("Name"), _T("My new Textobject"));

// Absatzliste holen
HLLDOMOBJ hObjParagraphList;
LlDomGetObject(hObj, _T("Paragraphs"), &hObjParagraphList);

// Neuen Absatz erzeugen und Inhalt anlagen
HLLDOMOBJ hObjParagraph;
LlDomCreateSubobject(hObjParagraphList, 0, _T("Paragraph"), &hObjParagraph);
LlDomSetProperty(hObjParagraph, _T("Contents"), _T("'DOM'"));

// Projekt speichern
LlProjectSave(hJob, NULL);
LlProjectClose(hJob);

LlJobClose(hJob);