High DPI problems

[JD]

Hi there everyone,

I have an application that was designed in 96 DPI i.e 100%. Everything has been going fine until one of the users bought a new Windows 10 computer and set the display to 150% (144 DPI). Now my application looks mangled.

Can anyone tell me how I can make my application High DPI aware. I've read http://wiki.lazarus.freepascal.org/High_DPI but I'm yet to see any code that can help me.

Thanks,

JD

[zeljko]

Enable HiDPI in settings ( or manually in your .lpr file Application.Scaled := True)

[balazsszekely]

You need Lazarus trunk for that. To test the High DPI feature create a secondary install with FPCDeluxe, it won't interfere with your primary install.

[JD]

Enable HiDPI in settings ( or manually in your .lpr file Application.Scaled := True)

I had already set some DPI setting in Project -> Project Options -> Application (see screenshot). The project's LPR file is as shown below:

Code: Pascal  [Select][+][-]

1. begin
2.   // Set French as the default language
3.   TranslateLCL;
4.   HighDPI(96);      // High DPI for all forms at once
5.   RequireDerivedFormResource := True;
6.   Application.Initialize;
7.   Application.CreateForm(TfrmMain, frmMain);
8.   Application.Run;
9. end;
10.  

I added Application.Scaled to it and the debugger says Error: identifier idents no member "Scaled".

P.S. I got the HighDPI some years ago and 96 was the default setting and I just kept it because it seemed to work until now.

JD

[lainz]

Can anyone tell me how I can make my application High DPI aware. I've read http://wiki.lazarus.freepascal.org/High_DPI but I'm yet to see any code that can help me.

The mantainer of the High DPI features removed all the code from the Wiki.

If you're in 1.6.4 do this OnCreate event:

Code: Pascal  [Select][+][-]

1. Self.AutoAdjustLayout(lapAutoAdjustForDPI, Self.DesignTimeDPI, Screen.PixelsPerInch, Self.Width, ScaleX(Self.Width, Self.DesignTimeDPI));

In 1.7:

Code: Pascal  [Select][+][-]

1. Self.AutoAdjustLayout(lapAutoAdjustForDPI, 96, Screen.PixelsPerInch, Self.Width, ScaleX(Self.Width, 96), False);
2.  

In Project Options enable DPI awareness options.

[JD]

You need Lazarus trunk for that. To test the High DPI feature create a secondary install with FPCDeluxe, it won't interfere with your primary install.

I was hoping to avoid that because of portabilty of some components I've used for the project. I mostly use fpcupdeluxe as a Sandbox for testing mORMot. I guess I'll have to give it a shot on production code. 

[JD]

@lainz

I can do that too in Lazarus 1.6.2

I'll put that in the code and test on a high DPI screen tomorrow.

Thanks,

JD

[JD]

Looks like I spoke too soon. It is not available in Lazarus 1.6.2/FPC 3.0

I cannot move the project completely to Lazarus Lazarus 1.6.4/FPC 3.0.2 yet because I'm still trying to resolve the {$codepage UTF8} issues.

Is there any other way I can incorporate high DPI into Lazarus 1.6.2/FPC 3.0?

Thanks,

JD

[lainz]

Looks like I spoke too soon. It is not available in Lazarus 1.6.2/FPC 3.0

I cannot move the project completely to Lazarus Lazarus 1.6.4/FPC 3.0.2 yet because I'm still trying to resolve the {$codepage UTF8} issues.

Is there any other way I can incorporate high DPI into Lazarus 1.6.2/FPC 3.0?

Thanks,

JD

What exactly is not available?

AutoAdjustLayout was implemented a lot of time ago, even before 1.6.

You're still designing the form at 96 dpi?

And here is another code for HighDPI:
https://github.com/bgrabitmap/lazpaint/blob/master/lazpaint/uscaledpi.pas

[JuhaManninen]

Looks like I spoke too soon. It is not available in Lazarus 1.6.2/FPC 3.0
I cannot move the project completely to Lazarus Lazarus 1.6.4/FPC 3.0.2 yet because I'm still trying to resolve the {$codepage UTF8} issues.

Nonsense! I have explained to you in another thread that the improved unicode support happened already in Lazarus 1.6.0.
Lazarus 1.6.4 is perfectly compatible with Lazarus 1.6.2 unicode-wise.
Did you even read my post in the other thread?

Is there any other way I can incorporate high DPI into Lazarus 1.6.2/FPC 3.0?

No. Use trunk for improved DPI.

[lainz]

Is there any other way I can incorporate high DPI into Lazarus 1.6.2/FPC 3.0?
No. Use trunk for improved DPI.

HighDPI was working for all of us in 1.6 with user submitted code to the wiki, and is still working. But ondrej deleted all these codes from the wiki.

Of course in trunk works better, but that doesn't means that's unusable on 1.6

His problem is not clear, he seems to don't understand how to debug an high dpi application.

[JuhaManninen]

HighDPI was working for all of us in 1.6 with user submitted code to the wiki, and is still working. But ondrej deleted all these codes from the wiki.

The HighDPI support is revamped and improved substantially. Anybody who has problems with HighDPI should use trunk.
It makes no sense to add new code with the old workarounds any more.
This fact should be emphasized for JD as well.

Lazarus 1.8 may be forked already next month (April). After that the fixes_1_8 branch can be used instead of trunk.

JD keeps telling that Lazarus 1.6.4 broke the unicode support. I don't think so. There is something funny going on in his code.

[JD]

JD keeps telling that Lazarus 1.6.4 broke the unicode support. I don't think so. There is something funny going on in his code.

I never said that. Besides in that thread I remember saying that I'll keep both 1.6.2 and 1.6.4 until I can find out why the UTF 8 string was not being properly displayed. Meaning I take the responsibility for correcting whatever I did wrong. I never said the problem was with Lazarus 1.6.4.

Finally, I asked 2 different questions relating to 2 different projects so please don't mix things.

[JD]

His problem is not clear, he seems to don't understand how to debug an high dpi application.

Let me reiterate. An application developed in 96 DPI i.e 100% does not look good in 150% (144 DPI) even though HighDPI is in the main application file as shown below

Code: Pascal  [Select][+][-]

1.     begin
2.       // Set French as the default language
3.       TranslateLCL;
4.       HighDPI(96);      // High DPI for all forms at once
5.       RequireDerivedFormResource := True;
6.       Application.Initialize;
7.       Application.CreateForm(TfrmMain, frmMain);
8.       Application.Run;
9.     end;
10.  

I've already started to migrate this particular project to 1.6.4 so that I can use the new feature described earlier.

[jc99]

As I understood the HighDPI-procedure it steps trough all already created Forms,
So you need to call it AFTER the forms are created:

Code: Pascal  [Select][+][-]

1. begin
2.   // Set French as the default language
3.       TranslateLCL;
4.       RequireDerivedFormResource := True;
5.       Application.Initialize;
6.       Application.CreateForm(TfrmMain, frmMain);
7.       HighDPI(96);      // High DPI for all forms at once <---- New place
8.       Application.Run;
9. end.
10.