[bswift]

'Support' wrote:

Hello

Can you give me a Dfm-file with this form please?

I will make some experiments, maybe I'll be able to repeat the problem.

OK….here is an example of how I load my skin at startup and then change the skin with a button. Notice how the alpha checklistbox and listbox display the items. At startup the alpha components show the last items before the column break below the frame and the last showing column inside the right frame. After loading a new skin with the button all shows normal. I could not get the columns to break like the image in my first post.

[bswift]

'bswift' wrote:

Hello….I have a TsCheckListbox that displays a 1500 item list. I have it set to 5 columns and shows fine most of the time. However, on occasion it shows as a single column with the horizontal scrollbar. For the life of me I cannot figure out what the heck is going on. I cannot reproduce on a consistent basis. Anyone else have a similar situation?

OK….this is the code I use to initialize the skins.

Code:

ConfigFile:=TIniFile.Create(GetSpecialFolder(rtAppData)+'Song Sheet 5 UkuleleSettings.ini');
aPath:=GetSpecialFolder(rtAppData)+'Song Sheet 5 UkuleleSkins';
sSkinManager1.SkinDirectory:=aPath;
sSkinManager1.Active:=true;
aSkin:=ReadStr2('Skins','Name');
with sSkinManager1 do begin
if (aSkin='') or (aSkin='0') then begin
aSkin:='Windows 10';
SkinName:=aSkin;
frmMain.SaveStr('Skins','Name',aSkin);
end
else
SkinName:= aSkin;
end;

If the user changes the skin the sCheckListbox and a sListbox display properly. But if they close and reopen the program they display as a single column.

?????

[bswift]

'Support' wrote:

Hello!

I'm trying to make a test-application with described problem.

Your code placed into the OnCreate event of the form and works..

Maybe, you can make such test-application where I can see the problem?

OK…this is what I had to do:

Empty all internal skins…Set sSkinmanager active to false. New code:

Code:

aPath:=GetSpecialFolder(rtAppData)+'MyAppSkins';
sSkinManager1.SkinDirectory:=aPath;
sSkinManager1.Active:=true;<--------Works perfect now!

Does this make sense or am I missing something.

I do love these components!!!

[bswift]

'bswift' wrote:

Yes….it is active. Set to Windows 10.

Sorry it took so long to respond….

After some testing I have discovered that I may have been using a version of the Windows 10 skin compiled with older version of Alpha. After downloading and installing version 12.19 it is fixed. Thanks for your great work!

[bswift]

'Support' wrote:

Hello

AlphaSkin is not activated there?

Yes….it is active. Set to Windows 10.

[bswift]

Yes!! That has solved the problem. Went from 3758ms to 172ms. Thanks!!! Great Stuff.

[bswift]

I am so sorry I didn't get back to you before this. It had nothing to do with Alpha. After a lot of testing it turned up being a problem with the computer itself. Again….sorry for not correcting this mistake. I couldn't be more happy with your product.

Bruce

[bswift]

Thanks so much. I await your reply.

[bswift]

I have tried other skins. The comboboxes do not highlight like the comboboxes in the program.

[bswift]

'Support' wrote:

This issue will be solved in the v12.04 today or tomorrow.

Great!! Thanks so much.

[bswift]

'Support' wrote:

Hello

This issue will be solved in the nearest release.

Hello,

Can you give me an idea of when this issue will be implemented. I want to use this dialog in my new release as it looks much better than the one I am using.

Thanks

[bswift]

Serge,

I have discovered that the problem is not with your components. I built a sample program and could not recreate the problem. Will investigate further.

[Author]

Posts