[Lasse]

Something fundamental is wrong in V15.10 indeed. Control invalidate calls do not trigger repainting at all. I need to repaint controls (instantly) instead of invalidate (later).

[Lasse]

The bug seems to be in procedure TsPageControl.CheckUpDown;

I reverted the code to previous version and the ghost buttons are gone.

[Lasse]

If I comment out this line (acGlow.pas) it works in v.15.09:

765: // CheckOverlappedRects;

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

[Lasse]

I will debug the v.15.09 code later when I have time.

[Lasse]

If you take a look at any ChangeScale procedure in Vcl (TControl, TWinControl, etc.), all of them are using MulDiv.

[Lasse]

Yes, 1320 div 96 = 13.

[Lasse]

This happens easily, if the skin is modified because the preview image is not extracted. See: http://www.alphaskins.com/forum/?topic=about-alphaskins-editor

I have fixed this issue by creating the preview image by myself.

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

[Lasse]

I removed that ExcludeClipRect code and seems to work…

procedure TsPageControl.AcPaint(const Message: TWMPaint);
...
        if DropBtn <> nil then
          with DropBtn.BoundsRect do
            ExcludeClipRect(DC, Left, Top, Right, Bottom);

[Lasse]

A tip: https://icomoon.io/app/#/select

I found this web application very useful to create own OTFs from selected or imported icons. So, I don’t need to load huge amount of unused icons for the application.

[Lasse]

Also I noticed in sCommonData.pas unit and function ScaleInt those Value * PPI div 96 should be MulDiv(Value, PPI, 96).

For example 11 * 120 div 96 = 13 but MulDiv(11, 120, 96) = 14.

[Lasse]

Another scaling issue in TsComboBox

Attachments:

You must be logged in to view attached files.

[Lasse]

It is ok now.

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

[Lasse]

But after I edit the skin in AlphaSkins Editor, it drops the preview image. File size seems to drop from 65KB to 56KB, if I just unpack and open the skin and then save it. And I see that the preview image AT134.PNG is not in the directory where I unpack the skin. Works after I added that file by myself.

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

[Lasse]

I installed latest stable version 14.37 and 64-bit works.

[Lasse]

Use your megademo, just add 64-bit platform. That AV and call stack is from it.

[Lasse]

Here is the call stack.

Attachments:

You must be logged in to view attached files.

[Lasse]

Just installed the latest full source v.15.02 and Delphi version is 10.3.3. Windows 10 Build 18363.

Build and run for 64-bit megademo and it gives following AV (see attachment). 32-bit build works.

My own software gives similar AV. 32-bit version is working fine.

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

Attachments:

You must be logged in to view attached files.

[Lasse]

Solution is to add “overflow: hidden;” in the style for body.

[Lasse]

Actually, it works only, if there is a need for a scroll bar. So, there is a same problem what I have.

[Lasse]

Yes, your example code works. I need to figure out what is the difference.

[Author]

Posts