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: Sortuko den fitxategia identifikatzen du. SF_FileSystem.FileNaming notazioa jarraitu behar du. Fitxategia lehendik badago, gainidatzi egingo du inolako abisurik gabe.

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 (*)

Mota jakin bateko LibreOffice dokumentu berria sortzen du emandako txantiloi batean oinarrituta. Metodoak dokumentu-objektu bat itzuliko du.

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"))
   

GetDocument

Leiho aktiboari, emandako leiho bati edo dokumentu aktiboari erreferentzia egiten dion dokumentu-objektu ireki bat itzultzen du.

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

Ireki lehendik dagoen LibreOffice Base dokumentu bat. Metodoak dokumentu-objektu bat itzuliko du.

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 = portaera erabiltzaile-konfigurazioak definituko du, 1 = makroak ez dira exekutagarriak, 2 = makroak exekutagarriak dira.

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

     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 = portaera erabiltzaile-konfigurazioak definitzen du, 1 = makroak ez dira exekutagarriak, 2 = makroak exekutagarriak dira.

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)
   

     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(, ,500, 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: str = -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"):
         # ...