WinXP style with xtpSkinApplyFrame disabled

Hi,

we removed xtpSkinApplyFrame from Skin.ApplyOptions. If Windows XP  OS used Win XP style, repainting of caption on forms is not correct. In attached archive uploads/20071129_032919_Repaint.zip   you can see 3 screenshots of form:

with number 1: first look of form with xtpSkinApplyFrame disabled
with number 2: form partially moved to out of screen
with number 3: form moved to out of screen and turned back.

Problem is in repainting caption with combination of Windows XP style in OS and removed xtpSkinApplyFrame option from ApplyOptions.

Any idea how to resolve this problem?

Tomas Bako
developer

This code is running once after project startup:

Public Sub SetSkin(StyleName As String)
  Dim W As Single, H As Single, i As Integer
 
  'set skinning options
  Skin.ApplyOptions = xtpSkinApplyColors Or xtpSkinApplyMetrics
 
  'remember form size
  W = Me.Width
  H = Me.Height

  'apply skin
  If (StyleName <> "") And FileExists(ADRESAR_OMEGA & "GRAFIKA\" & StyleName) Then
    Skin.AutoApplyNewWindows = True
    Skin.AutoApplyNewThreads = True
    Skin.LoadSkin ADRESAR_OMEGA & "GRAFIKA\" & StyleName, ""
  Else 'dont apply skin
    Skin.LoadSkin "", ""
    Skin.AutoApplyNewWindows = False
    Skin.AutoApplyNewThreads = False
  End If
 
  'check all loaded forms and apply skin
  For i = 0 To UBound(FRM)
    If FRM(i).Loaded Then
      Skin.ApplyWindow FRM(i).ThisForm.hWnd
    End If
  Next i
 
  If (W <> Me.Width) Or (H <> Me.Height) Then
    Me.Width = W
    Me.Height = H
  End If
 
End Sub
 

https://forum.codejock.com/forum_posts.asp?TID=8704

H2Os wrote: On Vista, turning off xtpSkinApplyFrame allows non-mdi child forms to use the Glass effect - now the only ones looking ugly are mdi child forms

Only top level windows, which MDI child forms aren't, can use glass.

Hi