Windev with 4K Monitors

Hi,

sometimes users of my application telling me that the windows of my application are damaged if they choose >125 % zoom in the windows settings of the 4K Monitors. I use windev 22.

I am not sure which settings I should do to avoid this.

I use "Enlarge the window and controls" and "Multiplatform / Independent of dpi" in the windows settings.

Any hints ?

regards Michael

Hi Michael,

I'm using the ..Zoom property on the MDI-parent. User is offered a spin control on the parent and thus is able to increase / decrease the magnification of the parent window - which magnifies all shown MDI childs as well. If you're using an SDI setup then things will maybe get a bit more complex. You'd have to apply the zoom value to each window after opening it.

Kind regards,
Guenter Predl
office@windev.at



Edited 1 time(s). Last edit at 06/15/2021 10:13AM by gpredl.

Hi Guenter,

interesting approach ..

And which settings do you use in the window template ? (See my settings)

regards Michael

Hi, same as you do: "enlarge ..."

Kind regards,
Guenter Predl
office@windev.at

I'm using the ..zoom property and i'm using one event defined at project level to do several things when one windows opens.
With the event i don't need to replicate anything and even if someone forgets to use the templates or for some reason don't need to use it not a problem because the code runs anyway.

Regards

Paulo Oliveira

HI Paulo,

interesting. Could you plz show us how you define the event ? Work this also in windev22 ?

regards Michael

It works in older versions of WINDEV. We use it since windev9 at least.

[doc.windev.com]

Just be carefull, it runs even with the INFO/ERROR windows

In the init code of the project just use something like this (copy&paste of some code of my app probably with errors):
G_ZOOM is int
Event("rotina_inicio_janela","*.",WM_CREATE)
Event("rotina_close_janela","*.",WM_CLOSE)

PROCEDURE rotina_inicio_janela()

IF MyWindow..Name IN ("Gaugewin7","WinDevGrapheAutoTable") THEN
RETURN
END

MyWindow..Title=G_CAB
//===============================================================================================================================

IF ParentObject(MyWindow)<>"" _AND_ {ParentObject(MyWindow), indWindow}..Zoom<>G_ZOOM _AND_ G_USER<>"" THEN
MyWindow..Zoom = {ParentObject(MyWindow), indWindow}..Zoom
ELSE
MyWindow..Zoom = G_ZOOM=0 ? 100 ELSE G_ZOOM
END



PROCEDURE rotina_close_janela()

// store the ZOOM select by the user
IF G_ZOOM<>MyWindow..Zoom _AND_ G_USER<>"" THEN
G_ZOOM = MyWindow..Zoom
JanelaPai is string = ParentObject(MyWindow)
WHILE JanelaPai<>""//Replica o zoom para todas as janelas pai
{JanelaPai, indWindow}..Zoom = G_ZOOM
JanelaPai = ParentObject(JanelaPai)
END
end

Regards

Paulo Oliveira

Hi Paulo,

many thx.

regards Michael