SFDialogs. Υπηρεσία Διάλογος

Η υπηρεσία Dialog συμβάλλει στη διαχείριση των διαλόγων που δημιουργούνται με την Επεξεργασία διαλόγου της Basic. Κάθε παρουσία της τρέχουσας κλάσης αντιπροσωπεύει ένα ενιαίο πλαίσιο διαλόγου που εμφανίζεται στον χρήστη.

tip

Ένα πλαίσιο διαλόγου μπορεί να εμφανιστεί σε αναγκαστικές ή μη αναγκαστικές καταστάσεις.


Στη αναγκαστική κατάσταση, εμφανίζεται το πλαίσιο και η εκτέλεση της διαδικασίας μακροεντολής αναστέλλεται μέχρι να πατηθεί ένα από τα κουμπιά Εντάξει ή Ακύρωση. Στο μεταξύ, οι ενέργειες χρήστη που εκτελούνται στο πλαίσιο μπορούν να ενεργοποιήσουν συγκεκριμένες ενέργειες.

Στη μη αναγκαστική κατάσταση, το πλαίσιο διαλόγου "επιπλέει" στην επιφάνεια εργασίας του χρήστη και η εκτέλεση της διαδικασίας μακροεντολής συνεχίζεται κανονικά. Ένα μη αναγκαστικό παράθυρο διαλόγου κλείνει όταν τερματίζεται με τη μέθοδο Terminate(), ή όταν τελειώσει η συνεδρία του LibreOffice. Το πλήκτρο κλεισίματος παραθύρου είναι ανενεργό σε μη αναγκαστικούς διαλόγους.

Ένα πλαίσιο διαλόγου εξαφανίζεται από τη μνήμη μετά τον ρητό τερματισμό του.

tip

Η υπηρεσία SFDialogs.Dialog σχετίζεται στενά με την υπηρεσία SFDialogs.DialogControl.


Κλήση και χρήση της υπηρεσίας

Πριν τη χρήση της υπηρεσίας Dialog, πρέπει να φορτωθεί ή να εισαχθεί η βιβλιοθήκη ScriptForge:

note

• Οι μακροεντολές Basic απαιτούν τη φόρτωση της βιβλιοθήκης ScriptForge χρησιμοποιώντας την ακόλουθη πρόταση:
GlobalScope.BasicLibraries.loadLibrary("ScriptForge")

• Τα σενάρια Python απαιτούν εισαγωγή από την ενότητα scriptforge:
από το scriptforge import CreateScriptService


Η υπηρεσία Dialog καλείται μέσω της μεθόδου CreateScriptService. Απαιτεί τρία ορίσματα θέσης για να καθορίσετε το πλαίσιο διαλόγου για ενεργοποίηση:

Container (περιέκτης): "GlobalScope" για προεγκατεστημένες βιβλιοθήκες ή όνομα παραθύρου όπως ορίζεται από την υπηρεσία ScriptForge.UI. Η προεπιλεγμένη τιμή κενής συμβολοσειράς "" αντιπροσωπεύει το τρέχον έγγραφο.

Library (Βιβλιοθήκη): Το όνομα με διάκριση πεζών-κεφαλαίων μιας βιβλιοθήκης που περιέχεται στον περιέκτη. Η προεπιλεγμένη τιμή είναι "Standard" (Τυπική).

DialogName (Όνομα διαλόγου): Μια συμβολοσειρά με διάκριση πεζών-κεφαλαίων που προσδιορίζει το παράθυρο διαλόγου.

Παρακάτω, τα παραδείγματα των LibreOffice Basic και Python εμφανίζουν το παράθυρο διαλόγου dlgConsole που ανήκει στην κοινόχρηστη βιβλιοθήκη ScriptForge:


      Dim oDlg As Object, lButton As Long
      Dim Container As String, Library As String, DialogName As String
      Set oDlg = CreateScriptService("SFDialogs.Dialog", "GlobalScope", "ScriptForge", "dlgConsole")
      '... η αρχικοποίηση των στοιχείων ελέγχου πηγαίνει εδώ...
      lButton = oDlg.Execute()
      'Προεπιλεγμένη κατάσταση = Modal (Αναγκαστική)
      If lButton = oDlg.OKBUTTON Then
      '... Στοιχεία ελέγχου διεργασίας και κάντε ό,τι χρειάζεται εδώ
      End If
      oDlg.Terminate()
  

Ή χρησιμοποιώντας Python:


    dlg = CreateScriptService('SFDialogs.Dialog', 'GlobalScope', 'ScriptForge', 'dlgConsole')
    # ... η αρχικοποίηση των στοιχείων ελέγχου πηγαίνει εδώ...
    rc = dlg.Execute()
    # Η προεπιλεγμένη κατάσταση είναι Modal (αναγκαστική)
    if rc == dlg.OKBUTTON:
        # ... Επεξεργαστείτε τα στοιχεία ελέγχου και κάντε ό,τι χρειάζεται εδώ
    dlg.Terminate()
  

Εναλλακτικά, μια παρουσία Dialog μπορεί να ανακτηθεί μέσω της υπηρεσίας SFDialogs.DialogEvent, με την προϋπόθεση ότι το παράθυρο διαλόγου ξεκίνησε με την υπηρεσία Dialog. Το DialogEvent επιστρέφει την παρουσία της υπηρεσίας SFDialogs.Dialog που ενεργοποίησε το συμβάν.


    Sub SomeEvent(ByRef poEvent As Object)
        Dim oDlg As Object
        Set oDlg = CreateScriptService("SFDialogs.DialogEvent", poEvent)
    End Sub
  

με Python:


    def some_event(event: uno):
        dlg = CreateScriptService("SFDialogs.DialogEvent", event)
  

Λάβετε υπόψη ότι σε προηγούμενα παραδείγματα, το πρόθεμα "SFDialogs." μπορεί να παραλειφθεί όταν κριθεί κατάλληλο.

Ιδιότητες

Όνομα

Μόνο για ανάγνωση

Τύπος

Περιγραφή

OKBUTTON

Ναι

Integer

Value (Τιμή) = 1. Πατήθηκε πλήκτρο OK (Εντάξει).

CANCELBUTTON

Ναι

Integer

Value (Τιμή) = 0. Πατήθηκε πλήκτρο Ακύρωσης.

Caption

Όχι

String

Καθορίστε τον τίτλο του διαλόγου.

Height

Όχι

Long

Καθορίστε το ύψος του πλαισίου διαλόγου.

Modal

Ναι

Boolean

Καθορίζει εάν το πλαίσιο διαλόγου εκτελείται αυτήν τη στιγμή σε λειτουργία modal (αναγκαστική).

Name

Ναι

String

Το όνομα του διαλόγου

Page

Όχι

Integer

Ένα παράθυρο διαλόγου μπορεί να έχει πολλές σελίδες που μπορεί να διασχίσει ο χρήστης βήμα προς βήμα. Η ιδιότητα Page (Σελίδα) του αντικειμένου διαλόγου ορίζει ποια σελίδα του διαλόγου είναι ενεργή.

Visible

Όχι

Boolean

Καθορίστε εάν το πλαίσιο διαλόγου είναι ορατό στην επιφάνεια εργασίας. Από προεπιλογή δεν είναι ορατό μέχρι να εκτελεστεί η μέθοδος Execute() και να είναι ορατή στη συνέχεια.

XDialogModel

Ναι

UNO
object

Το αντικείμενο UNO που αντιπροσωπεύει το μοντέλο διαλόγου. Ανατρέξτε στο XControlModel και UnoControlDialogModel στην τεκμηρίωση της διασύνδεσης προγραμματισμού εφαρμογών (API) για λεπτομερείς πληροφορίες.

XDialogView

Ναι

UNO
object

Το αντικείμενο UNO που αντιπροσωπεύει την προβολή διαλόγου. Ανατρέξτε στα XControl και UnoControlDialog στην τεκμηρίωση της διασύνδεσης προγραμματισμού εφαρμογών (API) για λεπτομερείς πληροφορίες.

Width

Όχι

Long

Καθορίστε το πλάτος του πλαισίου διαλόγου.


Ιδιότητες συμβάντος

Επιστρέφει μια συμβολοσειρά URI με αναφορά στο σενάριο που ενεργοποιήθηκε από το συμβάν. Διαβάστε τις προδιαγραφές του στην προδιαγραφή URI σεναρίου πλαισίου.

Όνομα

Μόνο για ανάγνωση

Περιγραφή IDE Basic

OnFocusGained

Ναι

Κατά τη λήψη της εστίασης

OnFocusLost

Ναι

Κατά τη απώλεια της εστίασης

OnKeyPressed

Ναι

Με το πλήκτρο πατημένο

OnKeyReleased

Ναι

Με το πλήκτρο απελευθερωμένο

OnMouseDragged

Ναι

Το ποντίκι μετακινήθηκε κατά το πάτημα του πλήκτρου

OnMouseEntered

Ναι

Το ποντίκι εντός

OnMouseExited

Ναι

Το ποντίκι εκτός

OnMouseMoved

Ναι

Το ποντίκι μετακινήθηκε

OnMousePressed

Ναι

Με πατημένο το πλήκτρο του ποντικιού

OnMouseReleased

Ναι

Με απελευθερωμένο το πλήκτρο του ποντικιού


Μέθοδοι

Activate
Center
Controls

EndExecute
Execute
GetTextsFromL10N

Resize
Terminate


Activate

Ρυθμίστε την εστίαση στην τρέχουσα παρουσία του Dialog (Διάλογος). Επιστροφή True εάν η εστίαση ήταν επιτυχής.

Αυτή η μέθοδος καλείται από ένα συμβάν διαλόγου ή ελέγχου, ή όταν εμφανίζεται ένα παράθυρο διαλόγου σε μη αναγκαστική λειτουργία.

Σύνταξη:

svc.Activate(): bool

Παράδειγμα:


      Dim oDlg As Object
      Set oDlg = CreateScriptService(,, "myDialog")
      oDlg.Execute()
      ' ...
      oDlg.Activate()
   

Τα παραδείγματα Python και LibreOffice Basic υποθέτουν και τα δύο ότι το παράθυρο διαλόγου είναι αποθηκευμένο στη βιβλιοθήκη Standard (Τυπική)του τρέχοντος εγγράφου.


     dlg = CreateScriptService(,,'myDialog')
     dlg.Execute()
     # ...
     dlg.Activate()
   

Center

Κεντράρει την τρέχουσα παρουσία διαλόγου στη μέση ενός γονικού παραθύρου. Χωρίς ορίσματα, η μέθοδος κεντράρει το παράθυρο διαλόγου στη μέση του τρέχοντος παραθύρου.

Επιστρέφει True όταν είναι επιτυχές.

Σύνταξη:

svc.Center(opt Parent: obj): bool

Παράμετροι:

Parent (Γονικό): Ένα προαιρετικό αντικείμενο που μπορεί να είναι είτε…

Παράδειγμα:

Σε Basic

     Sub TriggerEvent(oEvent As Object)
         Dim oDialog1 As Object, oDialog2 As Object, lExec As Long
         Set oDialog1 = CreateScriptService("DialogEvent", oEvent) ' Το παράθυρο διαλόγου που προκάλεσε το συμβάν
         Set oDialog2 = CreateScriptService("Dialog", ...) ' Άνοιγμα δεύτερου διαλόγου
         oDialog2.Center(oDialog1)
         lExec = oDialog2.Execute()
         Select Case lExec
             ...
     End Sub
  
Σε Python

     def triggerEvent(event: uno):
       dlg1 = CreateScriptService('DialogEvent.Dialog', συμβάν) # Το παράθυρο διαλόγου που προκάλεσε το συμβάν
       dlg2 = CreateScriptService('Dialog', ...) # Άνοιγμα δεύτερου διαλόγου
       dlg2.Center(dlg1)
       rc = dlg2.Execute()
       if rc is False:
         # ...
   

Controls

Επιστροφή είτε:

Σύνταξη:

svc.Controls(): str[0..*]

svc.Controls(controlname: str): svc

Παράμετροι:

ControlName (Όνομα ελέγχου): Ένα έγκυρο όνομα ελέγχου ως συμβολοσειρά με διάκριση πεζών-κεφαλαίων. Εάν δεν υπάρχει, ο κατάλογος ονομάτων ελέγχου επιστρέφεται ως πίνακας μηδενικής βάσης.

Παράδειγμα:


      Dim myDialog As Object, myList As Variant, myControl As Object
      Set myDialog = CreateScriptService("SFDialogs.Dialog", , "Standard", "Dialog1")
      myList = myDialog.Controls()
      Set myControl = myDialog.Controls("myTextBox")
   

     dlg = CreateScriptService('SFDialogs.Dialog','', 'Standard', 'Dialog1')
     ctrls = dlg.Controls()
     ctrl = dlg.Controls('myTextBox')
   

EndExecute

Τερματίζει την εμφάνιση ενός αναγκαστικού διαλόγου και επιστρέφει το όρισμα ως επιστρεφόμενη τιμή για την τρέχουσα εκτελούμενη ενέργεια Execute().

Το EndExecute() (Τέλος εκτέλεσης) περιέχεται συνήθως στην επεξεργασία μιας μακροεντολής που ενεργοποιείται από ένα συμβάν διαλόγου ή ελέγχου.

Σύνταξη:

svc.EndExecute(returnvalue: int)

Παράμετροι:

returnvalue (τιμή επιστροφής): Η τιμή μεταβιβάστηκε στην τρέχουσα μέθοδο Execute().

Παράδειγμα:

Χρήση του LibreOffice Basic:


      Sub OnEvent(poEvent As com.sun.star.lang.EventObject)
          Dim oDlg As Object
          Set oDlg = CreateScriptService("SFDialogs.DialogEvent", poEvent)
          oDlg.EndExecute(ReturnValue := 25)
      End Sub
   

Χρησιμοποιώντας Python:


     from com.sun.star.lang import EventObject
     def on_event(event: EventObject):
         dlg = CreateScriptService("SFDialogs.DialogEvent", event)
         dlg.EndExecute(25)
   
tip

Πάνω από το com.sun.star.lang.EventObject οι αναφορές είναι προαιρετικές. Τέτοιοι σχολιασμοί βοηθούν στον προσδιορισμό της διεπαφής προγραμματισμού εφαρμογών (API) του LibreOffice.


Execute

Εμφάνιση του πλαισίου διαλόγου και, όταν είναι αναγκαστικό, περιμένετε τον τερματισμό του από τον χρήστη. Η επιστρεφόμενη τιμή είναι είτε:

Για παράθυρα διαλόγου που δεν είναι αναγκαστικά, η μέθοδος επιστρέφει πάντα 0 και η εκτέλεση της μακροεντολής συνεχίζεται.

Σύνταξη:

svc.Execute(modal: bool = True): int

Παράμετροι:

modal (αναγκαστικό): False όταν ο διάλογος δεν είναι αναγκαστικός. Προεπιλογή = True.

Παράδειγμα:

Σε αυτό το παράδειγμα Basic, ο διάλογος myDialog αποθηκεύεται στη βιβλιοθήκη Standard (Τυπική) του τρέχοντος εγγράφου.


      Dim oDlg As Object, lReturn As Long
      Set oDlg = CreateScriptService("SFDialogs.Dialog", , , "myDialog")
      lReturn = oDlg.Execute(Modal := False)
      Select Case lReturn
          ' ...
      End Select
   

Αυτός ο κώδικας Python εμφανίζει τον αναγκαστικό διάλογο DlgConvert από την κοινόχρηστη βιβλιοθήκη Basic Euro.


     dlg = CreateScriptService("SFDialogs.Dialog", 'GlobalScope', 'Euro', "DlgConvert")
     rc = dlg.Execute()
     if rc == dlg.CANCELBUTTON:
         # ...
   

GetTextsFromL10N

Αντικαθιστά όλες τις σταθερές συμβολοσειρές κειμένου σε ένα παράθυρο διαλόγου από τις μεταφρασμένες εκδόσεις τους που βασίζονται σε μια παρουσία υπηρεσίας L10N. Αυτή η μέθοδος μεταφράζει τις ακόλουθες συμβολοσειρές:

Η μέθοδος επιστρέφει True εάν είναι επιτυχής.

Για να δημιουργήσετε έναν κατάλογο με μεταφράσιμες συμβολοσειρές σε ένα παράθυρο διαλόγου, χρησιμοποιήστε τη μέθοδο AddTextsFromDialog από την υπηρεσία L10N.

Σύνταξη:

svc.GetTextsFromL10N(l10n: svc): bool

Παράμετροι:

l10n: Μια παρουσία υπηρεσίας L10N από την οποία θα ανακτηθούν μεταφρασμένες συμβολοσειρές.

Παράδειγμα:

Το παρακάτω παράδειγμα φορτώνει μεταφρασμένες συμβολοσειρές και τις εφαρμόζει στο παράθυρο διαλόγου "MyDialog".

Σε Basic

     oDlg = CreateScriptService("Dialog", "GlobalScope", "Standard", "MyDialog")
     myPO = CreateScriptService("L10N", "/home/user/po_files/")
     oDlg.GetTextsFromL10N(myPO)
     oDlg.Execute()
   
Σε Python

     dlg = CreateScriptService("Dialog", "GlobalScope", "Standard", "MyDialog")
     myPO = CreateScriptService("L10N", "/home/user/po_files/")
     dlg.GetTextsFromL10N(myPO)
     dlg.Execute()
   
tip

Ανατρέξτε στη σελίδα βοήθειας Υπηρεσία L10N για να μάθετε περισσότερα σχετικά με τον τρόπο χειρισμού των αρχείων PO και POT.


Resize

Μετακινεί την επάνω αριστερή γωνία ενός διαλόγου σε νέες συντεταγμένες ή/και τροποποιεί τις διαστάσεις του. Όλες οι αποστάσεις εκφράζονται σε 1/100 mm. Χωρίς ορίσματα, η μέθοδος επαναφέρει τις αρχικές διαστάσεις. Επιστρέφεται True εάν η αλλαγή μεγέθους ήταν επιτυχής.

Σύνταξη:

svc.Resize(opt Left: num, opt Top: num, opt Width: num, opt Height: num): bool

Παράμετροι:

Left (Αριστερά): η οριζόντια απόσταση από την επάνω αριστερή γωνία

Top (Επάνω): η κατακόρυφη απόσταση από την επάνω αριστερή γωνία

Width (Πλάτος): το πλάτος του ορθογωνίου που περιέχει το παράθυρο διαλόγου

Height (Ύψος): το ύψος του ορθογωνίου που περιέχει το παράθυρο διαλόγου

Τα αρνητικά ή τα ορίσματα που λείπουν παραμένουν αμετάβλητα

Παράδειγμα:

Σε Basic

     oDialog.Resize(1000, 2000, Height := 6000) ' Το πλάτος δεν έχει αλλάξει
   
Σε Python

Με Python:


     oDialog.Resize(1000, 2000, Height = 6000) # Το πλάτος δεν έχει αλλάξει
   

Terminate

Τερματίστε την υπηρεσία Dialog για την τρέχουσα παρουσία. Επιστρέφει True εάν ο τερματισμός ήταν επιτυχής.

Σύνταξη:

svc.Terminate(): bool

Παράδειγμα:

Στα παρακάτω παραδείγματα Basic και Python ανοίγουν οι μη αναγκαστικοί διάλογοι DlgConsole και dlgTrace. Αποθηκεύονται αντίστοιχα στις κοινόχρηστες βιβλιοθήκες ScriptForge και Access2Base. Τα πλήκτρα κλεισίματος διαλόγου είναι απενεργοποιημένα και ο ρητός τερματισμός εκτελείται στο τέλος μιας εκτελούμενης διαδικασίας.

Σε αυτό το παράδειγμα, ένα πλήκτρο στην DlgConsole αντικαθιστά το κλείσιμο παραθύρου με αναστολή:

Σε Basic

     oDlg = CreateScriptService("SFDialogs.Dialog","GlobalScope","ScriptForge","DlgConsole")
     oDlg.Execute(modal:=False)
     Wait 5000
     oDlg.Terminate()
   

Με Python:

Σε Python

     from time import sleep
     dlg = CreateScriptService('SFDialogs.Dialog',"GlobalScope",'Access2Base',"dlgTrace")
     dlg.Execute(modal=False)
     sleep 5
     dlg.Terminate()
   
warning

Όλες οι ρουτίνες ή αναγνωριστικά του ScriptForge στη Basic που έχουν το πρόθεμα χαρακτήρα υπογράμμισης "_" δεσμεύονται για εσωτερική χρήση. Δεν προορίζονται να χρησιμοποιηθούν σε μακροεντολές Basic ή σενάρια Python.


Παρακαλούμε, υποστηρίξτε μας!