Test mit Effekt:
- Fontrequester aufrufen
- NUR Schriftschnitt von Standard auf Fett wechseln
- OK
- "Fett" wird nicht erfasst
Test ohne Effekt:
- Gleichzeitig Schriftart wechseln
- "Fett" wird erfasst
Code: Alles auswählen
; Beispielcode aus Hilfe
FontName$ = "Bookman Old Style" ; Anfangs-Zeichensatz festlegen (Kann auch ein leer sein)
Fontsize = 12 ; Anfangs-Größe festlegen (kann auch Null sein)
Result = FontRequester(FontName$, Fontsize, #PB_FontRequester_Effects)
If Result
Message$ = "Sie haben folgenden Zeichensatz ausgewählt:" + #LF$
Message$ + "Name: " + SelectedFontName() + #LF$
Message$ + "Größe: " + Str(SelectedFontSize()) + #LF$
Message$ + "Farbe: " + Str(SelectedFontColor()) + #LF$
If SelectedFontStyle() & #PB_Font_Bold
Message$ + "Fett" + #LF$
EndIf
If SelectedFontStyle() & #PB_Font_StrikeOut
Message$ + "Durchgestrichen" + #LF$
EndIf
If SelectedFontStyle() & #PB_Font_Underline
Message$ + "Unterstrichen" + #LF$
EndIf
Else
Message$ = "Der Requester wurde abgebrochen."
EndIf
MessageRequester("FontRequester", Message$, #PB_MessageRequester_Ok) --> Text lässt sich mit SendMessage_(GadgetID(i_Gadget), #EM_SETCHARFORMAT, #SCF_SELECTION, @format) problemlos in dieser Schriftart auf Fett formatieren.
--> Der Fontrequester zeigt die Möglichkeit mit Vorschau an
--> Word etc. gestatten ebenfalls die Formatierung