Perfromance Sluggish

I have a project that I've been posting about over the last few days or so that is using a majority of the CJ controls. I've noticed the general performance, used with the skin control, declines greatly.

Granted, I would say I have a lot of controls on the form, and there are multiple commandbars,panes, splitters, etc... but that doesn't seem to affect it when the Skinning is turned off -so maybe that explains it and thats fine. I don't really notice any performance issues on a less complex form. However, I am having difficulties 'managing' the sluggishness.

My idea is to create a screen-cover during skin change (much like window blinds when it blurs out the background and displays a logo in the center of the screen).

The problem I face is that the Skin Framework control doesn't have any events to fire off and let me know when the skin change is done and performance is back to normal. Sometimes it How do you get around this?

It almost seems like all the skin code fires, then continues on with the program long before the responsiveness is back.

Hi,

I have uploaded a sample of what is occuring. This is a 73mb AVI file, so I reccomend downloading and then viewing it.

http://www.jasongoldberg.com/files/skinprob.avi

I am using the commandbar button animation as a demonstration of the application's responsiveness.. notice the responsiveness stops.... then starts again, then seems to stop once more only to finally recover and become responsive...

Here is the code for the skinning form which controls all of the skinning.



Option Explicit

Public Skin As Integer
Dim SkinsList As String


Public Function GetSkinList() As String()
  GetSkinList = Split(SkinsList, "~")
End Function

Private Sub Form_Load()

 'Basically just loads all CJStyles, MSStyles, and Skin Directories into an array

  If inIDE Then Exit Sub
 
  Dim fso As New FileSystemObject
  Dim fld As Folder
  Dim fil As File
  Dim C As Long
  Dim tFld As Folder
  Dim D() As String
  Set fld = fso.GetFolder(App.Path & "\skins\")
 
  Skinner.AutoApplyNewThreads = True
 
  For Each fil In fld.Files
    ReDim Preserve Skins(C)
    Skins(C).FileLocation = fil.Path
    D = Split(fil.Name, ".")
    Skins(C).Type = Left(D(1), 1)
    If Skins(C).Type = "c" Then Skins(C).iniFile = "NormalBlue.ini"
    Skins(C).Name = D(0)
    SkinsList = SkinsList & D(0) & "~"
    C = C + 1
  Next

  For Each tFld In fld.SubFolders
      ReDim Preserve Skins(C)
      For Each fil In tFld.Files
        If LCase$(Right$(fil.Name, 4)) = ".ini" Then
          Skins(C).iniFile = fil.Name
          Exit For
        End If
      Next
      Skins(C).FileLocation = tFld.Path
      Skins(C).Type = "d"
      Skins(C).Name = tFld.Name
      SkinsList = SkinsList & tFld & "~"
      C = C + 1
  Next
 
  SkinsList = Left(SkinsList, Len(SkinsList) - 1)

  Set fil = Nothing
  Set fld = Nothing
  Set fso = Nothing
  Set tFld = Nothing

End Sub



Public Function ApplySkin(vHwnd As Long, Optional SkinIndex As Integer)
  If inIDE Then Exit Function
   
  Skinner.ExcludeModule "msctf.dll"
  Skinner.LoadSkin Skins(SkinIndex).FileLocation, Skins(SkinIndex).iniFile
  Skinner.ApplyOptions = xtpSkinApplyFrame Or xtpSkinApplyColors
  Skinner.ApplyWindow vHwnd

End Function

The splash screen would seem like the clear solution, however the problem is that I can not actually detect when the skinning is completely finished to unload the splash screen. In fact, right now I have a frame cover the form when the skin is changed with a "loading..." message, but I have to use a timer to control when it disappears for now....

Thats the thing though... if the skin takes (for example) 10 seconds to apply and become responsive, I only have about 2 seconds of loading to do.. Once everything finishes loading, the skin is still preventing the applications responsiveness.. That is why I am trying to find an event or something that will alert me that every control has been skinned properly.