Leichtes erstellen und speichern von ausfüllbaren Formularen

[F3K Total]

Gehts auch mit der aktuellen LibreOffice Version 4.0.3.3?

Ja!

• LibreOffice 4.0.3.3, Windows 7, Java 7, Microsoft Visual C++ 2010
• LibreOffice 4.0.3.3, Linux Mint, Java 7

Mir ist noch aufgefallen, das es im Datumsfeld, Reiter Daten, auch noch den Eintrag "Eingabe erforderlich" gab, der mußte auch weg.

Gruß R

[Sephan]

Wieso musste der Eintrag weg? Ich möchte doch, erzwingen, dass die User das Datumsfeld ausfüllen, genau wie ca. die Hälfte des Formulars. Wenn ein Feld vergessen wird auszufüllen wäre das eher schlecht. Im Anhang mal die aktuelle Version. Nicht erschrecken, das Formular wird nach einer Weile automatisch geöffnet, wenn man die Datei öffnet.

[F3K Total]

Ach so,
jetzt habe ich es verstanden, mit zwei zusätzlich Zeilen ist das Problem behoben:

Code: Alles auswählen

Sub save_and_new_row(event)
    on error goto errorhandler
    oform = event.source.model.parent
    oform.insertrow
    oform.movetoinsertrow
    errorhandler:
End Sub

Gruß R

[Sephan]

Wow, wie lange arbeitest du jetzt schon mit Base? Scheinst dich echt gut mit auszukennen. Ich persönlich programmiere ja immer mal wieder was und dachte ich kenn mich inzwischen recht gut aus, aber die Skriptsprache von LibreOffice erscheint mir ziemlich umständlich. Man braucht für alles mögliche externe Funktionen. Einfach nur einen Wert in ein Feld zu schreiben bereitet mir schon Schwierigkeiten.

[Sephan]

Gibt es eine Möglichkeit den Inhalt, also das Formular und nicht das Fenster, automatisch zu zentrieren? Das Formular mag weder in einen Rahmen noch in eine Tabelle.

[F3K Total]

Moin,

Gibt es eine Möglichkeit den Inhalt, also das Formular und nicht das Fenster, automatisch zu zentrieren?

ich habe keine Ahnung was Du meinst, du legst die Lage der Kontrollelemente selbst fest.
Was man tun kann, ist die Ansichtseigenschaften zu ändern, hier ein Beispiel um den Skalierungsfaktor auf 60% einzustellen:

Code: Alles auswählen

Sub S_ViewSettings
oviewsettings = thiscomponent.currentcontroller.Viewsettings
oviewsettings.ZoomValue = 60
end sub

Und hier ein Xray-Ergebnis der .Viewsettings, ganz unten findest du z.B .ZoomValue

Code: Alles auswählen

HelpURL                   string                   "hid:SW_HID_EDIT_WIN"   
HorizontalRulerMetric     long                                         2   
ImplementationId          []byte                                          (get), read-only 
ImplementationName        string                       "SwXViewSettings"  (get), read-only 
IsRasterVisible           boolean                                   True   
IsSnapToRaster            boolean                                   True   
IsVertRulerRightAligned   boolean                                  False   
PreventHelpTips           boolean                                  False   
PropertySetInfo           com.sun.star.beans.XPropertySetInfo             (get?), read-only 
RasterResolutionX         long                                      1000   
RasterResolutionY         long                                      1000   
RasterSubdivisionX        long                                         5   
RasterSubdivisionY        long                                         5   
ShowAnnotations           boolean                                   True   
ShowBreaks                boolean                                   True   
ShowDrawings              boolean                                   True   
ShowFieldCommands         boolean                                  False   
ShowFootnoteBackground    boolean                                   True   
ShowGraphics              boolean                                   True   
ShowHiddenCharacters      boolean                                  False   
ShowHiddenParagraphs      boolean                                   True   
ShowHiddenText            boolean                                  False   
ShowHoriRuler             boolean                                   True   
ShowHoriScrollBar         boolean                                   True   
ShowIndexMarkBackground   boolean                                   True   
ShowNonprintingCharacters boolean                                  False   
ShowOnlineLayout          boolean                                   True  may be void 
ShowParaBreaks            boolean                                   True   
ShowProtectedSpaces       boolean                                   True   
ShowRulers                boolean                                   True   
ShowSoftHyphens           boolean                                   True   
ShowSpaces                boolean                                   True   
ShowTableBoundaries       boolean                                  False   
ShowTables                boolean                                   True   
ShowTabstops              boolean                                   True   
ShowTextBoundaries        boolean                                  False   
ShowTextFieldBackground   boolean                                   True   
ShowVertRuler             boolean                                   True   
ShowVertScrollBar         boolean                                   True   
SmoothScrolling           boolean                                  False   
SolidMarkHandles          boolean                                  False   
SupportedServiceNames     []string                                        (get), read-only 
Types                     []type                                          (get), read-only 
VerticalRulerMetric       long                                         2   
ZoomType                  short                                        3   
ZoomValue                 short                                      100   

Gruß R

[Sephan]

Ich möchte, egal mit welcher Breite das Fenster des Formulars dargestellt wird, dass das Formular immer mittig ist. Mir scheint, man kann nur feste Positionen für die Elemente vergeben.

Wie kommst du jetzt auf einen Skalierungsfaktor?

[F3K Total]

Wie kommst du jetzt auf einen Skalierungsfaktor?

Das ist ein Beispiel dafür, dass man die Ansichtseigenschaften per Makro ändern kann, die Bezeichnungen der Eigenschaften habe ich Dir beigelegt und XRAY zum selbstforschen.

Mir scheint, man kann nur feste Positionen für die Elemente vergeben.

Das scheint mir auch so, ich kann keine Eigenschaft ".CenterFormasSephandesires" finden, vielleicht gelingt es Dir?
Gruß R

[Sephan]

Ansonsten müsste man mit einem Makro die Fenstergröße ausmessen und anhand der Daten das Formular mittig positionieren. Ginge sowas?

[F3K Total]

Jo, das ginge, ist allerdings nicht einfach, schon beim Zoomen müßte die Position angepaßt werden.
Nach meiner Einschätzung benötigst Du zunächst einen Listener, der das Zoomen detektiert.
Dann müßtest du die gewünschte Position der Formularelemente anhand der Bildschirmwerte (Twipsperpixel, usw.) in 1/1000 mm errechnen.
Erst danach könnten die Formularelemente entsprechend verschoben werden.

Gruß R