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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Τα παρακάτω παραδείγματα σε 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()
  

Χρησιμοποιήστε τη συμβολοσειρά "GlobalScope" ως το όρισμα container όταν το παράθυρο διαλόγου αποθηκεύεται είτε στο Οι μακροεντολές και οι διάλογοι μου είτε στο Μακροεντολές και διάλογοι εφαρμογών.

The dialog service offers methods that create new controls dynamically in an existing dialog predefined with the Dialog Editor. A dialog is initialized with controls in the Dialog Editor and new controls can be added at run-time before or after the dialog Execute() statement.

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

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

Place: Η θέση του παραθύρου του διαλόγου είναι είτε :

• a Basic Array or Python tuple with 4 elements: (X, Y, width, height)

• αντικείμενο a com.sun.star.awt.Rectangle [X, Y, Width, Height]

Όλα τα στοιχεία εκφράζονται σε Μονάδες AppFont units.

    Sub newDialog()
        Dim oDlg As Object
       oDlg = CreateScriptService("NewDialog", "myDialog1", Array(100,200, 40, 110))
       ' ...
    End Sub
  

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

    def newDialog():
       dlg = CreateScriptService('NewDialog', 'myDialog1', (100,200, 40, 110))
       # ... Επεξεργαστείτε τα στοιχεία ελέγχου και κάντε ό,τι χρειάζεται
  

Όλες οι ιδιότητες και οι μέθοδοι που ισχύουν σε προκαθορισμένους διαλόγους είναι διαθέσιμες για τέτοιους νέους διαλόγους. Συγκεκριμένα, η σειρά μεθόδων CreateXXX() για την προσθήκη νέων στοιχείων ελέγχου διαλόγου.

Ανάκτηση της παρουσίας διαλόγου που ενεργοποίησε ένα συμβάν διαλόγου

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

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

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

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

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

Χειρισμός εξαιρέσεων σε χειριστές συμβάντων

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

    Sub OnMouseButtonPressed(ByRef oEvent As Object)
    On Local Error GoTo Catch
        Dim oDialog As Object
        oDialog = CreateScriptService("DialogEvent", oEvent)
        ' Επεξεργασία του συμβάντος
        Exit Sub
    Catch:
        MsgBox SF_Exception.Description
        SF_Exception.Clear
    End Sub
  

Καλέστε το SF_Exception.Clear, εάν δεν θέλετε να διαδοθεί το σφάλμα μετά το τέλος της εκτέλεσης του διαλόγου.

Στην Python χρησιμοποιήστε εγγενή μπλοκ try/except για χειρισμό εξαιρέσεων όπως φαίνεται παρακάτω:

    def on_mouse_button_pressed(event=None):
        try:
            dlg = CreateScriptService("DialogEvent", event)
            # Επεξεργασία του συμβάντος
        except Exception as e:
            # Το αντικείμενο "bas" είναι μια παρουσία της υπηρεσίας Basic
            bas.MsgBox(str(e))
  

Ιδιότητες

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

On… event properties are URI strings that reference a script triggered for an event. Read its specification in the scripting framework URI specification.

Tip: All On… properties can be set programmatically.
How to display data in a tree control example in LibreOffice Wiki demonstrates such.

Η εκχώρηση συμβάντων μέσω του IDE της Basic και η εκχώρηση συμβάντων μέσω μακροεντολών είναι αμοιβαία αποκλειόμενες.

TabPageContainer controls are not available in Dialog Editor.

Η διαστασιολόγηση ενός διαλόγου γίνεται χρησιμοποιώντας Μονάδες Map AppFont. Ένα πρότυπο διαλόγου ή στοιχείου ελέγχου χρησιμοποιεί επίσης μονάδες AppFont. Ενώ οι προβολές τους χρησιμοποιούν pixel.

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 (Γονικό): Ένα προαιρετικό αντικείμενο που μπορεί να είναι είτε…

• ένα αντικείμενο διαλόγου ScriptForge

• ένα αντικείμενο εγγράφου ScriptForge (Calc, Βάση, ...)

     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
  

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

CloneControl

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

svc.CloneControl(SourceName: str, ControlName: str, Left: num, Top: num): svc

SourceName: Το όνομα του στοιχείου ελέγχου που πρόκειται να αντιγραφεί.

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

Left, Top: Οι συντεταγμένες του νέου στοιχείου ελέγχου εκφράζονται σε Μονάδες Map AppFont.

      Set myButton2 = oDlg.CloneControl("Button1", "Button2", 30, 30)
   

     dlg = dlg.CloneControl('Button1', 'Button2', 30, 30)
   

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

CreateButton

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου Button στο τρέχον παράθυρο διαλόγου.

svc.CreateButton(ControlName: str, Place: any, Toggle: bool = False, Push: str = ""): svc

ControlName: το όνομα του νέου στοιχείου ελέγχου. Δεν πρέπει να υπάρχει ακόμα.

Place: είτε…

• μια πλειάδα της Basic Πίνακας, ή της Python με 4 στοιχεία: (X, Y, πλάτος, ύψος)

• ένα αντικείμενο com.sun.star.awt.Rectangle [X, Y, Πλάτος, Ύψος]

Όλα τα στοιχεία εκφράζονται σε Μονάδες Map AppFont.

Toggle: όταν True δημιουργείται ένα πλήκτρο εναλλαγής. Προεπιλογή = False

Push: "OK", "CANCEL" ή "" (προεπιλογή)

Μια παρουσία της υπηρεσίας SFDialogs.DialogControl, ή Nothing.

     Set myButton = oDlg.CreateButton("Button1", Array(20, 20, 60, 15))
   

     myButton = dlg.CreateButton('Button1', (20, 20, 60, 15))
   

CreateCheckBox

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου CheckBox στο τρέχον παράθυρο διαλόγου.

svc.CreateCheckBox(ControlName: str, Place: any, Multiline: bool = False): svc

MultiLine: Όταν είναι True (προεπιλογή = False), η λεζάντα μπορεί να εμφανίζεται σε περισσότερες από μία γραμμές.

     Set myCheckBox = oDlg.CreateCheckBox("CheckBox1", Array(20, 20, 60, 15), MultiLine := True)
   

     myCheckBox = dlg.CreateCheckBox('CheckBox1', (20, 20, 60, 15), MultiLine = True)
   

CreateComboBox

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου ComboBox στο τρέχον παράθυρο διαλόγου.

svc.CreateComboBox(ControlName: str, Place: any, Border: str = "3D", DropDown: bool = True, LineCount: num = 5): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

DropDown: Όταν είναι True (προεπιλογή), εμφανίζεται ένα αναπτυσσόμενο πλήκτρο

LineCount: Καθορίζει τον μέγιστο αριθμό γραμμών που εμφανίζεται στο αναπτυσσόμενο μενού (προεπιλογή = 5)

     Set myComboBox = oDlg.CreateComboBox("ComboBox1", Array(20, 20, 60, 15), Dropdown := True)
   

     myComboBox = dlg.CreateComboBox('ComboBox1', (20, 20, 60, 15), Dropdown = True)
   

CreateCurrencyField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου CurrencyField στο τρέχον παράθυρο διαλόγου.

svc.CreateCurrencyField(ControlName: str, Place: any, Border ="3D", SpinButton: bool = False, MinValue: num = -1000000, MaxValue: num = +1000000, Increment: num = 1, Accuracy: num = 2): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

SpinButton: όταν είναι True (προεπιλογή = False), υπάρχει ένα πλήκτρο περιστροφής

MinValue: η μικρότερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = -1000000

MaxValue: η μεγαλύτερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = +1000000

Increment: το βήμα όταν πατιέται το πλήκτρο περιστροφής. Προεπιλογή = 1

Accuracy: καθορίζει τη δεκαδική ακρίβεια. Προεπιλογή = 2 δεκαδικά ψηφία

     Set myCurrencyField = oDlg.CreateCurrencyField("CurrencyField1", Array(20, 20, 60, 15), SpinButton := True)
   

     myCurrencyField = dlg.CreateCurrencyField('CurrencyField1', (20, 20, 60, 15), SpinButton = True)
   

CreateDateField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου DateField στο τρέχον παράθυρο διαλόγου.

svc.CreateDateField(ControlName: str, Place: any, Border: str = "3D", DropDown: bool = False, opt MinDate: datetime, opt MaxDate: datetime): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

DropDown: όταν είναι True (προεπιλογή = False), εμφανίζεται ένα αναπτυσσόμενο πλήκτρο

MinDate: η μικρότερη ημερομηνία που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 1900-01-01

MaxDate: η μεγαλύτερη ημερομηνία που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 2200-12-31

     Set myDateField = oDlg.CreateDateField("DateField1", Array(20, 20, 60, 15), Dropdown := True)
   

     myDateField = dlg.CreateDateField('DateField1', (20, 20, 60, 15), Dropdown = True)
   

CreateFileControl

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου FileControl στο τρέχον παράθυρο διαλόγου.

svc.CreateFileControl(ControlName: str, Place: any, Border: str = "3D"): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

     Set myFileControl = oDlg.CreateFileControl("FileControl1", Array(20, 20, 60, 15))
   

     myFileControl = dlg.CreateFileControl('FileControl1', (20, 20, 60, 15))
   

CreateFixedLine

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου FixedLine στο τρέχον παράθυρο διαλόγου.

svc.CreateFixedLine(ControlName: str, Place: any, Orientation: str): svc

Orientation: για οριζόντιο προσανατολισμό χρησιμοποιήστε "H" ή "Horizontal". Για κατακόρυφο προσανατολισμό χρησιμοποιήστε "V" ή "Vertical".

     Set myFixedLine = oDlg.CreateFixedLine("FixedLine1", Array(20, 20, 60, 15), Orientation := "vertical")
   

     myFixedLine = dlg.CreateFixedLine('FixedLine1', (20, 20, 60, 15), Orientation = 'vertical')
   

CreateFixedText

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου FixedText στο τρέχον παράθυρο διαλόγου.

svc.CreateFixedText(ControlName: str, Place: any, Border: str = "3D", MultiLine: bool = False, Align: str = "LEFT", VerticalAlign: str = "TOP"): svc

Border: "NONE" (προεπιλογή), "FLAT", ή "3D"

Multiline: Όταν είναι True (προεπιλογή = False), η λεζάντα μπορεί να εμφανίζεται σε περισσότερες από μία γραμμές

Align: οριζόντια στοίχιση, "LEFT" (προεπιλογή), "CENTER", ή "RIGHT"

Vertical Align: κάθετη στοίχιση, "TOP" (προεπιλογή), "MIDDLE" ή "BOTTOM"

     Set myFixedText = oDlg.CreateFixedText("FixedText1", Array(20, 20, 60, 15), MultiLine := True)
   

     myFixedText = dlg.CreateFixedText('FixedText1', (20, 20, 60, 15), MultiLine = True)
   

CreateFormattedField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου FormattedField στο τρέχον παράθυρο διαλόγου.

svc.CreateFormattedField(ControlName: str, Place: any, Border: str = "3D", SpinButton: bool = False, MinValue: num = -1000000, MaxValue: num = +1000000): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

SpinButton: όταν True (προεπιλογή = False), υπάρχει ένα κουμπί περιστροφής

MinValue: η μικρότερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = -1000000

MaxValue: η μεγαλύτερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = +1000000

     Set myFormattedField = oDlg.CreateFormattedField("FormattedField1", Array(20, 20, 60, 15), SpinButton := True)
   

     myFormattedField = dlg.CreateFormattedField('FormattedField1', (20, 20, 60, 15), SpinButton = True)
   

CreateGroupBox

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου GroupBox στο τρέχον παράθυρο διαλόγου.

svc.CreateGroupBox(ControlName: str, Place: any): svc

     Set myGroupBox = oDlg.CreateGroupBox("GroupBox1", Array(20, 20, 60, 15))
   

     myGroupBox = dlg.CreateGroupBox('GroupBox1', (20, 20, 60, 15))
   

CreateHyperlink

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου Hyperlink στο τρέχον παράθυρο διαλόγου.

svc.CreateHyperlink(ControlName: str, Place: any, Border: str = "NONE", MultiLine: bool = False, Align: str = "LEFT", VerticalAlign: str = "TOP"): svc

Border: "NONE" (προεπιλογή), "FLAT", ή "3D"

Multiline: Όταν είναι True (προεπιλογή = False), η λεζάντα μπορεί να εμφανίζεται σε περισσότερες από μία γραμμές

Align: οριζόντια στοίχιση, "LEFT" (προεπιλογή), "CENTER", ή "RIGHT"

Vertical Align: κάθετη στοίχιση, "TOP" (προεπιλογή), "MIDDLE", ή "BOTTOM"

     Set myHyperlink = oDlg.CreateHyperlink("Hyperlink1", Array(20, 20, 60, 15), MultiLine := True)
   

     myHyperlink = dlg.CreateHyperlink('Hyperlink1', (20, 20, 60, 15), MultiLine = True)
   

CreateImageControl

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου ImageControl στο τρέχον παράθυρο διαλόγου.

svc.CreateImageControl(ControlName: str, Place: any, Border: str = "3D", Scale: str = "FITTOSIZE"): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

Scale: Μία από τις επόμενες τιμές: "FITTOSIZE" (προεπιλογή), "KEEPRATIO" ή "NO"

     Set myImageControl = oDlg.CreateImageControl("ImageControl1", Array(20, 20, 60, 15))
   

       myImageControl = dlg.CreateImageControl('ImageControl1", (20, 20, 60, 15))
   

CreateListBox

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου ListBox στο τρέχον παράθυρο διαλόγου.

svc.CreateListBox(ControlName: str, Place: any, Border: str = "3D", DropDown: bool = True, LineCount: num = 5, MultiSelect: bool = False): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

DropDown: Όταν είναι True (προεπιλογή), εμφανίζεται ένα αναπτυσσόμενο πλήκτρο

LineCount: Καθορίζει τον μέγιστο αριθμό γραμμών που εμφανίζεται στο αναπτυσσόμενο μενού (προεπιλογή = 5)

MultiSelect: Όταν είναι True, μπορεί να επιλεγούν περισσότερες από 1 καταχωρίσεις. Προεπιλογή = False

     Set myListBox = oDlg.CreateListBox("ListBox1", Array(20, 20, 60, 15), Dropdown := True, MultiSelect := True)
   

     myListBox = dlg.CreateListBox('ListBox1', (20, 20, 60, 15), Dropdown = True, MultiSelect = True)
   

CreateNumericField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου NumericField στο τρέχον παράθυρο διαλόγου.

svc.CreateNumericField(ControlName: str, Place: any, Border: str = "3D", SpinButton: bool = False, MinValue: num = -1000000, MaxValue: num = 1000000, Increment: num = 1, Accuracy: num = 2): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

SpinButton: όταν είναι True (προεπιλογή = False), υπάρχει ένα πλήκτρο περιστροφής

MinValue: η μικρότερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = -1000000

MaxValue: η μεγαλύτερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = +1000000

Increment: το βήμα όταν πατιέται το πλήκτρο περιστροφής. Προεπιλογή = 1

Accuracy: καθορίζει τη δεκαδική ακρίβεια. Προεπιλογή = 2 δεκαδικά ψηφία

     Set myNumericField = oDlg.CreateNumericField("NumericField1", Array(20, 20, 60, 15), SpinButton := True)
   

     myNumericField = dlg.CreateNumericField('NumericField1', (20, 20, 60, 15), SpinButton = True)
   

CreatePatternField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου PatternField στο τρέχον παράθυρο διαλόγου.

svc.CreatePatternField(ControlName: str, Place: any, Border: str = "3D", EditMask: str, opt LiteralMax: str): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

EditMask: ένας κωδικός χαρακτήρα που καθορίζει τι μπορεί να εισαγάγει ο χρήστης
Ανατρέξτε στο Pattern_Field στο wiki για περισσότερες πληροφορίες.

LiteralMask: περιέχει τις αρχικές τιμές που εμφανίζονται στο πεδίο μοτίβου

     Set myPatternField = oDlg.CreatePatternField("PatternField1", Array(20, 20, 60, 15), EditMask := "NNLNNLLLLL", LiteralMask := "__.__.2002")
   

     myPatternField = dlg.CreatePatternField('PatternField1', (20, 20, 60, 15), EditMask = 'NNLNNLLLLL', LiteralMask = '__.__.2002')
   

CreateProgressBar

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου ProgressBar στο τρέχον παράθυρο διαλόγου.

svc.CreateProgressBar(ControlName: str, opt Place: any, Border: str = "3D", MinValue: num = 0, MaxValue: num = 100): svc

Border: "3D" (προεπιλογή), "FLAT", ή "NONE"

MinValue: η μικρότερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 0

MaxValue: η μεγαλύτερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 100

     Set myProgressBar = oDlg.CreateProgressBar("ProgressBar1", Array(20, 20, 60, 15), MaxValue := 1000)
   

     myProgressBar = dlg.CreateProgressBar('ProgressBar1', (20, 20, 60, 15), MaxValue = 1000)
   

CreateRadioButton

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου RadioButton στο τρέχον παράθυρο διαλόγου.

svc.CreateRadioButton(ControlName: str, Place: any, MultiLine: bool = False): svc

Multiline: Όταν είναι True (προεπιλογή = False), η λεζάντα μπορεί να εμφανίζεται σε περισσότερες από μία γραμμές

     Set myRadioButton = oDlg.CreateRadioButton("RadioButton1", Array(20, 20, 60, 15), MultiLine := True)
   

     myRadioButton = dlg.CreateRadioButton('RadioButton1', (20, 20, 60, 15), MultiLine = True)
   

CreateScrollBar

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου ScrollBar στο τρέχον παράθυρο διαλόγου.

svc.CreateScrollBar(ControlName: str, Place, Orientation: str, Border: str = "3D", MinValue: num = 0, MaxValue: num = 100): svc

Orientation: για οριζόντιο προσανατολισμό χρησιμοποιήστε "H" ή "Horizontal". Για κατακόρυφο προσανατολισμό χρησιμοποιήστε "V" ή "Vertical".

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

MinValue: η μικρότερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 0

MaxValue: η μεγαλύτερη τιμή που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 100

     Set myScrollBar = oDlg.CreateScrollBar("ScrollBar1", Array(20, 20, 60, 15), MaxValue := 1000)
   

     myScrollBar = dialog.CreateScrollBar('ScrollBar1', (20, 20, 60, 15), MaxValue = 1000)
   

CreateTableControl

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου TableControl στο τρέχον παράθυρο διαλόγου.

svc.CreateTableControl(ControlName: str, Place: any, Border: str = "3D", RowHeaders: bool = True, ColumnHeaders: bool = True, ScrollBars: str = "N", GridLines: bool = False): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

RowHeaders: όταν είναι True (προεπιλογή), εμφανίζονται οι κεφαλίδες σειράς

ColumnHeaders: όταν είναι True (προεπιλογή), εμφανίζονται οι κεφαλίδες στηλών

ScrollBars: οι πιθανές τιμές είναι: "H" ή "Horizontal" (οριζόντιες γραμμές κύλισης), "V" ή "Vertical" (κάθετες γραμμές κύλισης). "B" ή "Both" (και οι δύο γραμμές κύλισης). "N" ή "None" (προεπιλογή) για καμία γραμμή κύλισης. Οι γραμμές κύλισης εμφανίζονται δυναμικά όταν χρειάζονται.

GridLines: όταν είναι True (προεπιλογή = False) ζωγραφίζονται οριζόντιες και κάθετες γραμμές μεταξύ των κελιών του πλέγματος

     Set myTableControl = oDlg.CreateTableControl("TableControl1", Array(20, 20, 60, 15), ScrollBars := "B")
   

     myTableControl = dlg.CreateTableControl('TableControl1', (20, 20, 60, 15), ScrollBars = 'B')
   

CreateTabPageContainer

Creates a new control of type TabPageContainer in the current dialog. Tabs are spread over separate lines inside the dialog when necessary. Multiple TabPageContainer are not supported.

TagePageContainer control creation comes always last in a dialog creation.

svc.CreateTabPageContainer(ControlName: str, Place: any, TabHeaders: str[1..*], Border: str = "3D"): svc

TabHeaders: An array of strings defining each individual label for tabs

Border: "3D" (default), "FLAT" or "NONE"

     Set myTabPageContainer = oDlg.CreateTabPageContainer("someContainer", Array(20, 20, 60, 15), TabHeaders := Array("Modules", "Dialogs", "Libraries"))
   

     myTabPageContainer = dlg.CreateTabPageContainer('theTabs', TabHeaders=('Modules', 'Dialogs', 'Libraries'), place=(20, 20, 60, 15))
   

CreateTextField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου TextField στο τρέχον παράθυρο διαλόγου.

svc.CreateTextField(ControlName: str, Place: any, Border: str = "3D", MultiLine: bool = False, MaximumLength: num = 0, PasswordCharacter: str = ""): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

Multiline: Όταν είναι True (προεπιλογή = False), η λεζάντα μπορεί να εμφανίζεται σε περισσότερες από μία γραμμές

MaximumLength: ο μέγιστος αριθμός χαρακτήρων (προεπιλογή = 0 που σημαίνει απεριόριστος)

PasswordCharacter: ένας μεμονωμένος χαρακτήρας που καθορίζει την ηχώ για ένα πεδίο κειμένου κωδικού πρόσβασης (προεπιλογή = "")

Set myTextField = oDlg.CreateTextField("TextField1", Array(20, 20, 120, 50), MultiLine := True)
   

     myTextField = dlg.CreateTextField('TextField1', (20, 20, 120, 50), MultiLine = True)
   

CreateTimeField

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου TimeField στο τρέχον παράθυρο διαλόγου.

svc.CreateTimeField(ControlName: str, Place: any, Border: str = "3D", MinTime: num = 0, MaxTime: num = 24): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

MinTime: ο μικρότερος χρόνος που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 0

MaxTime: ο μεγαλύτερος χρόνος που μπορεί να εισαχθεί στο στοιχείο ελέγχου. Προεπιλογή = 24 ώρες

     Set myTimeField = oDlg.CreateTimeField("TimeField1", Array(20, 20, 60, 15))
   

     myTimeField = dlog.CreateTimeField('TimeField1', (20, 20, 60, 15))
   

CreateTreeControl

Δημιουργεί ένα νέο στοιχείο ελέγχου τύπου TreeControl στο τρέχον παράθυρο διαλόγου.

svc.CreateTreeControl(ControlName: str, Place: any, Border = "3D"): svc

Border: "3D" (προεπιλογή), "FLAT" ή "NONE"

     Set myTreeControl = oDlg.CreateTreeControl("TreeControl1", Array(20, 20, 60, 15))
   

     myTreeControl = dlg.CreateTreeControl('TreeControl1', (20, 20, 60, 15))
   

EndExecute

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

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

svc.EndExecute(returnvalue: int)

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

      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
   

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

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

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

svc.GetTextsFromL10N(l10n: svc): bool

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

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

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

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

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

ImportControl

Import and duplicate an existing control of any type from one dialog to the actual dialog. The duplicated control is left unchanged. The new control can be renamed and relocated. Events handlers, when present, may be imported too.

svc.ImportControl(SourceDialog: svc, SourceName: str, opt ControlName: str, Page: num = 0, OffsetX: num = 0, OffsetY:num = 0, IncludeOnProperties: bool = False): svc

SourceDialog: an SFDialogs.Dialog class instance.

SourceName: the name of the control to import.

ControlName: the name of the new control. It must not exist yet. Default is SourceName

Page: the page number of the new control. Default = 0

OffsetX, OffsetY: the number of pixels to add to the source control coordinates in "Map AppFont" units. Default = 0, may be negative.

IncludeOnProperties: include the On... event properties. Default = False.

     Set mCtrl = oDlg.ImportControl(srceDlg, "someCtrlName")
   

     dlg.ImportControl(srceDlg, 'aCtrlName', includeOnProperties=true)
   

OrderTabs

Ορισμός του ευρετηρίου πίνακα μιας σειράς στοιχείων ελέγχου. Η ακολουθία των στοιχείων ελέγχου δίνεται ως πίνακας ονομάτων ελέγχου από το πρώτο έως το τελευταίο.

Τα στοιχεία ελέγχου με ευρετήριο >= 1 δεν είναι προσβάσιμα με το κλειδί TAB εάν:
- παραλείπονται από τον δεδομένο κατάλογο
- ο τύπος τους είναι FixedLine, GroupBox, ή ProgressBar
- είναι απενεργοποιημένα

svc.TabsList(TabsList: num, Start: num = 1, Increment: num = 1): bool

TabsList: ένας πίνακας έγκυρων ονομάτων στοιχείων ελέγχου με τη σειρά του πίνακα

Start: το ευρετήριο της καρτέλας που θα αντιστοιχιστεί στο 1ο στοιχείο ελέγχου στον κατάλογο. Προεπιλογή = 1

Increment: η διαφορά μεταξύ 2 διαδοχικών ευρετηρίων καρτελών. Προεπιλογή = 1

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

     oDlg.OrderTabs(Array("myListBox", "myTextField", "myNumericField"), Start := 10)
   

     dlg.OrderTabs(('myListBox', 'myTextField', 'myNumericField'), Start = 10)
   

Resize

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

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

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

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

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

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

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

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

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

SetPageManager

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

Οι διάλογοι μπορεί να έχουν πολλές σελίδες και η τρέχουσα ορατή σελίδα ορίζεται από την ιδιότητα διαλόγου Page. Εάν η ιδιότητα Page παραμείνει αμετάβλητη, η προεπιλεγμένη ορατή σελίδα είναι ίση με 0 (μηδέν), που σημαίνει ότι δεν ορίζεται συγκεκριμένη σελίδα και εμφανίζονται όλα τα ορατά στοιχεία ελέγχου ανεξάρτητα από την τιμή που έχει οριστεί στη δική τους ιδιότητα Page.

Όταν η ιδιότητα Page ενός διαλόγου αλλάζει σε κάποια άλλη τιμή όπως 1, 2, 3 κ.λπ., τότε θα εμφανιστούν μόνο τα στοιχεία ελέγχου των οποίων η ιδιότητα Page αντιστοιχεί στην τρέχουσα σελίδα διαλόγου.

Χρησιμοποιώντας τη μέθοδο SetPageManager μπορείτε να ορίσετε τέσσερις τύπους διαχειριστών σελίδων:

• List box or combo box: σε αυτήν την περίπτωση, κάθε καταχώρηση στο πλαίσιο καταλόγου, ή στο σύνθετο πλαίσιο αντιστοιχεί σε μια σελίδα. Το πρώτο στοιχείο αναφέρεται στη σελίδα 1, το δεύτερο στοιχείο αναφέρεται στη σελίδα 2 και ούτω καθεξής.

• Group of radio buttons: ορίζει μια ομάδα πλήκτρων επιλογής που θα ελέγχουν ποια σελίδα είναι ορατή.

• Sequence of buttons: ορίζει ένα σύνολο πλήκτρων, καθένα από τα οποία αντιστοιχεί σε μια σελίδα διαλόγου. Αυτό μπορεί να χρησιμοποιηθεί για την προσομοίωση μιας διεπαφής με καρτέλες, τοποθετώντας τα πλήκτρα δίπλα-δίπλα στο παράθυρο διαλόγου.

• Previous/Next buttons: ορίζει ποια πλήκτρα στο παράθυρο διαλόγου θα χρησιμοποιηθούν για πλοήγηση στην Προηγούμενη/Επόμενη σελίδα στο παράθυρο διαλόγου.

Είναι δυνατή η ταυτόχρονη χρήση περισσότερων του ενός μηχανισμών διαχείρισης σελίδων.

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

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

svc.SetPageManager(pilotcontrols: str = "", tabcontrols: str = "", wizardcontrols: str = "", opt lastpage: int): bool

pilotcontrols: ένας κατάλογος διαχωρισμένος με κόμματα ονομάτων στοιχείων ελέγχου ListBox, ComboBox, ή RadioButton που χρησιμοποιούνται ως διαχειριστές σελίδων. Για τα στοιχεία ελέγχου RadioButton, καθορίστε το όνομα του πρώτου στοιχείου ελέγχου στην ομάδα που θα χρησιμοποιηθεί.

tabcontrols: ένας κατάλογος ονομάτων πλήκτρων διαχωρισμένος με κόμματα που θα χρησιμοποιηθούν ως διαχειριστές σελίδων. Η σειρά με την οποία καθορίζονται σε αυτό το όρισμα αντιστοιχεί στον αριθμό σελίδας με τον οποίο συσχετίζονται.

wizardcontrols: ένας κατάλογος διαχωρισμένος με κόμματα με τα ονόματα των δύο πλήκτρων που θα χρησιμοποιηθούν ως πλήκτρα Προηγούμενο/Επόμενο.

lastpage: ο αριθμός της τελευταίας διαθέσιμης σελίδας. Συνιστάται να προσδιορίσετε αυτήν την τιμή όταν χρησιμοποιείτε τον διαχειριστή Προηγούμενη/Επόμενη σελίδα.

Θεωρήστε έναν διάλογο με τρεις σελίδες. Το παράθυρο διαλόγου έχει ένα στοιχείο ελέγχου ListBox με το όνομα "aPageList" που θα χρησιμοποιηθεί για τον έλεγχο της ορατής σελίδας. Επιπλέον, υπάρχουν δύο πλήκτρα με το όνομα "btnPrevious" και "btnNext" που θα χρησιμοποιηθούν ως πλήκτρα Previous/Next στο παράθυρο διαλόγου.

    oDlg.SetPageManager(PilotControls := "aPageList", _
                           WizardControls := "btnPrevious,btnNext", _
                           LastPage := 3)
    oDlg.Execute()
  

    dlg.SetPageManager(pilotcontrols="aPageList",
                       wizardcontrols="btnPrevious,btnNext",
                       lastpage=3)
    dlg.Execute()
  

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

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

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