An alternative FontRequester [Windows only]

[Zapman]

Otherwise, I've never really understood how to define the position of FontRequester(), it's always vertically centered here.

If you're talking about the original FontRequester, it works well for me when I use the 'ParentID' parameter. It is positionned relatively to the top-left coordinates of the parent window, with a xShift arround 100px and an YShift arround 200px.

For FontRequesterEx, following your judicious remarks, I added the optional parameters XShift = 0, YShift = 0 and *UserChoice.Integer = 0, as well as a comment saying this:
; * If 'ParentWindow' contains a value, the FontRequester window will be centered relative to the parent window.
; Otherwise the window will be centered relatively to the last active window or to the main screen monitor
; if there is no opened windows.
;
; * If defined, 'XShift' and 'YShift' shift the origins or the FontRequesterEx window from its theoretical position.
;
; * If *UserChoice is a non-zero value, it will be considered as a pointer to an integer that will receive
; '1' if the user clicked on 'OK' and '0' if it clicked on 'Cancel'.
; If the user clicked on 'Cancel', the string returned by the procedure will be equal to the 'FontDescription$' entry parameter

The code of the first post has been updated.

[ChrisR]

Thanks for the update zapman
Well, for the position of the window centered in relation to the active window or desktop,
I would have preferred not to have a parent window in parameters but to have the X and Y positions instead (default 0).
If 0 the window is centered and otherwise the position relative to the active window or desktop, clip to the edge of the screen.
But I'm not going to bother you with these little details, I'll do it for my needs.

[Zapman]

Hi ChrisR,
With the actual version, Parent window can be set to #PB_Default, to not be taken in account. I can eventually add the possibility to set it to -2, to transform the xShift and yShift into absolue coordinates. By that way, all possibilities should be explored. Would it be good for you ?

[ChrisR]

Hi zapman,
Yes, I think it would look good like this. With -2, it would then be possible to position FontRequesterEx exactly where you want it, next to a button, at the bottom left of the window,...
However I've never really understood the point of defining a parent window, except creating a dummy window to bypass the default positioning.
GetActiveWindow() seems enough to me: If GetActiveWindow() And X <> #PB_Default : WindowX(GetActiveWindow(), #PB_Window_InnerCoordinate) + X and clip to the monitor, if needed.

But don't do it for me.I have other little details that don't suit me completely, like the return with the Cancel button: *UserChoice.Integer

Code: Select all

Define UserChoice.Integer
UserChoice\i = 1
Debug FontRequesterEx("Segoe UI Semibold,12", #ZFR_FontRequester_Effects, 0, 1, 1, @UserChoice)
If UserChoice\i
  Debug SelectedFontNameEx() + ", " + Str(SelectedFontSizeEx()) + ", " + Str(SelectedFontStyleEx())
EndIf 

Rather than just ProcedureReturn = “”

Code: Select all

If FontRequesterEx("Segoe UI Semibold,12", #ZFR_FontRequester_Effects, 0, 1, 1)
  Debug SelectedFontNameEx() + ", " + Str(SelectedFontSizeEx()) + ", " + Str(SelectedFontStyleEx())
EndIf

[AZJIO]

However I've never really understood the point of defining a parent window, except creating a dummy window to bypass the default positioning.

AutoIt3 has always used the parent window handle, and I couldn't imagine any other option. It was unclear to me how you can create a window without having a parent. The point of such a window is to close the child windows along with the parent window in some cases, but for me the main point was to block access to the parent window until a selection is made in the child window. This is called a modal window. If you do not do this, you can open several windows and forget about them, and then turn on data processing in the main window, while the algorithm, having received no data from previously opened windows, will continue to work without using this data. Therefore, these windows prevent further actions until you close the window by agreeing to the current selection or deselecting the selection.

Specifying the parent window is not responsible for window positioning.

When you lock the parent window, it stops receiving notifications from window elements and the mouse cursor and does not write in the window title that the window is frozen.

[ChrisR]

My bad, you are right about the modal window.

On the other hand, I don't agree with: Specifying the parent window is not responsible for window positioning
Try this code snippet, without the DPIAware flag:

Code: Select all

If OpenWindow(0, 100, 0, 220, 50, "FontRequester", #PB_Window_SystemMenu)
  ButtonGadget(0, 10, 10, 200, 30, "FontRequester Step 0/3")
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0   ; FontRequester
            
            Select Stage
              Case 0
                Font = FontRequester(FontName$, FontSize, 0, 0, FontStyle)
                ResizeWindow(0, 100, 744, #PB_Ignore, #PB_Ignore)           ; y=744 for my 1920*1080 screen to have it at the bottom
              Case 1
                Font = FontRequester(FontName$, FontSize, 0, 0, FontStyle)
                ResizeWindow(0, 100, 0, #PB_Ignore, #PB_Ignore)
              Case 2 
                ;390*496
                DisableWindow(0, #True)
                DummyWindow = OpenWindow(#PB_Any, 100, -54, 0, 0, "", #PB_Window_Invisible|#PB_Window_NoActivate)
                Font = FontRequester(FontName$, FontSize, 0, 0, FontStyle, WindowID(DummyWindow))
                CloseWindow(DummyWindow)
                ResizeWindow(0, 100, 744, #PB_Ignore, #PB_Ignore)           ; y=744 for my 1920*1080 screen to have it at the bottom
                DisableWindow(0, #False)
                SetActiveWindow(0)
              Case 3
                DisableWindow(0, #True)
                DummyWindow = OpenWindow(#PB_Any, 100, 182, 0, 0, "", #PB_Window_Invisible|#PB_Window_NoActivate)
                Font = FontRequester(FontName$, FontSize, 0, 0, FontStyle, WindowID(DummyWindow))
                CloseWindow(DummyWindow)
                ResizeWindow(0, 100, 0, #PB_Ignore, #PB_Ignore)
                DisableWindow(0, #False)
                SetActiveWindow(0)
            EndSelect
            Stage = (Stage+1)%4
            SetGadgetText(0, "FontRequester Step " + Str(Stage) + "/3")
            
            If Font
              FontName$ = SelectedFontName() : FontSize = SelectedFontSize() : FontStyle = SelectedFontStyle()
              Debug FontName$ + ", " + FontSize + ", " + FontStyle
              LoadFont(0, FontName$, FontSize, FontStyle)
              SetGadgetFont(0, FontID(0))
            Else
              FontName$ = "" : FontSize = 0 : FontStyle = 0
              SetGadgetFont(0, #PB_Default)
            EndIf
        EndSelect
        
    EndSelect
  ForEver
EndIf

[Zapman]

So, the right point off view is probably that specifying the parent window can respond to different needs.

I'm not able to share a new version of the code at this moment, but it seems to me, ChrisR, that the fonctions 'ZapmanFontRequester()', 'ZapmanFontName()', 'ZapmanFontSize()' and 'ZapmanFontStyle()' which already exist, should reply to your need. Don't they?

You can also use the 'ZFR_FontDescription$' global variable to get the result.

[AZJIO]

ChrisR
It was a long time ago, I used WindowsXP, as well as various dialog boxes. Therefore, I cannot say for sure now whether the font selection window was positioned near the parent window. I just checked the AutoIt3 color selection window and it was positioned next to the parent window. But I remember for sure that when I specified the parent window for my own window and for the message window, they were never positioned next to the parent, they were always in the center of the screen.

[Zapman]

Hi, ChrisR,

I updated the code. Here is the comment figuring in the full commented version for both procedures FontRequesterEx() and ZapmanFontRequester():
(full commented is available at https://www.editions-humanis.com/downlo ... uester.zip)

; * If ParentWindow is a valid window number, the new window will be centered to it,
; and then shifted by XShiftOrPos and YShiftOrPos.
; * If ParentWindow = #PB_Default and GetActiveWindow() returns a valid window number,
; the new window will be centered to GetActiveWindow() and then shifted by XShiftOrPos and YShiftOrPos.
; * If ParentWindow = #PB_Default and GetActiveWindow() does NOT return a valid window number,
; the new window will be centered to the main screen and then shifted by XShiftOrPos and YShiftOrPos.
; * It ParentWindow = -2, XShiftOrPos and YShiftOrPos will be the absolute coordinates of the new window.
; * If ParentWindow = -3, the new window will be centered to the main screen and then shifted by XShiftOrPos
; and YShiftOrPos, whatever GetActiveWindow() is valid or not.

[ChrisR]

Thank you, looks good on paper.
I'll try it later, I'm running out of time this weekend.

[Zapman]

I'll try it later, I'm running out of time this weekend.

Same for me, I'm visiting Rome

[ChrisR]

Nice city, have a good visit, you have the marathon if you want, I have a friend who is running there tomorrow

[Zapman]

The code has been updated.
The parent window is now disabled until the user click on Cancel or OK, has it is done for the original FontRequester.

[Zapman]

[]

[Zapman]

The code has been updated. There was bugs in the window positionning management.