[Cleverson]

Hello, I installed version 17.01, in Delphi 7, I have a legacy application, the actitlebar doesn’t work and some forms crash.

And it doesn’t pull the onshow event in some forms.

I ran version 15.0 and it worked normally, but it was a little slow.

In the new version it doesn’t work properly, it simply includes a Skinmanager1 and a SkinProvider1.

After many tries I used SkinManager1.Options.DrawNonClientArea = false
and the form onshow worked and it no longer crashed, but now close bordericons appear on all forms

And the actitlebar no longer appears.

Is there a solution to run round in Delphi 7?

I updated all components and skins, for testing, I used Notes Sports and Blue Shadows

[Cleverson]

To improve understanding I put together a small example, see that in the second form the onshow event does not run, which should fill a label

https://github.com/CLEVERpg/skinalpha

[Cleverson]

Its ok with this:

open the sSkinProvider.pas
search this text:
stdMessageHandling: boolean;

move this variable into the TsSkinProvider class, after the “MenusInitialized: boolean;”

save and rebuild the application

thanks

[Author]

Posts