|
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.
|