wähle italic und wird nicht übernommen.
Auch zwei Para´s übernimmt er nicht!
Code: Alles auswählen
; ----------------------
; FONT ÄNDERN über REQUESTER
; ----------------------
Global Hwnd
Global Rt_Btn_Fontrequeter
Global Rt_Gadget_FontText
Global Rt_Req_Font_Name$ = "Arial"
Global Rt_Req_Font_Size = 10
Global Rt_Req_Font_Color = $0045FF
Global Rt_Req_Back_Color = $FFFFFF
Global Rt_DrawingFont_Requester = LoadFont(#PB_Any, Rt_Req_Font_Name$, Rt_Req_Font_Size)
Procedure Rt_Requester_Font_Wahl()
Protected Rt_Req_Font_Result
; ----------------------------------------
Rt_Req_Font_Result = FontRequester(Rt_Req_Font_Name$, Rt_Req_Font_Size, #PB_FontRequester_Effects, Rt_Req_Font_Color)
; ----------------------------------------
If Rt_Req_Font_Result
; ----------------------------------------
If IsFont(Rt_DrawingFont_Requester) : FreeFont(Rt_DrawingFont_Requester): EndIf
; ----------------------------------------
Rt_Req_Font_Name$ = SelectedFontName()
Rt_Req_Font_Size = SelectedFontSize()
Rt_Req_Font_Color = SelectedFontColor()
; ----------------------------------------
Rt_DrawingFont_Requester = LoadFont(#PB_Any, Rt_Req_Font_Name$, Rt_Req_Font_Size,
SelectedFontStyle() & #PB_Font_Bold|
SelectedFontStyle() & #PB_Font_Italic|
SelectedFontStyle() & #PB_Font_Underline|
SelectedFontStyle() & #PB_Font_StrikeOut|
#PB_Font_HighQuality )
; ----------------------------------------
SetGadgetFont(Rt_Gadget_FontText,FontID(Rt_DrawingFont_Requester))
SetGadgetColor(Rt_Gadget_FontText, #PB_Gadget_FrontColor, Rt_Req_Font_Color)
SetGadgetColor(Rt_Gadget_FontText, #PB_Gadget_BackColor, Rt_Req_Back_Color)
EndIf
; ----------------------------------------
EndProcedure
;{ Window
Hwnd = OpenWindow(#PB_Any, 0, 0, 300, 200, "FONT ÄNDERN über REQUESTER", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
Rt_Btn_Fontrequeter = ButtonGadget(#PB_Any, 10,150, 100, 20, "Font ändern")
Rt_Gadget_FontText = TextGadget(#PB_Any, 10,10, 280, 140, "Beispieltext")
SetGadgetFont(Rt_Gadget_FontText, FontID(Rt_DrawingFont_Requester))
;}
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
;{ GADGET
Select EventGadget()
Case Rt_Btn_Fontrequeter
Rt_Requester_Font_Wahl()
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow