david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
1376 lines
61 KiB
ObjectPascal
1376 lines
61 KiB
ObjectPascal
|
|
{********************************************************************}
|
|
{ }
|
|
{ Developer Express Visual Component Library }
|
|
{ ExpressXPThemeManager }
|
|
{ }
|
|
{ Copyright (c) 1998-2007 Developer Express Inc. }
|
|
{ ALL RIGHTS RESERVED }
|
|
{ }
|
|
{ The entire contents of this file is protected by U.S. and }
|
|
{ International Copyright Laws. Unauthorized reproduction, }
|
|
{ reverse-engineering, and distribution of all or any portion of }
|
|
{ the code contained in this file is strictly prohibited and may }
|
|
{ result in severe civil and criminal penalties and will be }
|
|
{ prosecuted to the maximum extent possible under the law. }
|
|
{ }
|
|
{ RESTRICTIONS }
|
|
{ }
|
|
{ THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES }
|
|
{ (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE }
|
|
{ SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS }
|
|
{ LICENSED TO DISTRIBUTE THE EXPRESSXPTHEMEMANAGER AND ALL }
|
|
{ ACCOMPANYING VCL CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY. }
|
|
{ }
|
|
{ THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED }
|
|
{ FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE }
|
|
{ COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE }
|
|
{ AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT }
|
|
{ AND PERMISSION FROM DEVELOPER EXPRESS INC. }
|
|
{ }
|
|
{ CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON }
|
|
{ ADDITIONAL RESTRICTIONS. }
|
|
{ }
|
|
{********************************************************************}
|
|
|
|
unit dxUxTheme;
|
|
|
|
{$I cxVer.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF CLR}
|
|
System.Text, System.Runtime.InteropServices,
|
|
{$ENDIF}
|
|
{$IFDEF DELPHI6}
|
|
Types,
|
|
{$ENDIF}
|
|
Windows, Classes, CommCtrl;
|
|
|
|
const
|
|
// DrawThemeText() flags
|
|
DTT_GRAYED = $1;
|
|
|
|
// HitTestThemeBackground(), HitTestThemeBackgroundRegion() flags
|
|
HTTB_BACKGROUNDSEG = $0;
|
|
|
|
// Fixed border hit test option
|
|
HTTB_FIXEDBORDER = $2;
|
|
|
|
// Caption hit test option
|
|
HTTB_CAPTION = $4;
|
|
|
|
// Resizing border hit test flags
|
|
HTTB_RESIZINGBORDER_LEFT = $10;
|
|
HTTB_RESIZINGBORDER_TOP = $20;
|
|
HTTB_RESIZINGBORDER_RIGHT = $40;
|
|
HTTB_RESIZINGBORDER_BOTTOM = $80;
|
|
HTTB_RESIZINGBORDER = HTTB_RESIZINGBORDER_LEFT or HTTB_RESIZINGBORDER_TOP or
|
|
HTTB_RESIZINGBORDER_RIGHT or HTTB_RESIZINGBORDER_BOTTOM;
|
|
HTTB_SIZINGTEMPLATE = $100;
|
|
HTTB_SYSTEMSIZINGMARGINS = $200;
|
|
|
|
(*// DrawThemeLine() flags
|
|
DTL_LEFT = $1;
|
|
DTL_TOP = $2;
|
|
DTL_RIGHT = $4;
|
|
DTL_BOTTOM = $8;*)
|
|
|
|
MAX_INTLIST_COUNT = 10;
|
|
|
|
ETDT_DISABLE = $1;
|
|
ETDT_ENABLE = $2;
|
|
ETDT_USETABTEXTURE = $4;
|
|
ETDT_ENABLETAB = ETDT_ENABLE or ETDT_USETABTEXTURE;
|
|
|
|
// flags to control theming within an app
|
|
STAP_ALLOW_NONCLIENT = $1;
|
|
STAP_ALLOW_CONTROLS = $2;
|
|
STAP_ALLOW_WEBCONTENT = $4;
|
|
|
|
SZ_THDOCPROP_DISPLAYNAME = 'DisplayName';
|
|
SZ_THDOCPROP_CANONICALNAME = 'ThemeName';
|
|
SZ_THDOCPROP_TOOLTIP = 'ToolTip';
|
|
SZ_THDOCPROP_AUTHOR = 'author';
|
|
|
|
TS_MIN = 0;
|
|
TS_TRUE = 1;
|
|
TS_DRAW = 2;
|
|
|
|
//vista extension
|
|
DTT_TEXTCOLOR = (1 shl 0); // crText has been specified
|
|
DTT_BORDERCOLOR = (1 shl 1); // crBorder has been specified
|
|
DTT_SHADOWCOLOR = (1 shl 2); // crShadow has been specified
|
|
DTT_SHADOWTYPE = (1 shl 3); // iTextShadowType has been specified
|
|
DTT_SHADOWOFFSET = (1 shl 4); // ptShadowOffset has been specified
|
|
DTT_BORDERSIZE = (1 shl 5); // iBorderSize has been specified
|
|
DTT_FONTPROP = (1 shl 6); // iFontPropId has been specified
|
|
DTT_COLORPROP = (1 shl 7); // iColorPropId has been specified
|
|
DTT_STATEID = (1 shl 8); // IStateId has been specified
|
|
DTT_CALCRECT = (1 shl 9); // Use pRect as and in/out parameter
|
|
DTT_APPLYOVERLAY = (1 shl 10); // fApplyOverlay has been specified
|
|
DTT_GLOWSIZE = (1 shl 11); // iGlowSize has been specified
|
|
DTT_CALLBACK = (1 shl 12); // pfnDrawTextCallback has been specified
|
|
DTT_COMPOSITED = (1 shl 13); // Draws text with antialiased alpha (needs a DIB section)
|
|
|
|
type
|
|
{$IFDEF CLR}
|
|
Pointer = IntPtr;
|
|
PRect = IntPtr;
|
|
{$ENDIF}
|
|
TdxTheme = THandle;
|
|
|
|
TdxThemeSize = Integer;
|
|
|
|
TdxMargins = record
|
|
cxLeftWidth: Integer;
|
|
cxRightWidth: Integer;
|
|
cyTopHeight: Integer;
|
|
cyBottomHeight: Integer;
|
|
end;
|
|
|
|
PdxMargins = ^TdxMargins;
|
|
|
|
TdxIntList = record
|
|
iValueCount: Integer;
|
|
iValues: array[0..MAX_INTLIST_COUNT - 1] of Integer;
|
|
end;
|
|
PdxIntList = ^TdxIntList;
|
|
|
|
TdxPropertyOrigin = (PO_STATE, PO_PART, PO_CLASS, PO_GLOBAL, PO_NOTFOUND);
|
|
|
|
// vista extention
|
|
TdxPaintBuffer = THandle;
|
|
|
|
TdxDTTOpts = packed record
|
|
dwSize: DWORD;
|
|
dwFlags: DWORD;
|
|
crText: COLORREF;
|
|
crBorder: COLORREF;
|
|
crShadow: COLORREF;
|
|
iTextShadowType: Integer;
|
|
ptShadowOffset: TPoint;
|
|
iBorderSize: Integer;
|
|
iFontPropId: Integer;
|
|
iColorPropId: Integer;
|
|
iStateId: Integer;
|
|
fApplyOverlay: BOOL;
|
|
iGlowSize: Integer;
|
|
pfnDrawTextCallback: DWORD;
|
|
lParam: LPARAM;
|
|
end;
|
|
PdxDTTOpts = ^TdxDTTOpts;
|
|
|
|
function OpenThemeData(hWnd: HWND; pszClassList: {$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF}): TdxTheme;
|
|
function CloseThemeData(hTheme: TdxTheme): HRESULT;
|
|
|
|
// functions for basic drawing support
|
|
{$IFNDEF CLR}
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pRect: PRect; pClipRect: PRect = nil): HRESULT; overload;
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; pClipRect: PRect = nil): HRESULT; overload;
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; const pClipRect: TRect): HRESULT; overload;
|
|
{$ELSE}
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; const pClipRect: TRect): HRESULT; overload;
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect): HRESULT; overload;
|
|
{$ENDIF}
|
|
|
|
{$IFNDEF CLR}
|
|
function DrawThemeText(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszText: PWideChar; iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
pRect: PRect): HRESULT; overload;
|
|
function DrawThemeText(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszText: string; iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
const pRect: TRect): HRESULT; overload;
|
|
{$ELSE}
|
|
function DrawThemeText(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszText: string; iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
const pRect: TRect): HRESULT;
|
|
{$ENDIF}
|
|
|
|
function DrawThemeTextEx(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pszText: WideString; iCharCount: Integer; dwTextFlags: DWORD;
|
|
const pRect: TRect; const pOptions: TdxDTTOpts): HRESULT;
|
|
|
|
function GetThemeBackgroundContentRect(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const BoundingRect: TRect; out ContentRect: TRect): HRESULT;
|
|
|
|
function GetThemeBackgroundExtent(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pContentRect: PRect{$ELSE}const pContentRect: TRect{$ENDIF};
|
|
out ExtentRect: TRect): HRESULT;
|
|
|
|
{$IFNDEF CLR}
|
|
function GetThemePartSize(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
prc: PRect; eSize: TdxThemeSize; psz: PSize): HRESULT; overload;
|
|
{$ENDIF}
|
|
function GetThemePartSize(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const prc: TRect; eSize: TdxThemeSize; out psz: TSize): HRESULT; overload;
|
|
function GetThemePartSize(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
eSize: TdxThemeSize; out psz: TSize): HRESULT; overload;
|
|
|
|
function GetThemeTextExtent(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszTextL: {$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF}; iCharCount: Integer; dwTextFlags: DWORD;
|
|
{$IFNDEF CLR}pBoundingRect: PRect{$ELSE}const pBoundingRect: TRect{$ENDIF}; out ExtentRect: TRect): HRESULT;
|
|
function GetThemeTextMetrics(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
out tm: TEXTMETRIC): HRESULT;
|
|
function GetThemeBackgroundRegion(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF}; out Region: HRGN): HRESULT;
|
|
function HitTestThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
dwOptions: DWORD; {$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF};
|
|
hRgn: HRGN; ptTest: TPoint; out wHitTestCode: WORD): HRESULT;
|
|
|
|
{$IFNDEF CLR}
|
|
function DrawThemeEdge(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pDestRect: PRect; uEdge, uFlags: UINT; pContentRect: PRect): HRESULT; overload;
|
|
{$ENDIF}
|
|
function DrawThemeEdge(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pDestRect: TRect; uEdge, uFlags: UINT; out pContentRect: TRect): HRESULT; overload;
|
|
function DrawThemeEdge(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pDestRect: TRect; uEdge, uFlags: UINT): HRESULT; overload;
|
|
|
|
function DrawThemeIcon(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF}; himl: HIMAGELIST; iImageIndex: Integer): HRESULT;
|
|
function IsThemePartDefined(hTheme: TdxTheme; iPartId, iStateId: Integer): BOOL;
|
|
function IsThemeBackgroundPartiallyTransparent(hTheme: TdxTheme;
|
|
iPartId, iStateId: Integer): BOOL;
|
|
function DrawThemeParentBackground(hWnd: HWND; DC: HDC; const prc: TRect): HRESULT;
|
|
|
|
// lower-level theme information services
|
|
function GetThemeColor(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Color: TColorRef): HRESULT;
|
|
function GetThemeMetric(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT;
|
|
function GetThemeString(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszBuff: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF}; cchMaxBuffChars: Integer): HRESULT;
|
|
function GetThemeBool(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out fVal{???}: BOOL): HRESULT; // TODO
|
|
function GetThemeInt(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT;
|
|
function GetThemeEnumValue(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT;
|
|
function GetThemePosition(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Point: TPoint): HRESULT;
|
|
function GetThemeFont(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out Font: {$IFNDEF CLR}LOGFONTW{$ELSE}LOGFONT{$ENDIF}): HRESULT;
|
|
function GetThemeRect(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Rect: TRect): HRESULT;
|
|
function GetThemeMargins(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
{$IFNDEF CLR}prc: PRect{$ELSE}const prc: TRect{$ENDIF}; out Margins: TdxMargins): HRESULT;
|
|
function GetThemeIntList(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out IntList: TdxIntList): HRESULT;
|
|
function GetThemePropertyOrigin(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Origin: TdxPropertyOrigin): HRESULT;
|
|
function SetWindowTheme(hWnd: HWND; pszSubAppName, pszSubIdList:
|
|
{$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF}): HRESULT;
|
|
function GetThemeFilename(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszThemeFileName: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF}; cchMaxBuffChars: Integer): HRESULT;
|
|
function GetThemeSysColor(hTheme: TdxTheme; iColorId: Integer): COLORREF;
|
|
function GetThemeSysColorBrush(hTheme: TdxTheme; iColorId: Integer): HBRUSH;
|
|
function GetThemeSysBool(hTheme: TdxTheme; iBoolId: Integer): BOOL;
|
|
function GetThemeSysSize(hTheme: TdxTheme; iSizeId: Integer): Integer;
|
|
function GetThemeSysFont(hTheme: TdxTheme; iFontId: Integer; out lf: {$IFNDEF CLR}LOGFONTW{$ELSE}LOGFONT{$ENDIF}): HRESULT;
|
|
function GetThemeSysString(hTheme: TdxTheme; iStringId: Integer; pszStringBuff:
|
|
{$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF}; cchMaxStringChars: Integer): HRESULT;
|
|
function GetThemeSysInt(hTheme: TdxTheme; iIntId: Integer; var iValue: Integer): HRESULT; // TODO var -> out ???
|
|
|
|
function IsThemeActive: BOOL;
|
|
function IsAppThemed: BOOL;
|
|
function GetWindowTheme(hWnd: HWND): TdxTheme;
|
|
function EnableThemeDialogTexture(hWnd: HWND; dwFlags: DWORD): HRESULT;
|
|
function IsThemeDialogTextureEnabled(hWnd: HWND): BOOL;
|
|
function GetThemeAppProperties: DWORD;
|
|
procedure SetThemeAppProperties(dwFlags: DWORD);
|
|
function GetCurrentThemeName(pszThemeFileName: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF};
|
|
cchMaxNameChars: Integer; pszColorBuff: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF};
|
|
cchMaxColorChars: Integer; pszSizeBuff: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF};
|
|
cchMaxSizeChars: Integer): HRESULT;
|
|
function GetThemeDocumentationProperty(
|
|
{$IFNDEF CLR}
|
|
pszThemeName, pszPropertyName, pszValueBuff: PWideChar;
|
|
{$ELSE}
|
|
pszThemeName, pszPropertyName: string;
|
|
pszValueBuff: StringBuilder;
|
|
{$ENDIF}
|
|
cchMaxValChars: Integer): HRESULT;
|
|
|
|
//vista extention
|
|
{$IFNDEF CLR}
|
|
type
|
|
BP_BUFFERFORMAT = (
|
|
BPBF_COMPATIBLEBITMAP,
|
|
BPBF_DIB,
|
|
BPBF_TOPDOWNDIB,
|
|
BPBF_TOPDOWNMONODIB);
|
|
TBPBufferFormat = BP_BUFFERFORMAT;
|
|
|
|
BP_PAINTPARAMS = packed record
|
|
cbSize: DWORD;
|
|
dwFlags: DWORD; // BPPF_ flags
|
|
prcExclude: PRect;
|
|
pBlendFunction: Pointer;
|
|
end;
|
|
TBPPaintParams = BP_PAINTPARAMS;
|
|
PBPPaintParams = ^TBPPaintParams;
|
|
|
|
function BufferedPaintInit: HRESULT;
|
|
function BufferedPaintUnInit: HRESULT;
|
|
function BeginBufferedPaint(hdcTarget: HDC; prcTarget: PRect;
|
|
dwFormat: TBPBufferFormat; pPaintParams: PBPPaintParams; out dc: HDC): TdxPaintBuffer;
|
|
function EndBufferedPaint(hBufferedPaint: TdxPaintBuffer; fUpdateTarget: BOOL): HRESULT;
|
|
function BufferedPaintSetAlpha(hBufferedPaint: TdxPaintBuffer; prc: PRect; alpha: Byte): HRESULT;
|
|
{$ENDIF}
|
|
|
|
function IsThemeLibraryLoaded: Boolean;
|
|
function IsWindowsXPOrLater: Boolean;
|
|
|
|
implementation
|
|
|
|
{$IFNDEF CLR}
|
|
uses
|
|
ComCtrls;
|
|
{$ENDIF}
|
|
|
|
const
|
|
ThemeLibraryName = 'UxTheme.dll';
|
|
|
|
{$IFNDEF CLR}
|
|
|
|
type
|
|
TCloseThemeData = function(hTheme: TdxTheme): HRESULT; stdcall;
|
|
TDrawThemeBackground = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pRect: PRect; pClipRect: PRect = nil): HRESULT; stdcall;
|
|
TDrawThemeEdge = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pDestRect: PRect; uEdge, uFlags: UINT; pContentRect: PRect): HRESULT; stdcall;
|
|
TDrawThemeIcon = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pRect: PRect; himl: HIMAGELIST; iImageIndex: Integer): HRESULT; stdcall;
|
|
TDrawThemeParentBackground = function(hWnd: HWND; DC: HDC; const prc: TRect): HRESULT; stdcall;
|
|
TDrawThemeText = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszText: PWideChar; iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
pRect: PRect): HRESULT; stdcall;
|
|
TDrawThemeTextEx = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pszText: WideString; iCharCount: Integer; dwTextFlags: DWORD;
|
|
pRect: PRect; const pOptions: TdxDTTOpts): HRESULT; stdcall;
|
|
TEnableThemeDialogTexture = function(hWnd: HWND; dwFlags: DWORD): HRESULT; stdcall;
|
|
TGetCurrentThemeName = function(pszThemeFileName: PWideChar; cchMaxNameChars: Integer;
|
|
pszColorBuff: PWideChar; cchMaxColorChars: Integer; pszSizeBuff: PWideChar;
|
|
cchMaxSizeChars: Integer): HRESULT; stdcall;
|
|
TGetThemeAppProperties = function: DWORD; stdcall;
|
|
TGetThemeBackgroundContentRect = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const BoundingRect: TRect; out ContentRect: TRect): HRESULT; stdcall;
|
|
TGetThemeBackgroundRegion = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pRect: PRect; out Region: HRGN): HRESULT; stdcall;
|
|
TGetThemeBackgroundExtent = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pContentRect: PRect; out ExtentRect: TRect): HRESULT; stdcall;
|
|
TGetThemeBool = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out fVal: BOOL): HRESULT; stdcall;
|
|
TGetThemeColor = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Color: TColorRef): HRESULT; stdcall;
|
|
TGetThemeDocumentationProperty = function(pszThemeName, pszPropertyName, pszValueBuff: PWideChar;
|
|
cchMaxValChars: Integer): HRESULT; stdcall;
|
|
TGetThemeEnumValue = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT; stdcall;
|
|
TGetThemeFilename = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszThemeFileName: PWideChar; cchMaxBuffChars: Integer): HRESULT; stdcall;
|
|
TGetThemeFont = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out pFont: LOGFONTW): HRESULT; stdcall;
|
|
TGetThemeInt = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT; stdcall;
|
|
TGetThemeIntList = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out IntList: TdxIntList): HRESULT; stdcall;
|
|
TGetThemeMargins = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
prc: PRect; out Margins: TdxMargins): HRESULT; stdcall;
|
|
TGetThemeMetric = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT; stdcall;
|
|
TGetThemePartSize = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
prc: PRect; eSize: TdxThemeSize; psz: PSize): HRESULT; stdcall;
|
|
TGetThemePosition = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Point: TPoint): HRESULT; stdcall;
|
|
TGetThemePropertyOrigin = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Origin: TdxPropertyOrigin): HRESULT; stdcall;
|
|
TGetThemeRect = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Rect: TRect): HRESULT; stdcall;
|
|
TGetThemeString = function(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszBuff: PWideChar; cchMaxBuffChars: Integer): HRESULT; stdcall;
|
|
TGetThemeSysBool = function(hTheme: TdxTheme; iBoolId: Integer): BOOL; stdcall;
|
|
TGetThemeSysColor = function(hTheme: TdxTheme; iColorId: Integer): COLORREF; stdcall;
|
|
TGetThemeSysColorBrush = function(hTheme: TdxTheme; iColorId: Integer): HBRUSH; stdcall;
|
|
TGetThemeSysFont = function(hTheme: TdxTheme; iFontId: Integer; out lf: LOGFONTW): HRESULT; stdcall;
|
|
TGetThemeSysInt = function(hTheme: TdxTheme; iIntId: Integer; var iValue: Integer): HRESULT; stdcall;
|
|
TGetThemeSysSize = function(hTheme: TdxTheme; iSizeId: Integer): Integer; stdcall;
|
|
TGetThemeSysString = function(hTheme: TdxTheme; iStringId: Integer; pszStringBuff: PWideChar;
|
|
cchMaxStringChars: Integer): HRESULT; stdcall;
|
|
TGetThemeTextExtent = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszTextL: PWideChar; iCharCount: Integer; dwTextFlags: DWORD;
|
|
pBoundingRect: PRect; out ExtentRect: TRect): HRESULT; stdcall;
|
|
TGetThemeTextMetrics = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
out tm: TEXTMETRIC): HRESULT; stdcall;
|
|
TGetWindowTheme = function(hWnd: HWND): TdxTheme;stdcall;
|
|
THitTestThemeBackground = function(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
dwOptions: DWORD; pRect : PRect; hRgn: HRGN; ptTest: TPoint;
|
|
out wHitTestCode: WORD): HRESULT; stdcall;
|
|
TIsAppThemed = function: BOOL; stdcall;
|
|
TIsThemeActive = function: BOOL; stdcall;
|
|
TIsThemePartDefined = function(hTheme: TdxTheme; iPartId, iStateId: Integer): BOOL; stdcall;
|
|
TIsThemeBackgroundPartiallyTransparent = function(hTheme: TdxTheme;
|
|
iPartId, iStateId: Integer): BOOL; stdcall;
|
|
TIsThemeDialogTextureEnabled = function(hWnd: HWND): BOOL; stdcall;
|
|
TOpenThemeData = function(hWnd: HWND; pszClassList: PWideChar): TdxTheme; stdcall;
|
|
TSetThemeAppProperties = procedure(dwFlags: DWORD); stdcall;
|
|
TSetWindowTheme = function(hWnd: HWND; pszSubAppName, pszSubIdList: PWideChar): HRESULT; stdcall;
|
|
//vista extention
|
|
TBufferedPaintInit = function: HRESULT; stdcall;
|
|
TBufferedPaintUnInit = function: HRESULT; stdcall;
|
|
TBeginBufferedPaint = function(hdcTarget: HDC; prcTarget: PRect;
|
|
dwFormat: TBPBufferFormat; pPaintParams: PBPPaintParams; out dc: HDC): TdxPaintBuffer; stdcall;
|
|
TEndBufferedPaint = function(hBufferedPaint: TdxPaintBuffer; fUpdateTarget: BOOL): HRESULT; stdcall;
|
|
TBufferedPaintSetAlpha = function(hBufferedPaint: TdxPaintBuffer; prc: PRect; alpha: Byte): HRESULT; stdcall;
|
|
|
|
TThemeLibraryMethodPointersKeeper = record
|
|
FCloseThemeData: TCloseThemeData;
|
|
FDrawThemeBackground: TDrawThemeBackground;
|
|
FDrawThemeEdge: TDrawThemeEdge;
|
|
FDrawThemeIcon: TDrawThemeIcon;
|
|
FDrawThemeParentBackground: TDrawThemeParentBackground;
|
|
FDrawThemeText: TDrawThemeText;
|
|
FDrawThemeTextEx: TDrawThemeTextEx;
|
|
FEnableThemeDialogTexture: TEnableThemeDialogTexture;
|
|
FGetCurrentThemeName: TGetCurrentThemeName;
|
|
FGetThemeAppProperties: TGetThemeAppProperties;
|
|
FGetThemeBackgroundContentRect: TGetThemeBackgroundContentRect;
|
|
FGetThemeBackgroundRegion: TGetThemeBackgroundRegion;
|
|
FGetThemeBackgroundExtent: TGetThemeBackgroundExtent;
|
|
FGetThemeBool: TGetThemeBool;
|
|
FGetThemeColor: TGetThemeColor;
|
|
FGetThemeDocumentationProperty: TGetThemeDocumentationProperty;
|
|
FGetThemeEnumValue: TGetThemeEnumValue;
|
|
FGetThemeFilename: TGetThemeFilename;
|
|
FGetThemeFont: TGetThemeFont;
|
|
FGetThemeInt: TGetThemeInt;
|
|
FGetThemeIntList: TGetThemeIntList;
|
|
FGetThemeMargins: TGetThemeMargins;
|
|
FGetThemeMetric: TGetThemeMetric;
|
|
FGetThemePartSize: TGetThemePartSize;
|
|
FGetThemePosition: TGetThemePosition;
|
|
FGetThemePropertyOrigin: TGetThemePropertyOrigin;
|
|
FGetThemeRect: TGetThemeRect;
|
|
FGetThemeString: TGetThemeString;
|
|
FGetThemeSysBool: TGetThemeSysBool;
|
|
FGetThemeSysColor: TGetThemeSysColor;
|
|
FGetThemeSysColorBrush: TGetThemeSysColorBrush;
|
|
FGetThemeSysFont: TGetThemeSysFont;
|
|
FGetThemeSysInt: TGetThemeSysInt;
|
|
FGetThemeSysSize: TGetThemeSysSize;
|
|
FGetThemeSysString: TGetThemeSysString;
|
|
FGetThemeTextExtent: TGetThemeTextExtent;
|
|
FGetThemeTextMetrics: TGetThemeTextMetrics;
|
|
FGetWindowTheme: TGetWindowTheme;
|
|
FHitTestThemeBackground: THitTestThemeBackground;
|
|
FIsAppThemed: TIsAppThemed;
|
|
FIsThemeActive: TIsThemeActive;
|
|
FIsThemePartDefined: TIsThemePartDefined;
|
|
FIsThemeBackgroundPartiallyTransparent: TIsThemeBackgroundPartiallyTransparent;
|
|
FIsThemeDialogTextureEnabled: TIsThemeDialogTextureEnabled;
|
|
FOpenThemeData: TOpenThemeData;
|
|
FSetThemeAppProperties: TSetThemeAppProperties;
|
|
FSetWindowTheme: TSetWindowTheme;
|
|
//vista extention
|
|
FBufferedPaintInit: TBufferedPaintInit;
|
|
FBufferedPaintUnInit: TBufferedPaintUnInit;
|
|
FBeginBufferedPaint: TBeginBufferedPaint;
|
|
FEndBufferedPaint: TEndBufferedPaint;
|
|
FBufferedPaintSetAlpha: TBufferedPaintSetAlpha;
|
|
end;
|
|
|
|
{$ELSE}
|
|
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'OpenThemeData')]
|
|
function _OpenThemeData(hwnd: HWND; pszClassList: string): TdxTheme; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'CloseThemeData')]
|
|
function _CloseThemeData(hTheme: TdxTheme): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeBackground')]
|
|
function _DrawThemeBackground(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; const pClipRect: TRect): HRESULT; overload; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeBackground')]
|
|
function _DrawThemeBackground(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; pClipRect: IntPtr): HRESULT; overload; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeText')]
|
|
function _DrawThemeText(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
pszText: string; iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
const pRect: TRect): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeTextEx')]
|
|
function _DrawThemeTextEx(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
pszText: string; iCharCount: Integer; dwTextFlags: DWORD;
|
|
const pRect: TRect; const pOptions: TdxDTTOpts): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeBackgroundContentRect')]
|
|
function _GetThemeBackgroundContentRect(hTheme: TdxTheme; hdc: HDC;
|
|
iPartId, iStateId: Integer; const pBoundingRect: TRect;
|
|
out pContentRect: TRect): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeBackgroundExtent')]
|
|
function _GetThemeBackgroundExtent(hTheme: TdxTheme; hdc: HDC;
|
|
iPartId, iStateId: Integer; const pContentRect: TRect;
|
|
out pExtentRect: TRect): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemePartSize')]
|
|
function _GetThemePartSize(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
const prc: TRect; eSize: TdxThemeSize; out psz: TSize): HRESULT; overload; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeTextExtent')]
|
|
function _GetThemeTextExtent(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
pszText: string; iCharCount: Integer; dwTextFlags: DWORD;
|
|
const pBoundingRect: TRect; out pExtentRect: TRect): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeTextMetrics')]
|
|
function _GetThemeTextMetrics(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
out ptm: TEXTMETRIC): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeBackgroundRegion')]
|
|
function _GetThemeBackgroundRegion(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; out pRegion: HRGN): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'HitTestThemeBackground')]
|
|
function _HitTestThemeBackground(hTheme: TdxTheme; hdc: HDC;
|
|
iPartId, iStateId: Integer; dwOptions: DWORD; const pRect: TRect;
|
|
hrgn: HRGN; ptTest: TPoint; out pwHitTestCode: WORD): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeEdge')]
|
|
function _DrawThemeEdge(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
const pDestRect: TRect; uEdge, uFlags: UINT; out pContentRect: TRect): HRESULT; overload; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeIcon')]
|
|
function _DrawThemeIcon(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; himl: HIMAGELIST; iImageIndex: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'IsThemePartDefined')]
|
|
function _IsThemePartDefined(hTheme: TdxTheme; iPartId, iStateId: Integer): BOOL; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'IsThemeBackgroundPartiallyTransparent')]
|
|
function _IsThemeBackgroundPartiallyTransparent(hTheme: TdxTheme;
|
|
iPartId, iStateId: Integer): BOOL; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'DrawThemeParentBackground')]
|
|
function _DrawThemeParentBackground(hwnd: HWND; hdc: HDC; const prc: TRect): HRESULT; overload; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeColor')]
|
|
function _GetThemeColor(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out pColor: COLORREF): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeMetric')]
|
|
function _GetThemeMetric(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out piVal: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeString')]
|
|
function _GetThemeString(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszBuff: StringBuilder; cchMaxBuffChars: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeBool')]
|
|
function _GetThemeBool(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out pfVal: BOOL): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeInt')]
|
|
function _GetThemeInt(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out piVal: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeEnumValue')]
|
|
function _GetThemeEnumValue(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out piVal: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemePosition')]
|
|
function _GetThemePosition(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out pPoint: TPoint): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeFont')]
|
|
function _GetThemeFont(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out pFont: LOGFONT): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeRect')]
|
|
function _GetThemeRect(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out pRect: TRect): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeMargins')]
|
|
function _GetThemeMargins(hTheme: TdxTheme; hdc: HDC; iPartId, iStateId,
|
|
iPropId: Integer; const prc: TRect; out pMargins: TdxMargins): HRESULT; overload; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeIntList')]
|
|
function _GetThemeIntList(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out pIntList: TdxIntList): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemePropertyOrigin')]
|
|
function _GetThemePropertyOrigin(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out pOrigin: TdxPropertyOrigin): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'SetWindowTheme')]
|
|
function _SetWindowTheme(hwnd: HWND; pszSubAppName: string;
|
|
pszSubIdList: string): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeFilename')]
|
|
function _GetThemeFilename(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszThemeFileName: StringBuilder; cchMaxBuffChars: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysColor')]
|
|
function _GetThemeSysColor(hTheme: TdxTheme; iColorId: Integer): COLORREF; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysColorBrush')]
|
|
function _GetThemeSysColorBrush(hTheme: TdxTheme; iColorId: Integer): HBRUSH; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysBool')]
|
|
function _GetThemeSysBool(hTheme: TdxTheme; iBoolId: Integer): BOOL; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysSize')]
|
|
function _GetThemeSysSize(hTheme: TdxTheme; iSizeId: Integer): Integer; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysFont')]
|
|
function _GetThemeSysFont(hTheme: TdxTheme; iFontId: Integer;
|
|
out plf: LOGFONT): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysString')]
|
|
function _GetThemeSysString(hTheme: TdxTheme; iStringId: Integer;
|
|
pszStringBuff: StringBuilder; cchMaxStringChars: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeSysInt')]
|
|
function _GetThemeSysInt(hTheme: TdxTheme; iIntId: Integer;
|
|
out piValue: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'IsThemeActive')]
|
|
function _IsThemeActive: BOOL; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'IsAppThemed')]
|
|
function _IsAppThemed: BOOL; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetWindowTheme')]
|
|
function _GetWindowTheme(hwnd: HWND): TdxTheme; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'EnableThemeDialogTexture')]
|
|
function _EnableThemeDialogTexture(hwnd: HWND; dwFlags: DWORD): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'IsThemeDialogTextureEnabled')]
|
|
function _IsThemeDialogTextureEnabled(hwnd: HWND): BOOL; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeAppProperties')]
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeAppProperties')]
|
|
function _GetThemeAppProperties: DWORD; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'SetThemeAppProperties')]
|
|
procedure _SetThemeAppProperties(dwFlags: DWORD); external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetCurrentThemeName')]
|
|
function _GetCurrentThemeName(pszThemeFileName: StringBuilder;
|
|
cchMaxNameChars: Integer; pszColorBuff: StringBuilder; cchMaxColorChars: Integer;
|
|
pszSizeBuff: StringBuilder; cchMaxSizeChars: Integer): HRESULT; external;
|
|
[DllImport(ThemeLibraryName, CharSet = CharSet.Auto, SetLastError = True, EntryPoint = 'GetThemeDocumentationProperty')]
|
|
function _GetThemeDocumentationProperty(pszThemeName, pszPropertyName: string;
|
|
pszValueBuff: StringBuilder; cchMaxValChars: Integer): HRESULT; external;
|
|
|
|
{$ENDIF}
|
|
|
|
var
|
|
FIsWindowsXPOrLater: Boolean;
|
|
FThemeLibrary: HMODULE = 0;
|
|
{$IFNDEF CLR}
|
|
FThemeLibraryMethodPointersKeeper: TThemeLibraryMethodPointersKeeper;
|
|
{$ENDIF}
|
|
|
|
function OpenThemeData(hWnd: HWND; pszClassList: {$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF}): TdxTheme;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FOpenThemeData(hWnd, pszClassList);
|
|
{$ELSE}
|
|
Result := _OpenThemeData(hWnd, pszClassList);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function CloseThemeData(hTheme: TdxTheme): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FCloseThemeData(hTheme);
|
|
{$ELSE}
|
|
Result := _CloseThemeData(hTheme);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}
|
|
pRect: PRect; pClipRect: PRect = nil
|
|
{$ELSE}
|
|
const pRect: TRect; const pClipRect: TRect
|
|
{$ENDIF}): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FDrawThemeBackground(hTheme, DC,
|
|
iPartId, iStateId, pRect, pClipRect);
|
|
{$ELSE}
|
|
Result := _DrawThemeBackground(hTheme, DC, iPartId, iStateId, pRect, pClipRect);
|
|
{$ENDIF}
|
|
end;
|
|
{$IFNDEF CLR}
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; pClipRect: PRect = nil): HRESULT;
|
|
begin
|
|
Result := DrawThemeBackground(hTheme, DC, iPartId, iStateId, @pRect, pClipRect);
|
|
end;
|
|
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect; const pClipRect: TRect): HRESULT;
|
|
begin
|
|
Result := DrawThemeBackground(hTheme, DC, iPartId, iStateId, @pRect, @pClipRect);
|
|
end;
|
|
{$ELSE}
|
|
function DrawThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pRect: TRect): HRESULT;
|
|
begin
|
|
Result := _DrawThemeBackground(hTheme, DC, iPartId, iStateId, pRect, nil);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
function DrawThemeText(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszText: {$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF};
|
|
iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
{$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF}): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FDrawThemeText(hTheme, DC, iPartId, iStateId,
|
|
pszText, iCharCount, dwTextFlags, dwTextFlags2, pRect);
|
|
{$ELSE}
|
|
Result := _DrawThemeText(hTheme, DC, iPartId, iStateId,
|
|
pszText, iCharCount, dwTextFlags, dwTextFlags2, pRect);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
{$IFNDEF CLR}
|
|
function DrawThemeText(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszText: string; iCharCount: Integer; dwTextFlags, dwTextFlags2: DWORD;
|
|
const pRect: TRect): HRESULT;
|
|
begin
|
|
Result := DrawThemeText(hTheme, DC, iPartId, iStateId,
|
|
PWideChar(WideString(pszText)), iCharCount, dwTextFlags, dwTextFlags2, @pRect);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
//vista extention
|
|
function DrawThemeTextEx(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pszText: WideString; iCharCount: Integer; dwTextFlags: DWORD;
|
|
const pRect: TRect; const pOptions: TdxDTTOpts): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FDrawThemeTextEx(hTheme, DC, iPartId, iStateId,
|
|
PWideChar(pszText), iCharCount, dwTextFlags, @pRect, pOptions);
|
|
{$ELSE}
|
|
Result := _DrawThemeTextEx(hTheme, DC, iPartId, iStateId,
|
|
pszText, iCharCount, dwTextFlags, pRect, pOptions);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeBackgroundContentRect(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const BoundingRect: TRect; out ContentRect: TRect): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeBackgroundContentRect(hTheme,
|
|
DC, iPartId, iStateId, BoundingRect, ContentRect);
|
|
{$ELSE}
|
|
Result := _GetThemeBackgroundContentRect(hTheme,
|
|
DC, iPartId, iStateId, BoundingRect, ContentRect);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeBackgroundExtent(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pContentRect: PRect{$ELSE}const pContentRect: TRect{$ENDIF};
|
|
out ExtentRect: TRect): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeBackgroundExtent(hTheme, DC,
|
|
iPartId, iStateId, pContentRect, ExtentRect);
|
|
{$ELSE}
|
|
Result := _GetThemeBackgroundExtent(hTheme, DC,
|
|
iPartId, iStateId, pContentRect, ExtentRect);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemePartSize(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}prc: PRect{$ELSE}const prc: TRect{$ENDIF}; eSize: TdxThemeSize;
|
|
{$IFNDEF CLR}psz: PSize{$ELSE}out psz: TSize{$ENDIF}): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemePartSize(hTheme, DC, iPartId,
|
|
iStateId, prc, eSize, psz);
|
|
{$ELSE}
|
|
Result := _GetThemePartSize(hTheme, DC, iPartId,
|
|
iStateId, prc, eSize, psz);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
{$IFNDEF CLR}
|
|
function GetThemePartSize(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const prc: TRect; eSize: TdxThemeSize; out psz: TSize): HRESULT;
|
|
begin
|
|
Result := GetThemePartSize(hTheme, DC, iPartId, iStateId, @prc, eSize, @psz);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
function GetThemePartSize(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
eSize: TdxThemeSize; out psz: TSize): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := GetThemePartSize(hTheme, DC, iPartId, iStateId, nil, eSize, @psz);
|
|
{$ELSE}
|
|
Result := GetThemePartSize(hTheme, DC, iPartId, iStateId, TRect.Empty, eSize, psz);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeTextExtent(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
pszTextL: {$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF}; iCharCount: Integer; dwTextFlags: DWORD;
|
|
{$IFNDEF CLR}pBoundingRect: PRect{$ELSE}const pBoundingRect: TRect{$ENDIF}; out ExtentRect: TRect): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeTextExtent(hTheme, DC, iPartId,
|
|
iStateId, pszTextL, iCharCount, dwTextFlags, pBoundingRect, ExtentRect);
|
|
{$ELSE}
|
|
Result := _GetThemeTextExtent(hTheme, DC, iPartId,
|
|
iStateId, pszTextL, iCharCount, dwTextFlags, pBoundingRect, ExtentRect);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeTextMetrics(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
out tm: TEXTMETRIC): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeTextMetrics(hTheme, DC, iPartId,
|
|
iStateId, tm);
|
|
{$ELSE}
|
|
Result := _GetThemeTextMetrics(hTheme, DC, iPartId, iStateId, tm);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeBackgroundRegion(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF}; out Region: HRGN): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeBackgroundRegion(hTheme,
|
|
DC, iPartId, iStateId, pRect, Region);
|
|
{$ELSE}
|
|
Result := _GetThemeBackgroundRegion(hTheme, DC, iPartId, iStateId, pRect, Region);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function HitTestThemeBackground(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
dwOptions: DWORD; {$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF};
|
|
hRgn: HRGN; ptTest: TPoint; out wHitTestCode: WORD): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FHitTestThemeBackground(hTheme, DC,
|
|
iPartId, iStateId, dwOptions, pRect, hRgn, ptTest, wHitTestCode);
|
|
{$ELSE}
|
|
Result := _HitTestThemeBackground(hTheme, DC,
|
|
iPartId, iStateId, dwOptions, pRect, hRgn, ptTest, wHitTestCode);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function DrawThemeEdge(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pDestRect: PRect{$ELSE}const pDestRect: TRect{$ENDIF};
|
|
uEdge, uFlags: UINT; {$IFNDEF CLR}pContentRect: PRect{$ELSE}out pContentRect: TRect{$ENDIF}): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FDrawThemeEdge(hTheme, DC, iPartId, iStateId,
|
|
pDestRect, uEdge, uFlags, pContentRect);
|
|
{$ELSE}
|
|
Result := _DrawThemeEdge(hTheme, DC, iPartId, iStateId,
|
|
pDestRect, uEdge, uFlags, pContentRect);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
{$IFNDEF CLR}
|
|
function DrawThemeEdge(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pDestRect: TRect; uEdge, uFlags: UINT; out pContentRect: TRect): HRESULT;
|
|
begin
|
|
Result := DrawThemeEdge(hTheme, DC, iPartId, iStateId, @pDestRect, uEdge, uFlags, @pContentRect);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
function DrawThemeEdge(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
const pDestRect: TRect; uEdge, uFlags: UINT): HRESULT;
|
|
var
|
|
R: TRect;
|
|
begin
|
|
Result := DrawThemeEdge(hTheme, DC, iPartId, iStateId, pDestRect, uEdge, uFlags, R);
|
|
end;
|
|
|
|
function DrawThemeIcon(hTheme: TdxTheme; DC: HDC; iPartId, iStateId: Integer;
|
|
{$IFNDEF CLR}pRect: PRect{$ELSE}const pRect: TRect{$ENDIF}; himl: HIMAGELIST; iImageIndex: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FDrawThemeIcon(hTheme, DC, iPartId, iStateId,
|
|
pRect, himl, iImageIndex);
|
|
{$ELSE}
|
|
Result := _DrawThemeIcon(hTheme, DC, iPartId, iStateId,
|
|
pRect, himl, iImageIndex);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function IsThemePartDefined(hTheme: TdxTheme; iPartId: Integer; iStateId: Integer): BOOL;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FIsThemePartDefined(hTheme, iPartId, iStateId);
|
|
{$ELSE}
|
|
Result := _IsThemePartDefined(hTheme, iPartId, iStateId);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function IsThemeBackgroundPartiallyTransparent(hTheme: TdxTheme;
|
|
iPartId: Integer; iStateId: Integer): BOOL;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FIsThemeBackgroundPartiallyTransparent(hTheme,
|
|
iPartId, iStateId);
|
|
{$ELSE}
|
|
Result := _IsThemeBackgroundPartiallyTransparent(hTheme,
|
|
iPartId, iStateId);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function DrawThemeParentBackground(hWnd: HWND; DC: HDC; const prc: TRect): HRESULT;
|
|
var
|
|
AFontHandle: HFONT;
|
|
begin
|
|
AFontHandle := GetCurrentObject(DC, OBJ_FONT);
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FDrawThemeParentBackground(hWnd, DC, prc);
|
|
{$ELSE}
|
|
Result := _DrawThemeParentBackground(hWnd, DC, prc);
|
|
{$ENDIF}
|
|
SelectObject(DC, AFontHandle);
|
|
end;
|
|
|
|
function GetThemeColor(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Color: TColorRef): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeColor(hTheme, iPartId, iStateId, iPropId, Color);
|
|
{$ELSE}
|
|
Result := _GetThemeColor(hTheme, iPartId, iStateId, iPropId, Color);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeMetric(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeMetric(hTheme, DC, iPartId,
|
|
iStateId, iPropId, iVal);
|
|
{$ELSE}
|
|
Result := _GetThemeMetric(hTheme, DC, iPartId,
|
|
iStateId, iPropId, iVal);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeString(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszBuff: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF}; cchMaxBuffChars: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeString(hTheme, iPartId, iStateId,
|
|
iPropId, pszBuff, cchMaxBuffChars);
|
|
{$ELSE}
|
|
Result := _GetThemeString(hTheme, iPartId, iStateId,
|
|
iPropId, pszBuff, cchMaxBuffChars);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeBool(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out fVal: BOOL): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeBool(hTheme, iPartId, iStateId,
|
|
iPropId, fVal);
|
|
{$ELSE}
|
|
Result := _GetThemeBool(hTheme, iPartId, iStateId,
|
|
iPropId, fVal);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeInt(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeInt(hTheme, iPartId, iStateId,
|
|
iPropId, iVal);
|
|
{$ELSE}
|
|
Result := _GetThemeInt(hTheme, iPartId, iStateId,
|
|
iPropId, iVal);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeEnumValue(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out iVal: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeEnumValue(hTheme, iPartId,
|
|
iStateId, iPropId, iVal);
|
|
{$ELSE}
|
|
Result := _GetThemeEnumValue(hTheme, iPartId,
|
|
iStateId, iPropId, iVal);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemePosition(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Point: TPoint): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemePosition(hTheme, iPartId, iStateId,
|
|
iPropId, Point);
|
|
{$ELSE}
|
|
Result := _GetThemePosition(hTheme, iPartId, iStateId,
|
|
iPropId, Point);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeFont(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
out Font: {$IFNDEF CLR}LOGFONTW{$ELSE}LOGFONT{$ENDIF}): HRESULT;
|
|
{$IFNDEF CLR}
|
|
var
|
|
S: array [0 .. 1000] of Char;
|
|
{$ENDIF}
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeFont(hTheme, DC, iPartId, iStateId,
|
|
iPropId, Font);
|
|
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, Result, LOCALE_USER_DEFAULT, S, 1001, nil);
|
|
{$ELSE}
|
|
Result := _GetThemeFont(hTheme, DC, iPartId, iStateId,
|
|
iPropId, Font);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeRect(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Rect: TRect): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeRect(hTheme, iPartId, iStateId,
|
|
iPropId, Rect);
|
|
{$ELSE}
|
|
Result := _GetThemeRect(hTheme, iPartId, iStateId,
|
|
iPropId, Rect);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeMargins(hTheme: TdxTheme; DC: HDC; iPartId, iStateId, iPropId: Integer;
|
|
{$IFNDEF CLR}prc: PRect{$ELSE}const prc: TRect{$ENDIF}; out Margins: TdxMargins): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeMargins(hTheme, DC, iPartId,
|
|
iStateId, iPropId, prc, Margins);
|
|
{$ELSE}
|
|
Result := _GetThemeMargins(hTheme, DC, iPartId,
|
|
iStateId, iPropId, prc, Margins);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeIntList(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out IntList: TdxIntList): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeIntList(hTheme, iPartId, iStateId,
|
|
iPropId, IntList);
|
|
{$ELSE}
|
|
Result := _GetThemeIntList(hTheme, iPartId, iStateId,
|
|
iPropId, IntList);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemePropertyOrigin(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
out Origin: TdxPropertyOrigin): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemePropertyOrigin(hTheme, iPartId,
|
|
iStateId, iPropId, Origin);
|
|
{$ELSE}
|
|
Result := _GetThemePropertyOrigin(hTheme, iPartId,
|
|
iStateId, iPropId, Origin);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function SetWindowTheme(hWnd: HWND; pszSubAppName, pszSubIdList:
|
|
{$IFNDEF CLR}PWideChar{$ELSE}string{$ENDIF}): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FSetWindowTheme(hWnd, pszSubAppName, pszSubIdList);
|
|
{$ELSE}
|
|
Result := _SetWindowTheme(hWnd, pszSubAppName, pszSubIdList);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeFilename(hTheme: TdxTheme; iPartId, iStateId, iPropId: Integer;
|
|
pszThemeFileName: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF}; cchMaxBuffChars: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeFilename(hTheme, iPartId,
|
|
iStateId, iPropId, pszThemeFileName, cchMaxBuffChars);
|
|
{$ELSE}
|
|
Result := _GetThemeFilename(hTheme, iPartId,
|
|
iStateId, iPropId, pszThemeFileName, cchMaxBuffChars);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysColor(hTheme: TdxTheme; iColorId: Integer): COLORREF;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysColor(hTheme, iColorId);
|
|
{$ELSE}
|
|
Result := _GetThemeSysColor(hTheme, iColorId);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysColorBrush(hTheme: TdxTheme; iColorId: Integer): HBRUSH;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysColorBrush(hTheme, iColorId);
|
|
{$ELSE}
|
|
Result := _GetThemeSysColorBrush(hTheme, iColorId);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysBool(hTheme: TdxTheme; iBoolId: Integer): BOOL;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysBool(hTheme, iBoolId);
|
|
{$ELSE}
|
|
Result := _GetThemeSysBool(hTheme, iBoolId);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysSize(hTheme: TdxTheme; iSizeId: Integer): Integer;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysSize(hTheme, iSizeId);
|
|
{$ELSE}
|
|
Result := _GetThemeSysSize(hTheme, iSizeId);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysFont(hTheme: TdxTheme; iFontId: Integer;
|
|
out lf: {$IFNDEF CLR}LOGFONTW{$ELSE}LOGFONT{$ENDIF}): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysFont(hTheme, iFontId, lf);
|
|
{$ELSE}
|
|
Result := _GetThemeSysFont(hTheme, iFontId, lf);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysString(hTheme: TdxTheme; iStringId: Integer; pszStringBuff:
|
|
{$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF}; cchMaxStringChars: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysString(hTheme, iStringId,
|
|
pszStringBuff, cchMaxStringChars);
|
|
{$ELSE}
|
|
Result := _GetThemeSysString(hTheme, iStringId,
|
|
pszStringBuff, cchMaxStringChars);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeSysInt(hTheme: TdxTheme; iIntId: Integer; var iValue: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeSysInt(hTheme, iIntId, iValue);
|
|
{$ELSE}
|
|
Result := _GetThemeSysInt(hTheme, iIntId, iValue);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function IsThemeActive: BOOL;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FIsThemeActive;
|
|
{$ELSE}
|
|
Result := _IsThemeActive;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function IsAppThemed: BOOL;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FIsAppThemed;
|
|
{$ELSE}
|
|
Result := _IsAppThemed;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetWindowTheme(hWnd: HWND): TdxTheme;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetWindowTheme(hWnd);
|
|
{$ELSE}
|
|
Result := _GetWindowTheme(hWnd);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function EnableThemeDialogTexture(hWnd: HWND; dwFlags: DWORD): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FEnableThemeDialogTexture(hWnd, dwFlags);
|
|
{$ELSE}
|
|
Result := _EnableThemeDialogTexture(hWnd, dwFlags);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function IsThemeDialogTextureEnabled(hWnd: HWND): BOOL;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FIsThemeDialogTextureEnabled(hWnd);
|
|
{$ELSE}
|
|
Result := _IsThemeDialogTextureEnabled(hWnd);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeAppProperties: DWORD;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeAppProperties;
|
|
{$ELSE}
|
|
Result := _GetThemeAppProperties;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure SetThemeAppProperties(dwFlags: DWORD);
|
|
begin
|
|
{$IFNDEF CLR}
|
|
FThemeLibraryMethodPointersKeeper.FSetThemeAppProperties(dwFlags);
|
|
{$ELSE}
|
|
_SetThemeAppProperties(dwFlags);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetCurrentThemeName(pszThemeFileName: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF};
|
|
cchMaxNameChars: Integer; pszColorBuff: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF};
|
|
cchMaxColorChars: Integer; pszSizeBuff: {$IFNDEF CLR}PWideChar{$ELSE}StringBuilder{$ENDIF};
|
|
cchMaxSizeChars: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetCurrentThemeName(pszThemeFileName,
|
|
cchMaxNameChars, pszColorBuff, cchMaxColorChars, pszSizeBuff, cchMaxSizeChars);
|
|
{$ELSE}
|
|
Result := _GetCurrentThemeName(pszThemeFileName,
|
|
cchMaxNameChars, pszColorBuff, cchMaxColorChars, pszSizeBuff, cchMaxSizeChars);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
function GetThemeDocumentationProperty(
|
|
{$IFNDEF CLR}
|
|
pszThemeName, pszPropertyName, pszValueBuff: PWideChar;
|
|
{$ELSE}
|
|
pszThemeName, pszPropertyName: string;
|
|
pszValueBuff: StringBuilder;
|
|
{$ENDIF}
|
|
cchMaxValChars: Integer): HRESULT;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Result := FThemeLibraryMethodPointersKeeper.FGetThemeDocumentationProperty(pszThemeName,
|
|
pszPropertyName, pszValueBuff, cchMaxValChars);
|
|
{$ELSE}
|
|
Result := _GetThemeDocumentationProperty(pszThemeName,
|
|
pszPropertyName, pszValueBuff, cchMaxValChars);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
//vista extention
|
|
{$IFNDEF CLR}
|
|
function BufferedPaintInit: HRESULT;
|
|
begin
|
|
Result := FThemeLibraryMethodPointersKeeper.FBufferedPaintInit;
|
|
end;
|
|
|
|
function BufferedPaintUnInit: HRESULT;
|
|
begin
|
|
Result := FThemeLibraryMethodPointersKeeper.FBufferedPaintUnInit;
|
|
end;
|
|
|
|
function BeginBufferedPaint(hdcTarget: HDC; prcTarget: PRect;
|
|
dwFormat: TBPBufferFormat; pPaintParams: PBPPaintParams; out dc: HDC): TdxPaintBuffer;
|
|
begin
|
|
Result := FThemeLibraryMethodPointersKeeper.FBeginBufferedPaint(hdcTarget,
|
|
prcTarget, dwFormat, pPaintParams, dc);
|
|
end;
|
|
|
|
function EndBufferedPaint(hBufferedPaint: TdxPaintBuffer; fUpdateTarget: BOOL): HRESULT;
|
|
begin
|
|
Result := FThemeLibraryMethodPointersKeeper.FEndBufferedPaint(hBufferedPaint, fUpdateTarget);
|
|
end;
|
|
|
|
function BufferedPaintSetAlpha(hBufferedPaint: TdxPaintBuffer; prc: PRect; alpha: Byte): HRESULT;
|
|
begin
|
|
Result := FThemeLibraryMethodPointersKeeper.FBufferedPaintSetAlpha(hBufferedPaint, prc, alpha);
|
|
end;
|
|
{$ENDIF}
|
|
|
|
|
|
function IsThemeLibraryLoaded: Boolean;
|
|
begin
|
|
Result := FThemeLibrary <> 0;
|
|
end;
|
|
|
|
function IsWindowsXPOrLater: Boolean;
|
|
begin
|
|
Result := FIsWindowsXPOrLater;
|
|
end;
|
|
|
|
procedure CheckOSVersion;
|
|
var
|
|
Info: TOSVersionInfo;
|
|
begin
|
|
{$IFNDEF CLR}
|
|
Info.dwOSVersionInfoSize := SizeOf(Info);
|
|
{$ELSE}
|
|
Info.dwOSVersionInfoSize := Marshal.SizeOf(TypeOf(Info));
|
|
{$ENDIF}
|
|
GetVersionEx(Info);
|
|
FIsWindowsXPOrLater := (Info.dwMajorVersion > 5) or
|
|
((Info.dwMajorVersion = 5) and (Info.dwMinorVersion >= 1));
|
|
end;
|
|
|
|
{$IFNDEF CLR}
|
|
|
|
procedure SetMethodPointers;
|
|
begin
|
|
with FThemeLibraryMethodPointersKeeper do
|
|
begin
|
|
@FCloseThemeData := GetProcAddress(FThemeLibrary, 'CloseThemeData');
|
|
@FDrawThemeBackground := GetProcAddress(FThemeLibrary, 'DrawThemeBackground');
|
|
@FDrawThemeEdge := GetProcAddress(FThemeLibrary, 'DrawThemeEdge');
|
|
@FDrawThemeIcon := GetProcAddress(FThemeLibrary, 'DrawThemeIcon');
|
|
@FDrawThemeParentBackground := GetProcAddress(FThemeLibrary, 'DrawThemeParentBackground');
|
|
@FDrawThemeText := GetProcAddress(FThemeLibrary, 'DrawThemeText');
|
|
@FDrawThemeTextEx := GetProcAddress(FThemeLibrary, 'DrawThemeTextEx');
|
|
@FEnableThemeDialogTexture := GetProcAddress(FThemeLibrary, 'EnableThemeDialogTexture');
|
|
@FGetCurrentThemeName := GetProcAddress(FThemeLibrary, 'GetCurrentThemeName');
|
|
@FGetThemeAppProperties := GetProcAddress(FThemeLibrary, 'GetThemeAppProperties');
|
|
@FGetThemeBackgroundContentRect := GetProcAddress(FThemeLibrary, 'GetThemeBackgroundContentRect');
|
|
@FGetThemeBackgroundRegion := GetProcAddress(FThemeLibrary, 'GetThemeBackgroundRegion');
|
|
@FGetThemeBackgroundExtent := GetProcAddress(FThemeLibrary, 'GetThemeBackgroundExtent');
|
|
@FGetThemeBool := GetProcAddress(FThemeLibrary, 'GetThemeBool');
|
|
@FGetThemeColor := GetProcAddress(FThemeLibrary, 'GetThemeColor');
|
|
@FGetThemeDocumentationProperty := GetProcAddress(FThemeLibrary, 'GetThemeDocumentationProperty');
|
|
@FGetThemeEnumValue := GetProcAddress(FThemeLibrary, 'GetThemeEnumValue');
|
|
@FGetThemeFilename := GetProcAddress(FThemeLibrary, 'GetThemeFilename');
|
|
@FGetThemeFont := GetProcAddress(FThemeLibrary, 'GetThemeFont');
|
|
@FGetThemeInt := GetProcAddress(FThemeLibrary, 'GetThemeInt');
|
|
@FGetThemeIntList := GetProcAddress(FThemeLibrary, 'GetThemeIntList');
|
|
@FGetThemeMargins := GetProcAddress(FThemeLibrary, 'GetThemeMargins');
|
|
@FGetThemeMetric := GetProcAddress(FThemeLibrary, 'GetThemeMetric');
|
|
@FGetThemePartSize := GetProcAddress(FThemeLibrary, 'GetThemePartSize');
|
|
@FGetThemePosition := GetProcAddress(FThemeLibrary, 'GetThemePosition');
|
|
@FGetThemePropertyOrigin := GetProcAddress(FThemeLibrary, 'GetThemePropertyOrigin');
|
|
@FGetThemeRect := GetProcAddress(FThemeLibrary, 'GetThemeRect');
|
|
@FGetThemeString := GetProcAddress(FThemeLibrary, 'GetThemeString');
|
|
@FGetThemeSysBool := GetProcAddress(FThemeLibrary, 'GetThemeSysBool');
|
|
@FGetThemeSysColor := GetProcAddress(FThemeLibrary, 'GetThemeSysColor');
|
|
@FGetThemeSysColorBrush := GetProcAddress(FThemeLibrary, 'GetThemeSysColorBrush');
|
|
@FGetThemeSysFont := GetProcAddress(FThemeLibrary, 'GetThemeSysFont');
|
|
@FGetThemeSysInt := GetProcAddress(FThemeLibrary, 'GetThemeSysInt');
|
|
@FGetThemeSysSize := GetProcAddress(FThemeLibrary, 'GetThemeSysSize');
|
|
@FGetThemeSysString := GetProcAddress(FThemeLibrary, 'GetThemeSysString');
|
|
@FGetThemeTextExtent := GetProcAddress(FThemeLibrary, 'GetThemeTextExtent');
|
|
@FGetThemeTextMetrics := GetProcAddress(FThemeLibrary, 'GetThemeTextMetrics');
|
|
@FGetWindowTheme := GetProcAddress(FThemeLibrary, 'GetWindowTheme');
|
|
@FHitTestThemeBackground := GetProcAddress(FThemeLibrary, 'HitTestThemeBackground');
|
|
@FIsAppThemed := GetProcAddress(FThemeLibrary, 'IsAppThemed');
|
|
@FIsThemeActive := GetProcAddress(FThemeLibrary, 'IsThemeActive');
|
|
@FIsThemePartDefined := GetProcAddress(FThemeLibrary, 'IsThemePartDefined');
|
|
@FIsThemeBackgroundPartiallyTransparent := GetProcAddress(FThemeLibrary, 'IsThemeBackgroundPartiallyTransparent');
|
|
@FIsThemeDialogTextureEnabled := GetProcAddress(FThemeLibrary, 'IsThemeDialogTextureEnabled');
|
|
@FOpenThemeData := GetProcAddress(FThemeLibrary, 'OpenThemeData');
|
|
@FSetThemeAppProperties := GetProcAddress(FThemeLibrary, 'SetThemeAppProperties');
|
|
@FSetWindowTheme := GetProcAddress(FThemeLibrary, 'SetWindowTheme');
|
|
//vista extention
|
|
@FBufferedPaintInit := GetProcAddress(FThemeLibrary, 'BufferedPaintInit');
|
|
@FBufferedPaintUnInit := GetProcAddress(FThemeLibrary, 'BufferedPaintUnInit');
|
|
@FBeginBufferedPaint := GetProcAddress(FThemeLibrary, 'BeginBufferedPaint');
|
|
@FEndBufferedPaint := GetProcAddress(FThemeLibrary, 'EndBufferedPaint');
|
|
@FBufferedPaintSetAlpha := GetProcAddress(FThemeLibrary, 'BufferedPaintSetAlpha');
|
|
end;
|
|
end;
|
|
|
|
{$ENDIF}
|
|
|
|
initialization
|
|
CheckOSVersion;
|
|
{$IFNDEF CLR}
|
|
InitCommonControls;
|
|
{$ENDIF}
|
|
if FIsWindowsXPOrLater (*and (GetComCtlVersion >= $60000) *)then
|
|
begin
|
|
FThemeLibrary := LoadLibrary(ThemeLibraryName);
|
|
{$IFNDEF CLR}
|
|
if FThemeLibrary <> 0 then
|
|
SetMethodPointers;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
finalization
|
|
if FThemeLibrary <> 0 then
|
|
FreeLibrary(FThemeLibrary);
|
|
|
|
end.
|