Seite 1 von 1

Standard für Schriften

Verfasst: Sa 18. Mai 2013, 09:59
von Sephan
Wenn ich im Formular mir die Eigenschaften eines Kontrollfeldes anschaue, gibt es ja auch die Möglichkeit unter Schrift das Schriftbild anzupassen. Dazu habe ich zwei Fragen:

Wie kann man es wieder zurück auf "(Standard)" setzten und wo ist dieser Standard definiert? Scheinbar nicht in Formatvorlagen.

Re: Standard für Schriften

Verfasst: Sa 18. Mai 2013, 20:00
von F3K Total
Hallo Sephan
Sephan hat geschrieben:Wie kann man es wieder zurück auf "(Standard)" setzten
Ich konnte keine Standard-Möglichkeit finden, mit diesem Makro kann man z.B. die Beschriftungsfelder zurücksetzen. Dazu
  • das Formular im Entwufsmodus öffnen.
  • Das Makro über Extras/Makros ausführen.
  • Man sieht zunächst keine Änderung.
  • das Formular speichern, schliessen.
  • das Formular wieder öffnen, fertig.

Code: Alles auswählen

SUB Reset_font
   oDoc = thisComponent
   oDrawpage = oDoc.drawpage
   oForm = oDrawpage.forms.getByName("MainForm")
   oformenumeration = oForm.createenumeration
   while oformenumeration.hasmoreelements
   ocontrol = oformenumeration.nextelement
   if ocontrol.supportsservice("com.sun.star.form.component.FixedText") then
        ocontrol.FontName = "" 'hier wird quasi nix eingetragen um den Standard wieder herzustellen.
   endif
   wend
End Sub
Sephan hat geschrieben:und wo ist dieser Standard definiert?
keine Ahnung ob überhaupt.
Viel Erfolg
Gruß R

Re: Standard für Schriften

Verfasst: Sa 18. Mai 2013, 23:02
von Sephan
Damit setzt er nur Beschriftungsfelder zurück, oder? Jedenfalls hat es Textfelder oder Buttons nicht zurückgesetzt.

Re: Standard für Schriften

Verfasst: Sa 18. Mai 2013, 23:03
von F3K Total
F3K Total hat geschrieben:mit diesem Makro kann man z.B. die Beschriftungsfelder zurücksetzen
Genau!

Re: Standard für Schriften

Verfasst: Sa 18. Mai 2013, 23:39
von Sephan
Ist das dieses FixedText?

Re: Standard für Schriften

Verfasst: Sa 18. Mai 2013, 23:44
von F3K Total
Jepp,
wenn du die Abfrage wegläßt, werden alle Kontrollelemente gefunden.

Re: Standard für Schriften

Verfasst: So 19. Mai 2013, 00:03
von Sephan
Ah, und ich dacht schon, ich müsste mich durchs Handbuch wühlen um alle Namen für die Elemente zu finden :)

Wenn ich aber die if Abfrage weglasse und den Inhalt davon drin beschwert er sich:
Eigenschaft oder Methode nicht gefunden: drawpage

Re: Standard für Schriften

Verfasst: So 19. Mai 2013, 00:05
von F3K Total
F3K Total hat geschrieben:
  • Das Makro über Extras/Makros ausführen.
hatte ich geschrieben, oder?

Re: Standard für Schriften

Verfasst: So 19. Mai 2013, 00:34
von Sephan
Äh, frag mich nicht was ich gemacht habe. Ich befürchte es war mehr als dämlich :D

Jedenfalls, es geht. Vielen Dank ;)

Re: Standard für Schriften

Verfasst: So 19. Mai 2013, 00:49
von F3K Total
Sephan hat geschrieben:Ah, und ich dacht schon, ich müsste mich durchs Handbuch wühlen um alle Namen für die Elemente zu finden
Wäre nicht nötig, ich habe das mit Xray herausgefunden. Kann ja sein, dass eben nicht alle geändert werden sollen.
Gruß R