Περιεχόμενα
Δείκτης 🔎︎

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

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

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

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

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

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

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

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

Η υπηρεσία 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 Controls | EndExecute Execute | GetTextsFromL10N 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()

## Controls

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

- του καταλόγου με τα στοιχεία ελέγχου που περιέχονται στο παράθυρο διαλόγου

- μια παρουσίας κλάσης DialogControl με βάση το όνομά της

### Σύνταξη:

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)

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

## Execute

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

- 0 : πατήθηκε το πλήκτρο Cancel (Ακύρωση)

- 1 : πατήθηκε το πλήκτρο OK

- Διαφορετικά, ο διάλογος σταμάτησε με μια δήλωση EndExecute() που εκδόθηκε από ένα συμβάν διαλόγου ή ελέγχου

Για παράθυρα διαλόγου που δεν είναι αναγκαστικά, η μέθοδος επιστρέφει πάντα 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. Αυτή η μέθοδος μεταφράζει τις ακόλουθες συμβολοσειρές:

- The title of the dialog.

- The caption of the following control types: Button, CheckBox, FixedLine, FixedText, GroupBox and RadioButton.

- Static strings in ListBoxes and ComboBoxes.

- The tooltip or help text displayed when the mouse hovers over the control.

Η μέθοδος επιστρέφει 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()

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

## Terminate

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

### Σύνταξη:

svc.Terminate(): bool

### Παράδειγμα:

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

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

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

Με Python:

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

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

Σχετικά θέματα

Υπηρεσία SFDialogs.DialogControl

ScriptForge.UI service