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

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

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

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

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

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

Η υπηρεσία 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 όταν το παράθυρο διαλόγου αποθηκεύεται είτε στο Οι μακροεντολές και οι διάλογοι μου είτε στο Μακροεντολές και διάλογοι εφαρμογών.

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

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

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

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

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

• αντικείμενο 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… επιστρέφουν μια συμβολοσειρά URI με αναφορά στο σενάριο που ενεργοποιήθηκε από το συμβάν. Οι ιδιότητες On… μπορούν να οριστούν μέσω προγραμματισμού.
Διαβάστε τις προδιαγραφές του στο scripting frameworkURI.

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

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

Activate

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

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

svc.Activate(): bool

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

Τα παραδείγματα Python και Collabora Office 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

Create a new control of type Button in the current dialog.

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

Create a new control of type CheckBox in the current dialog.

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

Create a new control of type ComboBox in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type CurrencyField in the current dialog.

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" (default) or "FLAT" or "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

Create a new control of type DateField in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type FileControl in the current dialog.

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

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

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

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

CreateFixedLine

Create a new control of type FixedLine in the current dialog.

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

Orientation: "H[orizontal]" or "V[ertical]".

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

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

CreateFixedText

Create a new control of type FixedText in the current dialog.

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

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

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

Align: horizontal alignment, "LEFT" (default) or "CENTER" or "RIGHT"

VerticalAlign: vertical alignment, "TOP" (default) or "MIDDLE" or "BOTTOM"

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

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

CreateFormattedField

Create a new control of type FormattedField in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type GroupBox in the current dialog.

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

Create a new control of type Hyperlink in the current dialog.

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

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

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

Align: horizontal alignment, "LEFT" (default) or "CENTER" or "RIGHT"

VerticalAlign: vertical alignment, "TOP" (default) or "MIDDLE" or "BOTTOM"

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

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

CreateImageControl

Create a new control of type ImageControl in the current dialog.

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

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

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

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

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

CreateListBox

Create a new control of type ListBox in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type NumericField in the current dialog.

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" (default) or "FLAT" or "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

Create a new control of type PatternField in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type ProgressBar in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type RadioButton in the current dialog.

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

Create a new control of type ScrollBar in the current dialog.

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

Orientation: H[orizontal] or V[ertical]

Border: "3D" (default) or "FLAT" or "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

Create a new control of type TableControl in the current dialog.

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

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

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

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

ScrollBars: H[orizontal] or V[ertical] or B[oth] or N[one] (default). Scrollbars appear dynamically when they are needed.

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

CreateTextField

Create a new control of type TextField in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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

Create a new control of type TimeField in the current dialog.

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

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

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

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

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

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

CreateTreeControl

Create a new control of type TreeControl in the current dialog.

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

Border: "3D" (default) or "FLAT" or "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) του Collabora Office.

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.

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 when successful.

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.