WINSOFT software components and applications

How can I close spreadsheet or text document?

var
  Closeable: XCloseable;

Closeable := CoXCloseable.Create(SpreadsheetDocument);
Closeable.close(False);

Closeable := CoXCloseable.Create(TextDocument);
Closeable.close(False);
							

How can I create, modify or delete spreadsheets?

var
  Libre: ILibre;
  SpreadsheetDocument: XSpreadsheetDocument;
  Spreadsheets: XSpreadsheets;
  Spreadsheet: XSpreadsheet;
  Cell: XCell;

Libre := CoLibre.Create;

SpreadsheetDocument := Libre.CreateSpreadsheetDocument;
Spreadsheets := SpreadsheetDocument.getSheets;

// create new spreadsheets
Spreadsheets.insertNewByName('MySpreadsheet1', 0);
Spreadsheets.insertNewByName('MySpreadsheet2', 0);

// modify content of spreadsheet
Spreadsheet := CoXSpreadsheet.Create(Spreadsheets.getByName('MySpreadsheet1'));
Cell := Spreadsheet.getCellByPosition(2, 2);
Cell.setFormula('Hello, world!');

// delete spreadsheet
Spreadsheets.removeByName('MySpreadsheet1');
							

How can I set cell properties?

var
  Cell: XCell;
  PropertySet: XPropertySet;

Cell := Spreadsheet.getCellByPosition(2, 2);
Cell.setFormula('Hello, world!');

PropertySet := CoXPropertySet.Create(Cell);
PropertySet.setPropertyValue('CharColor', $003399);
PropertySet.setPropertyValue('CharHeight', 20);
PropertySet.setPropertyValue('ParaLeftMargin', 500);
PropertySet.setPropertyValue('IsCellBackgroundTransparent', False);
PropertySet.setPropertyValue('CellBackColor', $99CCFF);
							

How can I select cells?

var
  Model: XModel;
  Controller: XController;
  CellRange: XCellRange;
  SelectionSupplier: XSelectionSupplier;

Model := CoXModel.Create(SpreadSheetDocument);
Controller := Model.getCurrentController;

CellRange := Spreadsheet.getCellRangeByName('A1:C3');

SelectionSupplier := CoXSelectionSupplier.Create(Controller);
SelectionSupplier.select(CellRange.ComObject);
							

How can I set column width?

var
  CellRange: XCellRange;
  ColumnRowRange: XColumnRowRange;
  TableColumns: XTableColumns;
  Column: Variant;
  PropertySet: XPropertySet;

CellRange := Spreadsheet.getCellRangeByName('C1');
ColumnRowRange := CoXColumnRowRange.Create(CellRange);
TableColumns := ColumnRowRange.getColumns;
Column := TableColumns.getByIndex(0);

PropertySet := CoXPropertySet.Create(Column);
PropertySet.setPropertyValue('Width', 5000);
							

How can I retrieve service names?

var
  Libre: ILibre;
  ServiceNames: TWideStringDynArray;
  I: Integer;

Libre := CoLibre.Create;
ServiceNames := Libre.MultiServiceFactory.getAvailableServiceNames;
for I := 0 to Length(ServiceNames) - 1 do
  Memo.Lines.Add(ServiceNames[I]);
							

How can I retrieve bookmarks?

var
  Libre: ILibre;
  TextDocument: XTextDocument;
  BookmarksSupplier: XBookmarksSupplier_2;
  NameAccess: XNameAccess;
  ElementNames: TWideStringDynArray;
  I: Integer;

Libre := CoLibre.Create;
TextDocument := Libre.OpenTextDocument(GetCurrentDir + '\document.odt');
BookmarksSupplier := CoXBookmarksSupplier_2.Create(TextDocument);
NameAccess := BookmarksSupplier.getBookmarks;
ElementNames := NameAccess.getElementNames;
for I := 0 to Length(ElementNames) - 1 do
  ShowMessage('Bookmark ' + IntToStr(I + 1) + ': ' + ElementNames[I]);
							

How can I select text?

var
  Libre: ILibre;
  TextDocument: XTextDocument;
  TextViewCursor: XTextViewCursor;
  Model: XModel;
  Controller: XController;
  TextViewCursorSupplier: XTextViewCursorSupplier;

Libre := CoLibre.Create;
TextDocument := Libre.OpenTextDocument(GetCurrentDir + '\document.odt');

Model := CoXModel.Create(TextDocument);
Controller := Model.getCurrentController;

TextViewCursorSupplier := CoXTextViewCursorSupplier.Create(Controller);
TextViewCursor := TextViewCursorSupplier.getViewCursor;

TextViewCursor.gotoStart(False);
TextViewCursor.gotoEnd(True);
							

How can I move cursor to bookmark?

var
  BookmarksSupplier: XBookmarksSupplier_2;
  NameAccess: XNameAccess;
  Element: Variant;
  TextContent: XTextContent;
  TextViewCursor: XTextViewCursor;

NameAccess := BookmarksSupplier.getBookmarks;
Element := NameAccess.getByName(NameAccess.getElementNames[0]); // the first bookmark
TextContent := CoXTextContent.Create(Element);
TextViewCursor.gotoRange(TextContent.getAnchor, False);
							

How can I hide or disable Writer window?

var
  Libre: ILibre;
  TextDocument: XTextDocument;
  Controller: XController;
  Frame: XFrame;
  Window: XWindow;

Libre := CoLibre.Create;
TextDocument := Libre.CreateTextDocument;
Controller := TextDocument.getCurrentController;
Frame := Controller.getFrame;
Window := Frame.getContainerWindow;
Window.setEnable(False); // disable window
Window.setVisible(False); // hide window
Window.setEnable(True); // enable window
Window.setVisible(True); // show window
							

How can I minimize or maximize Writer window?

var
  Libre: ILibre;
  TextDocument: XTextDocument;
  Controller: XController;
  Frame: XFrame;
  Window: XWindow;
  TopWindow: XTopWindow2;

Libre := CoLibre.Create;
TextDocument := Libre.CreateTextDocument;
Controller := TextDocument.getCurrentController;
Frame := Controller.getFrame;
Window := Frame.getContainerWindow;
TopWindow := CoXTopWindow2.Create(Window);
TopWindow.IsMinimized := True; // minimize
TopWindow.IsMaximized := True; // maximize
							

How can I create and show message box?

var
  Libre: ILibre;
  TextDocument: XTextDocument;
  Controller: XController;
  Frame: XFrame;
  Window: XWindow;
  WindowPeer: XWindowPeer;
  Toolkit: XToolkit2;
  MessageBoxFactory: XMessageBoxFactory;
  MessageBox: XMessageBox;

Libre := CoLibre.Create;
TextDocument := Libre.CreateTextDocument;
Controller := TextDocument.getCurrentController;
Frame := Controller.getFrame;
Window := Frame.getContainerWindow;
WindowPeer := CoXWindowPeer.Create(Window);
Toolkit := CoXToolkit2.Create(WindowPeer.getToolkit);
MessageBoxFactory := Toolkit.XMessageBoxFactory;
MessageBox := MessageBoxFactory.createMessageBox(WindowPeer, MessageBoxType_INFOBOX,
  MessageBoxButtons_BUTTONS_OK, 'Title', 'Message');
MessageBox.execute;