WinXP style with xtpSkinApplyFrame disabled
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Skin Framework
Forum Description: Topics Related to Codejock Skin Framework
URL: http://forum.codejock.com/forum_posts.asp?TID=8948
Printed Date: 04 November 2025 at 5:16am
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com
Topic: WinXP style with xtpSkinApplyFrame disabled
Posted By: Bako
Subject: WinXP style with xtpSkinApplyFrame disabled
Date Posted: 29 November 2007 at 3:31am
|
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 - 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 |
Replies:
Posted By: Oleg
Date Posted: 29 November 2007 at 5:55am
|
Hi,
Think you removed this option after you apply skin. Remove it before.
But actually without xtpSkinApplyFrame skinning looks quite ugly... ------------- Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS |
Posted By: Bako
Date Posted: 29 November 2007 at 7:10am
|
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 |
Posted By: Bako
Date Posted: 29 November 2007 at 7:12am
|
Our forms are without this option because of this error: https://forum.codejock.com/forum_posts.asp?TID=8704 |
Posted By: Bako
Date Posted: 29 November 2007 at 7:12am
| http://https://forum.codejock.com/forum_posts.asp?TID=8704 - https://forum.codejock.com/forum_posts.asp?TID=8704 |
Posted By: H2Os
Date Posted: 26 February 2008 at 5:16am
|
Hi Has there been any progress on this error yet? I am getting the same issue with MDI Child forms and v11.2.2 on XP and Vista.
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 |
oleg wrote:
Posted By: ABuenger
Date Posted: 26 February 2008 at 5:23am
Only top level windows, which MDI child forms aren't, can use glass. ------------- Codejock support |
Posted By: H2Os
Date Posted: 26 February 2008 at 5:28am
I know that, but it still doesn't help with the actual problem.
When the frame is initially drawn it is semi-skinned (in the case of the above image, with the black theme) but then the proper theme comes through whenever the frame is redrawn for any reason.
With xtpSkinApplyFrame off it shouldn't be skinned at all and should just use the default for whichever OS is running (XP or Vista). |
Posted By: H2Os
Date Posted: 11 March 2008 at 6:20am
|
Hi
Further information on this error:
It occurs on MDI Child forms when the caption is changed!!
I have attached an example VB6 program to show the problem.
http://forum.codejock.com/uploads/20080311_061853_Example.zip - uploads/20080311_061853_Example.zip
Simply run the program and click on the 'Change Caption' button.
|