Change CalendarGadget font

[Randy Walker]

BIG Thanks to RSBasic Moderator for his/her posts here I was able to figure out how to enlarge the calenderGadget so that I can actually read it without the WinKey + [+] hotkey. Those posts can be found here:
viewtopic.php?p=509399&hilit=change+fon ... et#p509399
And here is what I came up with:

Code: Select all

EnableExplicit

LoadFont(1, "Segoe UI", 25)

If OpenWindow(0, 0, 0, 500, 450, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CalendarGadget(1, 5, 5, 490, 440)
  SetWindowTheme_(GadgetID(1), @"", @"")
  
  SetGadgetFont(1, FontID(1))
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

with a subject line above that makes it easy to find

[BarryG]

Good tip! Thanks.

[minimy]

Hey! i can lost my glasses now
Really good tip, thanks for share!