WindowsXP Themes
|
![]() ![]() ![]() |
acXPThemes
|
// True when Windows XP theme active
|
function IsThemeActive: Boolean;
|
// True when the theme is active for current process
|
function IsAppThemed: Boolean;
|
// True if possible to use XP theme for controls
|
function IsThemeEnabled: Boolean;
|
|
// WinXP Theme API
|
function OpenThemeData(Wnd: hWnd; pszClassList: lpCWStr): hTheme;
|
function CloseThemeData(Theme: hTheme): hResult;
|
function DrawThemeBackground(Theme: hTheme; DC: hDC; iPartId, iStateId: Integer; const Rect: TRect; pClipRect: PRect): hResult;
|
function DrawThemeParentBackground(Wnd: hWnd; DC: hDC; prc: PRect): hResult;
|
|
// Custom WinXP Theme functions
|
procedure DrawThemedControl(Wnd: hWnd; DC: hDC; ClassList: lpCWStr; iPartId, iStateId: Integer; const Rect: TRect);
|
This unit provides some functions of Windows XP Theme API + one custom routine (DrawThemedControl), which allows to quickly draw themed control even without knowing general specifications of theme API.
|
DrawThemedControl and IsXP functions.
|