i thought this would be a good place to post information on including xp 'themes' in your application...
save the following code to an xml file and include in a resource file using resource type 1 and resource identifier 24, ie:
1 24 "mytheme.xml"
nb: you must change the "companyname.productname.yourapp" and "your application description here." to the correct values
don't forget to register tabbed dialogs for theme support using the following function...
borje posted a function to check for theme support here...
http://www.powerbasic.com/support/pb...ad.php?t=23944
------------------
kev peel
http://www.kgpsoftware.com
[this message has been edited by kev peel (edited december 18, 2003).]
save the following code to an xml file and include in a resource file using resource type 1 and resource identifier 24, ie:
1 24 "mytheme.xml"
nb: you must change the "companyname.productname.yourapp" and "your application description here." to the correct values
Code:
<?xml version="1.0" encoding="utf-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestversion="1.0"> <assemblyidentity version="1.0.0.0" processorarchitecture="x86" name="companyname.productname.yourapp" type="win32"/> <description>your application description here.</description> <dependency> <dependentassembly> <assemblyidentitytype="win32" name="microsoft.windows.common-controls" version="6.0.0.0" processorarchitecture="x86" publickeytoken="6595b64144ccf1df" language="*" /> </dependentassembly> </dependency> </assembly>
Code:
#if not %def(%xpthemes) %xpthemes = 1 %etdt_enable = &h02 %etdt_enabletab = &h06 %etdt_usetabtexture = &h04 %etdt_disable = &h01 declare function enabledialogtheme(byval hdlg as dword, byval dwstyle as dword) as long function enabledialogtheme(byval hdlg as dword, byval dwstyle as dword) as long local hmod as dword, hfunc as dword, nret as long hmod = loadlibrary("uxtheme.dll") if hmod then hfunc = getprocaddress(hmod, "enablethemedialogtexture") if hfunc then call dword hfunc using enabledialogtheme(hdlg, dwstyle) to nret function = nret end if freelibrary hmod end if end function #endif
borje posted a function to check for theme support here...
http://www.powerbasic.com/support/pb...ad.php?t=23944
------------------
kev peel
http://www.kgpsoftware.com
[this message has been edited by kev peel (edited december 18, 2003).]
Comment