[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.

?????

[Support]

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.

[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.

[Support]

Thank you for the demo, this issue will be solved in the v13.02

[Author]

Posts