Standard für Schriften

[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.

[F3K Total]

Hallo Sephan

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

und wo ist dieser Standard definiert?

keine Ahnung ob überhaupt.
Viel Erfolg
Gruß R

[Sephan]

Damit setzt er nur Beschriftungsfelder zurück, oder? Jedenfalls hat es Textfelder oder Buttons nicht zurückgesetzt.

[F3K Total]

mit diesem Makro kann man z.B. die Beschriftungsfelder zurücksetzen

Genau!

[Sephan]

Ist das dieses FixedText?

[F3K Total]

Jepp,
wenn du die Abfrage wegläßt, werden alle Kontrollelemente gefunden.

[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

[F3K Total]

• Das Makro über Extras/Makros ausführen.

hatte ich geschrieben, oder?

[Sephan]

Äh, frag mich nicht was ich gemacht habe. Ich befürchte es war mehr als dämlich

Jedenfalls, es geht. Vielen Dank

[F3K Total]

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