Hello,
at first : sorry for my bad englisch.
I have loaded the Demo-Version of AppFace also.
Now i try to make two windows with different skins.
(it looks like a bigger problem to do this with two child-windows)
I would like to use the standard resource of the skins (not the custom resource) like in the demos (demodelphi.exe or in demovc.exe).
But this is not my main problem.
The point is :
1. Why is the background of the second windows in dirty windows-gray ?
2. How can i change the skin for the second window ?
Code: Select all
#GTP_LOAD_FILE = 1
#SKIN_CLASS_FRAMEWIN = 101
AppFace=OpenLibrary(#PB_Any,"appface.dll")
If AppFace=0
MessageRequester("Error","Cannot load library")
End
EndIf
result=CallFunction(AppFace,"SkinStart","luna.urf",1,#Null,1,#Null,#Null)
If OpenWindow(0, 100, 200, 200, 200, "Window 1", #PB_Window_SystemMenu)
If OpenWindow(1, 330, 200, 200, 200, "Window 2", #PB_Window_SystemMenu | #PB_Window_Invisible)
;For PureBasic 3.94 use this instead :
;If OpenWindow(0, 100, 200, 200, 200, #PB_Window_SystemMenu, "Window 1")
; If OpenWindow(1, 330, 200, 200, 200, #PB_Window_SystemMenu | #PB_Window_Invisible, "Window 2")
MessageRequester("Information", "Click to show Window 2", 0)
; CallFunction(AppFace,"SkinWindowSetEx",1,#SKIN_CLASS_FRAMEWIN,????????? ,#GTP_LOAD_FILE,"onion.urf",#Null,#Null)
HideWindow(1, 0)
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
EndIf
result=CallFunction(AppFace,"SkinRemove")
CloseLibrary(AppFace)
End
P.S.
But, the sample skin makes my application look sexier than a naked cheerleader (and a lot easier to deal with!!)
If you are fourteen you will think nothing will beats her.
If you are forty you will think not ugly and easy to deal is real sexy.
Are you between fourteen and forty ?
