ScriptForge.UI zerbitzua

UI zerbitzuak (erabiltzaile-interfazearenak) LibreOffice aplikazio osoa osatzen duten leiho anitzen identifikazioa eta manipulazioa sinplifikatzen du:

• Leihoen hautapena

• Leihoak lekuz eta tamainaz aldatzea

• Egoera-barraren ezarpenak

• Aurrerapen-barra mugikor bat bistaratzea

• Leiho berriak sortzea

• Azpiko "dokumentuak" atzitzea

UI zerbitzua dokumentu berriak edo lehendik daudenak erabiltzaile-script batetik irekitzeko, sortzeko edo atzitzeko abiapuntua da.

Definizioak

WindowName

Leiho bat adierazteko modu anitz daude:

• bide-izen eta fitxategi-izen oso bat

• fitxategi-izen osoaren azken osagaia edo baita atzizkirik gabeko azken osagaia ere

• leihoaren izenburua

• dokumentu berrietarako "Izengabea 1" bezalako zerbait

• "BASICIDE" eta "WELCOMESCREEN" leiho berezietako bat

Leiho-izenak maiuskulak/minuskulak bereizten ditu.

Document objektua

Behean deskribatutako CreateDocument, CreateBaseDocument, GetDocument, OpenBaseDocument eta OpenDocument metodoek dokumentu-objektuak sortzen dituzte. Leiho batek dokumentu bat duenean, Document klasearen instantzia batek dokumentu hori ordezkatzen du. Basic IDEaren pareko adibidea ez da dokumentu bat, baizik eta leiho bat, gure terminologian. Horrez gain, dokumentuek mota bat dute: Calc, Impress, Writer...

Dokumentuetan aplikatu daitezkeen propietate eta metodo espezifikoak dokumentu-klase batean inplementatzen dira.

Dokumentu-objektuen klasearen inplementazioa elkartutako SFDocuments liburutegian egiten da. Ikusi haren "Document" zerbitzua.

Zerbitzuari deitzea

UI zerbitzua erabiltzeko, ScriptForge liburutegia kargatu edo inportatu behar da:

• Basic makroak erabiltzkeo, ScriptForge liburutegia kargatu behar da honako instrukzioa erabiliz:
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")

• Python scriptak erabiltzeko, berriz, scriptforge modulu baten inportazioa behar dute:
from scriptforge import CreateScriptService

    Dim ui As Variant
    GlobalScope.BasicLibraries.LoadLibrary("ScriptForge")
    Set ui = CreateScriptService("UI")
  

    from scriptforge import CreateScriptService
    ui = CreateScriptService("UI")
  

Propietateak

Konstanteak

Beheko adibideek unean irekitako dokumentu guztien izenak dituen MsgBox bat erakusten dute.

     Dim openDocs As Object, strDocs As String
     Set openDocs = ui.Documents()
     strDocs = openDocs(0)
     For i = 1 To UBound(openDocs)
         strDocs = strDocs & Chr(10) & openDocs(i)
     Next i
     MsgBox strDocs
   

     ui = CreateScriptService("UI")
     bas = CreateScriptService("Basic")
     openDocs = ui.Documents()
     strDocs = "\n".join(openDocs)
     bas.MsgBox(strDocs)
   

Kontuan izan, salbuespen gisa, (*) markatutako metodoak ezin zaizkiela Base dokumentuei aplikatu.

Activate

Bihurtu aktibo zehaztutako leihoa. Metodoak True itzuliko du emandako leihoa aurkitu bada eta aktibatu ahal izan bada. Ez da aldaketarik egongo uneko erabiltzaile-interfazean ez badago hautapenarekin bat datorren leihorik.

svc.Activate(windowname: str): bool

windowname: Ikusi goiko definizioak.

      ui.Activate("C:\Documents\My file.odt")
    

      ui.Activate(r"C:\Documents\My file.odt")
    

CreateBaseDocument

Emandako motatako datu-base huts bat kapsulatuta duen LibreOffice Base dokumentu berria sortzen eta gordetzen du. Metodoak Document zerbitzuaren instantzia bat itzuliko du.

svc.CreateBaseDocument(filename: str, embeddeddatabase: str = 'HSQLDB', registrationname: str = '', opt calcfilename: str): svc

filename : Identifies the file to create. It must follow the SF_FileSystem.FileNaming notation. If the file already exists, it is overwritten without warning.

embeddeddatabase: "HSQLDB" (lehenetsia), "FIREBIRD" edo "CALC".

registrationname: Datu-base berria datu-baseen erregistroa gordetzeko erabiliko den izena. Balioa = "" bada ez da erregistrorik egingo. Izena lehendik badago, gainidatzi egingo da abisurik gabe.

calcfilename: Soilik embeddeddatabase = "CALC" denean, calcfilename aldagaiak Calc orri gisako taulak dituen fitxategia adierazten du. Fitxategiak lehendik egon behar du, bestela errore bat sortuko da.

      Dim myBase As Object, myCalcBase As Object
      Set myBase = ui.CreateBaseDocument("C:\Databases\MyBaseFile.odb", "FIREBIRD")
      Set myCalcBase = ui.CreateBaseDocument("C:\Databases\MyCalcBaseFile.odb", _
          "CALC", , "C:\Databases\MyCalcFile.ods")
   

     myBase = ui.CreateBaseDocument(r"C:\Databases\MyBaseFile.odb", "FIREBIRD")
     myCalcBase = ui.CreateBaseDocument(r"C:\Databases\MyCalcBaseFile.odb", \
         "CALC", calcfilename = r"C:\Databases\MyCalcFile.ods")
   

CreateDocument (*)

Create a new LibreOffice document of a given type or based on a given template. The method returns an instance of the document class or one of its subclasses (Calc, Writer).

svc.CreateDocument(documenttype: str = '', templatefile: str = '', hidden: bool = False): svc

documenttype : "Calc", "Writer", etab. Argumentu hori falta bada, templatefile argumentuak egon behar du.

templatefile: Dokumentu berria eraikitzeko erabiliko den txantiloiaren FileName osoa. Fitxategia ez badago lehendik, argumentuari ez ikusiarena egingo zaio. FileSystem zerbitzuak TemplatesFolder eta UserTemplatesFolder propietateak ematen ditu argumentua eraikitzen laguntzeko.

hidden: True bada, ireki dokumentu berria atzeko planoan (lehenetsia = False). Erabili kontuz: geroago hura aktibatu edo itxi nahi bada, programazio bidez egin beharko da.

Beheko bi adibideetan, CreateDocument metodoari egindako lehen deiak Calc dokumentu hutsa sortzen du, eta bigarrenak txantiloi-fitxategi batetik abiatuta sortzen du dokumentu bat.

      Dim myDoc1 As Object, myDoc2 As Object, FSO As Object
      Set myDoc1 = ui.CreateDocument("Calc")
      Set FSO = CreateScriptService("FileSystem")
      Set myDoc2 = ui.CreateDocument(, FSO.BuildPath(FSO.TemplatesFolder, "personal/CV.ott"))
   

     myDoc1 = ui.CreateDocument("Calc")
     fs = CreateScriptService("FileSystem")
     myDoc2 = ui.CreateDocument(templatefile = fs.BuildPath(fs.TemplatesFolder, "personal/CV.ott"))
   

Documents

The list of the currently open documents. Special windows are ignored. This list consists of a zero-based one dimensional array either of filenames - using ScriptForge.FileSystem.FileNaming notation - or of window titles for unsaved documents.

svc.Documents(): str[1..*]

In both examples below, the method may return an empty array if there are no documents open.

      Dim docList As Variant
      docList = ui.Documents
   

     docList = ui.Documents()
   

GetDocument

Returns an instance of the Document class or one of its subclasses (Calc, Writer, Base, FormDocument) referring to either a given window or the active document.

svc.GetDocument(windowname: str = ''): svc

svc.GetDocument(windowname: uno): svc

windowname: Ikusi goiko definizioak. Argumentu hau ez badago, leiho aktiboa erabiliko da. com.sun.star.lang.XComponent edo com.sun.star.comp.dba.ODatabaseDocument motako UNO objektuak ere onartzen dira. Beraz, ThisComponent edo ThisDatabaseDocument argumentu gisa pasatzen bada, SFDocuments.Document, Base edo Calc zerbitzu berria sortuko da.

      Dim myDoc As Object
      Set myDoc = ui.GetDocument("C:\Documents\My file.odt")
      Set myBase = ui.GetDocument(ThisDatabaseDocument)
   

     from scriptforge import CreateScriptService
     bas = CreateScriptService("Basic")
     myDoc = ui.GetDocument(r"C:\Documents\My file.odt")
     myDoc = ui.GetDocument(bas.ThisComponent)
   

Uneko leiho aktiboaren izena atzitzeko, erabili ActiveWindow propietatea.

Maximize

Leiho aktiboa edo emandako leihoa maximizatzen du.

svc.Maximize(windowname: str)

windowname: Ikusi definizioak goian. Argumentu hau falta bada, leiho aktiboa maximizatuko da.

      ui.Maximize("Untitled 1")
   

     ui.Maximize("Untitled 1")
   

Minimize

Leiho aktiboa edo emandako leihoa ikonotzen du.

svc.Minimize(windowname: str)

windowname: Ikusi definizioak goian. Argumentu hau falta bada, leiho aktiboa ikonotuko da.

     ui.Minimize()
   

     ui.Minimize()
   

OpenBaseDocument

Open an existing LibreOffice Base document. The method returns a Base object.

svc.OpenBaseDocument(filename: str = '', registrationname: str = '', macroexecution: int = 0): svc

filename: Irekiko den fitxategia identifikatzen du. SF_FileSystem.FileNaming notazioa jarraitu behar du.

registrationname: Datu-basea datu-baseen erregistroan aurkitzeko erabiliko den izena. Ez ikusiarena egingo zaio FileName <> "" bada.

macroexecution: 0 = behaviour is defined by the user configuration, 1 = macros are not executable, 2 = macros are executable. Default is 0.

      Dim myBase As Object
      Set myBase = ui.OpenBaseDocument("C:\Documents\myDB.odb", MacroExecution := ui.MACROEXECALWAYS)
   

     myBase = ui.OpenBaseDocument(r"C:\Documents\myDB.odb", macroexecution = ui.MACROEXECALWAYS)
   

To improve code readability you can use predefined constants for the macroexecution argument, as in the examples above.

OpenDocument (*)

Lehendik dagoen LibreOffice dokumentu bat irekitzen du emandako aukerekin. Dokumentu objektu bat edo haren azpiklaseetako bat itzultzen du. Metodoak Nothing (Basic lengoaian) edo None (Python lengoaian) itzultzen du irekitzeak huts egiten badu, baita huts egitea erabiltzailearen erabaki batek eragin badu ere.

svc.Opendocument(filename: str, password: str = '', readonly: bool = False, hidden: bool = False, macroexecution: int = 0, filtername: str = '', filteroptions: str = ''): svc

filename: Irekiko den fitxategia identifikatzen du. FileSystem zerbitzuaren FileNaming notazioa jarraitu behar du.

password: Dokumentua babestuta dagoenean erabili beharrekoa. Okerra bada edo falta bada dokumentua babestuta dagoenean, erabiltzaileari pasahitz bat sartu dezan eskatuko zaio.

readonly: Lehenetsia = False.

hidden: True bada, ireki dokumentu berria atzeko planoan (lehenetsia = False). Erabili kontuz, geroago dokumentua aktibatzea edo ixtea programazio bidez soilik egin baitaiteke.

macroexecution: 0 = behaviour is defined by the user configuration, 1 = macros are not executable, 2 = macros are executable. Default is 0.

filtername: Dokumentua kargatzeko erabili beharko den iragazki baten izena. Argumentu hau ematen bada, iragazkiak existitu behar du.

filteroptions: Iragazkiari lotutako aukerak dituen kate bat.

      Dim myDoc As Object, FSO As Object
      Set myDoc = ui.OpenDocument("C:\Documents\myFile.odt", ReadOnly := True)
   

     myDoc = ui.OpenDocument(r"C:\Documents\myFile.odt", readonly = True)
   

Resize

Leiho aktiboaren tamaina edo lekua aldatzen du. Argumentua ez badago edo negatiboa bada, ez ikusiarena egingo zaio. Leihoa ikonotuta edo maximizatuta badago, Resize metodoari argumenturik gabe deitzen bazaio leihoa berrezarri egingo da.

svc.Resize(left: int = -1, top: int = -1, width: int = -1, height: int = -1)

left, top: Goiko ezkerreko izkinaren distantziak pantailaren goiko eta ezkerreko ertzetara, pixeletan.

width, height: Leihoaren dimentsio berriak, pixeletan.

Hurrengo adibideetan, leihoaren width eta height parametroak aldatu egingo dira, baina top eta left aldaketarik gabe utziko dira.

      ui.Resize(Width := 500, Height := 500)
   

     ui.Resize(width = 500, height = 500)
   

Aktibo ez den leiho baten tamaina aldatzeko, lehenengo hura aktibatu behar da Activate metodoa erabilita.

RunCommand

UNO komando bat exekutatzen du uneko leihoan. Komando arruntenetako batzuk: Save, SaveAs, ExportToPDF, Undo, Copy, Paste, etab.

Komandoak argumentuekin edo argumenturik gabe exekutatu daitezke. Argumentuak ez dira balioztatzen exekuzioaren aurretik. Komandoa edo bere argumentuak baliogabeak badira, ez da ezer gertatuko.

LibreOffice aplikazioan exekutatu daitezkeen UNO komandoen zerrenda osoa ezagutzeko, begiratu wikiko Development/DispatchCommands orria.

svc.RunCommand(command: str, [args: any])

command: UNO komandoaren izena duen katea, maiuskulak/minuskulak bereizten dituena. Komandoan ".uno:" aurrizkia sartu daiteke. Ez da egiaztatzen komandoa bera zuzena denik. Komandoari deitu ondoren ez bada ezer gertatzen, seguru asko komandoa gaizki idatzita dago.

args: Komandoari pasatutako argumentu bakoitzeko, zehaztu argumentuaren izena eta balioa dituen bikote bat.

Hurrengo adibidean .uno:About komandoa erabiltzen da uneko leihoan.

    Set ui = CreateScriptService("UI")
    ui.RunCommand("About")
  

Beheko adibidean, .uno:BasicIDEAppear UNO komandoa exekutatzen da eta modulu baten lerro zehatz batean Basic IDE bat irekitzeko behar diren argumentuak pasatzen dira.

    ' Komandoari pasatutako argumentuak:
    ' Document  = "LibreOffice Macros & Dialogs"
    ' LibName = "ScriptForge"
    ' Name = "SF_Session"
    ' Line = 600
    ui.RunCommand(".uno:BasicIDEAppear", "Document", "LibreOffice Macros & Dialogs", _ 
                  "LibName", "ScriptForge", "Name", "SF_Session", "Line", 600)
  

Kontuan izan BasicIDEAppear komandoari argumenturik gabe deitzen bazaio Basic IDEa irekiko dela.

    ui = CreateScriptService("UI")
    ui.RunCommand("About")
  

    ui.RunCommand(".uno:BasicIDEAppear", "Document", "LibreOffice Macros & Dialogs", \
                  "LibName", "ScriptForge", "Name", "SF_Session", "Line", 600)
  

Python lengoaian RunCommand komandoari deitu dakioke honako gako-hitzak erabiliz:

    ui.RunCommand(".uno:BasicIDEAppear", Document = "LibreOffice Macros & Dialogs", \
                  LibName = "ScriptForge", Name = "SF_Session", Line = 600)
  

LibreOffice osagai bakoitzak bere komando multzoa du. Komandoak erraz ikasteko, joan Tresnak - Pertsonalizatu - Teklatua aukerara. Sagua Funtzioa zerrendako funtzio baten gainean kokatzean, aholku bat agertuko da hari dagokion UNO komandoa erakutsiz.

SetStatusbar (*)

Bistaratu testu bat eta aurrerapen-barra bat leiho aktiboaren egoera-barran. Makro berari egindako hurrengo deiek leiho bereko egoera-barra berari egingo diote erreferentzia, baita leihoa ikusgai ez badago ere. Deia argumenturik gabe egiten bada, egoera-barra egoera normalera itzuliko da.

svc.SetStatusbar(text: str = '', percentage: int = -1)

text: Aurrerapen-barraren aurrean bistaratuko den testu bat, aukerakoa.

percentage: Aurrerapen-maila, 0 eta 100 artekoa, aukerakoa.

      Dim i As Integer
      For i = 0 To 100
          ui.SetStatusbar("Progress ...", i)
          Wait 50
      Next i
      ' Egoera-barra berrezartzen du
      ui.SetStatusbar
   

     from time import sleep
     for i in range(101):
         ui.SetStatusbar("Test:", i)
         sleep(0.05)
     ui.SetStatusbar()
   

ShowProgressBar

Elkarrizketa-koadro ez modal bat bistaratzen du. Zehazte bere izenburua, azalpen-testua eta aurrerapen-barrak adieraziko den aurrerapen-ehunekoa. Elkarrizketa-koadroa ikusgai egongo da metodoari argumenturik gabe deitu arte edo erabiltzaileak elkarrizketa-koadroa eskuz ixten duen arte.

svc.ShowProgressBar(title: str = '', text: str = '', percentage: int = -1)

title: Elkarrizketa-koadroaren goiko aldean agertuko den izenburua. Lehenetsia = "ScriptForge".

text: Aurrerapen-barraren gainean bistaratuko den testu bat, aukerakoa.

percentage: Aurrerapen-maila, 0 eta 100 artekoa, aukerakoa.

      Dim i As Integer
      For i = 0 To 100
          ui.ShowProgressBar("Window Title", "Progress ..." & i & "/100", i)
          Wait 50
      Next i
      ' Aurrerapen-barraren leihoa ixten du
      ui.ShowProgressBar
   

     from time import sleep
     for i in range(101):
         ui.ShowProgressBar("Window Title", "Progress ... " + str(i) + "/100", i)
         sleep(0.05)
     # Aurrerapen-barraren leihoa ixten du
     ui.ShowProgressBar()
   

WindowExists

True itzuliko du emandako leihoa identifikatu badaiteke.

svc.WindowExists(windowname: str): bool

windowname: Ikusi goiko definizioak.

      If ui.WindowExists("C:\Document\My file.odt") Then
          ' ...
   

     if ui.WindowExists(r"C:\Document\My file.odt"):
         # ...