se_winxp.pas
来自「小区水费管理系统源代码水费收费管理系统 水费收费管理系统」· PAS 代码 · 共 1,652 行 · 第 1/5 页
PAS
1,652 行
SPP_MOREPROGRAMS = 2;
SPP_MOREPROGRAMSARROW = 3;
SPP_PROGLIST = 4;
SPP_PROGLISTSEPARATOR = 5;
SPP_PLACESLIST = 6;
SPP_PLACESLISTSEPARATOR = 7;
SPP_LOGOFF = 8;
SPP_LOGOFFBUTTONS = 9;
SPP_USERPICTURE = 10;
SPP_PREVIEW = 11;
{ MOREPROGRAMSARROWSTATES }
SPS_NORMAL = 1;
SPS_HOT = 2;
SPS_PRESSED = 3;
{ LOGOFFBUTTONSSTATES }
SPLS_NORMAL = 1;
SPLS_HOT = 2;
SPLS_PRESSED = 3;
{ "ExplorerBar" Parts & States }
{ EXPLORERBARPARTS }
EBP_HEADERBACKGROUND = 1;
EBP_HEADERCLOSE = 2;
EBP_HEADERPIN = 3;
EBP_IEBARMENU = 4;
EBP_NORMALGROUPBACKGROUND = 5;
EBP_NORMALGROUPCOLLAPSE = 6;
EBP_NORMALGROUPEXPAND = 7;
EBP_NORMALGROUPHEAD = 8;
EBP_SPECIALGROUPBACKGROUND = 9;
EBP_SPECIALGROUPCOLLAPSE = 10;
EBP_SPECIALGROUPEXPAND = 11;
EBP_SPECIALGROUPHEAD = 12;
{ HEADERCLOSESTATES }
EBHC_NORMAL = 1;
EBHC_HOT = 2;
EBHC_PRESSED = 3;
{ HEADERPINSTATES }
EBHP_NORMAL = 1;
EBHP_HOT = 2;
EBHP_PRESSED = 3;
EBHP_SELECTEDNORMAL = 4;
EBHP_SELECTEDHOT = 5;
EBHP_SELECTEDPRESSED = 6;
{ IEBARMENUSTATES }
EBM_NORMAL = 1;
EBM_HOT = 2;
EBM_PRESSED = 3;
{ NORMALGROUPCOLLAPSESTATES }
EBNGC_NORMAL = 1;
EBNGC_HOT = 2;
EBNGC_PRESSED = 3;
{ NORMALGROUPEXPANDSTATES }
EBNGE_NORMAL = 1;
EBNGE_HOT = 2;
EBNGE_PRESSED = 3;
{ SPECIALGROUPCOLLAPSESTATES }
EBSGC_NORMAL = 1;
EBSGC_HOT = 2;
EBSGC_PRESSED = 3;
{ SPECIALGROUPEXPANDSTATES }
EBSGE_NORMAL = 1;
EBSGE_HOT = 2;
EBSGE_PRESSED = 3;
{ "TaskBand" Parts & States }
{ MENUBANDPARTS }
MDP_NEWAPPBUTTON = 1;
MDP_SEPERATOR = 2;
{ MENUBANDSTATES }
MDS_NORMAL = 1;
MDS_HOT = 2;
MDS_PRESSED = 3;
MDS_DISABLED = 4;
MDS_CHECKED = 5;
MDS_HOTCHECKED = 6;
{ Access to uxtheme.dll }
type
HIMAGELIST = THandle;
HTHEME = THandle;
const
DTT_GRAYED = $1;
HTTB_BACKGROUNDSEG = $0000;
HTTB_FIXEDBORDER = $0002;
HTTB_CAPTION = $0004;
HTTB_RESIZINGBORDER_LEFT = $0010;
HTTB_RESIZINGBORDER_TOP = $0020;
HTTB_RESIZINGBORDER_RIGHT = $0040;
HTTB_RESIZINGBORDER_BOTTOM = $0080;
HTTB_SIZINGTEMPLATE = $0100;
HTTB_SYSTEMSIZINGMARGINS = $0200;
HTTB_RESIZINGBORDER = HTTB_RESIZINGBORDER_LEFT or HTTB_RESIZINGBORDER_TOP or
HTTB_RESIZINGBORDER_RIGHT or HTTB_RESIZINGBORDER_BOTTOM;
//------------------------------------------------------------------------------
// OpenThemeData() - Open the theme data for the specified HWND and
// semi-colon separated list of class names.
//
// OpenThemeData() will try each class name, one at
// a time, and use the first matching theme info
// found. If a match is found, a theme handle
// to the data is returned. If no match is found,
// a "NULL" handle is returned.
//
// When the window is destroyed or a WM_THEMECHANGED
// msg is received, "CloseThemeData()" should be
// called to close the theme handle.
//
// hwnd - window handle of the control/window to be themed
//
// pszClassList - class name (or list of names) to match to theme data
// section. if the list contains more than one name,
// the names are tested one at a time for a match.
// If a match is found, OpenThemeData() returns a
// theme handle associated with the matching class.
// This param is a list (instead of just a single
// class name) to provide the class an opportunity
// to get the "best" match between the class and
// the current theme. For example, a button might
// pass L"OkButton, Button" if its ID=ID_OK. If
// the current theme has an entry for OkButton,
// that will be used. Otherwise, we fall back on
// the normal Button entry.
//------------------------------------------------------------------------------
var
OpenThemeData: function(hwnd: HWND; pszClassList: LPCWSTR): HTHEME; stdcall;
//------------------------------------------------------------------------------
// CloseThemeData() - closes the theme data handle. This should be done
// when the window being themed is destroyed or
// whenever a WM_THEMECHANGED msg is received
// (followed by an attempt to create a new Theme data
// handle).
//
// hTheme - open theme data handle (returned from prior call
// to OpenThemeData() API).
//------------------------------------------------------------------------------
CloseThemeData: function(hTheme: HTHEME): HRESULT; stdcall;
//------------------------------------------------------------------------------
// functions for basic drawing support
//------------------------------------------------------------------------------
// The following methods are the theme-aware drawing services.
// Controls/Windows are defined in drawable "parts" by their author: a
// parent part and 0 or more child parts. Each of the parts can be
// described in "states" (ex: disabled, hot, pressed).
//------------------------------------------------------------------------------
// For the list of all themed classes and the definition of all
// parts and states, see the file "tmschmea.h".
//------------------------------------------------------------------------------
// Each of the below methods takes a "iPartId" param to specify the
// part and a "iStateId" to specify the state of the part.
// "iStateId=0" refers to the root part. "iPartId" = "0" refers to
// the root class.
//------------------------------------------------------------------------------
// Note: draw operations are always scaled to fit (and not to exceed)
// the specified "Rect".
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
// DrawThemeBackground()
// - draws the theme-specified border and fill for
// the "iPartId" and "iStateId". This could be
// based on a bitmap file, a border and fill, or
// other image description.
//
// hTheme - theme data handle
// hdc - HDC to draw into
// iPartId - part number to draw
// iStateId - state number (of the part) to draw
// pRect - defines the size/location of the part
// pClipRect - optional clipping rect (don't draw outside it)
//------------------------------------------------------------------------------
DrawThemeBackground: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer;
const Rect: TRect; pClipRect: PRect): HRESULT; stdcall;
//------------------------------------------------------------------------------
// DrawThemeText() - draws the text using the theme-specified
// color and font for the "iPartId" and
// "iStateId".
//
// hTheme - theme data handle
// hdc - HDC to draw into
// iPartId - part number to draw
// iStateId - state number (of the part) to draw
// pszText - actual text to draw
// dwCharCount - number of chars to draw (-1 for all)
// dwTextFlags - same as DrawText() "uFormat" param
// dwTextFlags2 - additional drawing options
// pRect - defines the size/location of the part
//------------------------------------------------------------------------------
DrawThemeText: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; pszText: LPCWSTR; iCharCount: Integer;
dwTextFlags, dwTextFlags2: DWORD; const pRect: TRect): HRESULT; stdcall;
//------------------------------------------------------------------------------
// GetThemeBackgroundContentRect()
// - gets the size of the content for the theme-defined
// background. This is usually the area inside
// the borders or Margins.
//
// hTheme - theme data handle
// hdc - (optional) device content to be used for drawing
// iPartId - part number to draw
// iStateId - state number (of the part) to draw
// pBoundingRect - the outer RECT of the part being drawn
// pContentRect - RECT to receive the content area
//------------------------------------------------------------------------------
GetThemeBackgroundContentRect: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer;
const pBoundingRect: TRect; pContentRect: PRECT): HRESULT; stdcall;
//------------------------------------------------------------------------------
// GetThemeBackgroundExtent() - calculates the size/location of the theme-
// specified background based on the
// "pContentRect".
//
// hTheme - theme data handle
// hdc - (optional) device content to be used for drawing
// iPartId - part number to draw
// iStateId - state number (of the part) to draw
// pContentRect - RECT that defines the content area
// pBoundingRect - RECT to receive the overall size/location of part
//------------------------------------------------------------------------------
GetThemeBackgroundExtent: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; const pContentRect: TRect;
var pExtentRect: TRect): HRESULT; stdcall;
//------------------------------------------------------------------------------
// GetThemePartSize() - returns the specified size of the theme part
//
// hTheme - theme data handle
// hdc - HDC to select font into & measure against
// iPartId - part number to retrieve size for
// iStateId - state number (of the part)
// prc - (optional) rect for part drawing destination
// eSize - the type of size to be retreived
// psz - receives the specified size of the part
//------------------------------------------------------------------------------
type
THEMESIZE = (
TS_MIN, // minimum size of a visual style part
TS_TRUE, // size of the visual style part that will best fit the available space
TS_DRAW); // size that the theme manager uses to draw a part
TThemeSize = THEMESIZE;
var
GetThemePartSize: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; prc: PRECT; eSize: THEMESIZE;
var psz: TSize): HRESULT; stdcall;
//------------------------------------------------------------------------------
// GetThemeTextExtent() - calculates the size/location of the specified
// text when rendered in the Theme Font.
//
// hTheme - theme data handle
// hdc - HDC to select font & measure into
// iPartId - part number to draw
// iStateId - state number (of the part)
// pszText - the text to be measured
// dwCharCount - number of chars to draw (-1 for all)
// dwTextFlags - same as DrawText() "uFormat" param
// pszBoundingRect - optional: to control layout of text
// pszExtentRect - receives the RECT for text size/location
//------------------------------------------------------------------------------
GetThemeTextExtent: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer; pszText: LPCWSTR;
iCharCount: Integer; dwTextFlags: DWORD; pBoundingRect: PRECT; var pExtentRect: TRect): HRESULT; stdcall;
//------------------------------------------------------------------------------
// GetThemeTextMetrics()
// - returns info about the theme-specified font
// for the part/state passed in.
//
// hTheme - theme data handle
// hdc - optional: HDC for screen context
// iPartId - part number to draw
// iStateId - state number (of the part)
// ptm - receives the font info
//------------------------------------------------------------------------------
GetThemeTextMetrics: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId: Integer;
var ptm: TEXTMETRIC): HRESULT; stdcall;
//------------------------------------------------------------------------------
// GetThemeBackgroundRegion()
// - computes the region for a regular or partially
// transparent theme-specified background that is
// bound by the specified "pRect".
// If the rectangle is empty, sets the HRGN to NULL
// and return S_FALSE.
//
// hTheme - theme data handle
// hdc - optional HDC to draw into (DPI scaling)
// iPartId - part number to draw
// iStateId - state number (of the part)
// pRect - the RECT used to draw the part
// pRegion - receives handle to calculated region
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?