[Lasse]

I think you can fix this in acDials.pas by scaling the result:

function TacDialogWnd.FixedFrame: integer;
begin
  Result := ScaleInt(ac_GetSysMetrics(SM_CXFIXEDFRAME, GetWndPPI(CtrlHandle)));
end;

[Lasse]

I assume there isn’t much updates as long as the illegal war in Ukraine lasts. Don’t hold your breath while you wait. I just hope the developer survives…

• This reply was modified 3 years, 7 months ago by Lasse.

[Lasse]

Just build debug executable. That sampling profiler will work perfectly for debug executable. Delphi version does not matter.

[Lasse]

Have you used a profiler to find out what is actually causing it?

Here is one for free: https://www.delphitools.info/samplingprofiler/

[Lasse]

I have made a lot of optimizations for AlphaSkins code and it is always possible to optimize more.

I recommend using profiling tools for your project. Here is one for free: https://www.delphitools.info/samplingprofiler/

[Lasse]

I played around a few minutes. It is not hard to get it done. Just use TRANSPARENT SkinSection and TabSkin. Underline needs a little fix to TsPageControl.DrawSkinTab. And of course you can adjust the position of the text there as well…

Since there is a war in Ukraine, I would not expect official answers soon.

• This reply was modified 3 years, 9 months ago by Lasse.

Attachments:

You must be logged in to view attached files.

[Lasse]

Reinstalling Delphi 11.1 is fast and easy, if you answer the first question NO when it asks about cleaning registry. I did it on a work machine today and it takes just a few minutes.

I assume we can wait for official answers until the war is over.

[Lasse]

Strictly speaking, the problem is Delphi 11.1 patch 1.

[Lasse]

Yes, you are absolutely right. I installed 11.1 and everything still works. This is a patch 1 issue. I did try to uninstall the patch before but it didn’t help.

[Lasse]

This is a Delphi 11.1 problem. I installed Delphi 11 and there are no problems.

[Lasse]

I can confirm this is a Delphi 11.1 problem. I installed Delphi 11 and there are no problems.

[Lasse]

I am on the same boat (64-bit AVs). I had to make a few changes to AlphaSkins but I am still wondering why this happens now. Is it Delphi 11.1 causing issues?

My changes for AlphaSkins are:

acgpUtils.pas:
748:gpaPColor := Pointer(PAnsiChar{Integer}(bmData.Scan0) + Y * bmData.Stride);

acShellCtrls.pas:
4344: // InitSystemImageList;

sGraphUtils.pas:
7506: with PRGBQuad(PAnsiChar{Integer}(srcLine) + Pixel)^ do begin

But after that I have issues with other 3rd party components and it is a huge swamp… I think I will install Delphi 11 and test if 11.1 update is causing these issues.

[Lasse]

Have you build Delphi packages? There is “Delphi Compiler > Output – C/C++ > C/C++ Output file generation” -option. Is it set so that it will build C++ objects?

[Lasse]

Not sure, if this case but there is a fix in patch 1…

RSP-35040 64bit packets in C++ containing Delphi code do not run

RAD Studio 11.1 Alexandria Patch 1 Available

[Lasse]

I tried to repeat this but I can’t anymore. It might have been an issue with my own control which I have fixed. But I will follow the situation, if it comes up again…

[Lasse]

I can try to find time to create a demo. Hard to find time and energy nowadays.

Basically this happens when the page control is created dynamically. But I will try to repeat it in simple demo.

[Lasse]

For example Panel.Width := Panel.Width + 1; solves the issue. It doesn’t change the width – the panel is aligned to client and contains page control. But obviously it sends a message forward that does the trick.

[Lasse]

Fixed this now like this… probably not the right way but it works.

Attachments:

You must be logged in to view attached files.

[Lasse]

Here is the reason…

Attachments:

You must be logged in to view attached files.

[Lasse]

AlphaSkins v.16.17 works perfectly. Great.

• This reply was modified 4 years, 5 months ago by Lasse.

[Author]

Posts