se_winxp.pas
来自「小区水费管理系统源代码水费收费管理系统 水费收费管理系统」· PAS 代码 · 共 1,652 行 · 第 1/5 页
PAS
1,652 行
{==============================================================================
Windows XP Declarations
Copyright (C) 2000-2002 by Evgeny Kryukov
All rights reserved
Pascal code is Marcel van Brakel (brakelm@chello.nl)
All contents of this file and all other files included in this archive
are Copyright (C) 2002 Evgeny Kryukov. Use and/or distribution of
them requires acceptance of the License Agreement.
See License.txt for licence information
$Id: se_winxp.pas,v 1.11 2002/10/29 02:41:20 Evgeny Exp $
===============================================================================}
unit se_winxp;
{$I se_define.Inc}
interface
uses
Windows, CommCtrl;
procedure FreeThemeLibrary;
function InitThemeLibrary: Boolean;
function UseThemes: Boolean;
const
WM_THEMECHANGED = $031A;
{$DEFINE TMSCHEMA_H}
const
THEMEMGR_VERSION = 1;
{ Enumerators }
const
{ BGTYPE }
BT_IMAGEFILE = 0;
BT_BORDERFILL = 1;
BT_NONE = 2;
{ IMAGELAYOUT }
IL_VERTICAL = 0;
IL_HORIZONTAL = 1;
{ BORDERTYPE }
BT_RECT = 0;
BT_ROUNDRECT = 1;
BT_ELLIPSE = 2;
{ FILLTYPE }
FT_SOLID = 0;
FT_VERTGRADIENT = 1;
FT_HORZGRADIENT = 2;
FT_RADIALGRADIENT = 3;
FT_TILEIMAGE = 4;
{ SIZINGTYPE }
ST_TRUESIZE = 0;
ST_STRETCH = 1;
ST_TILE = 2;
{ HALIGN }
HA_LEFT = 0;
HA_CENTER = 1;
HA_RIGHT = 2;
{ CONTENTALIGNMENT }
CA_LEFT = 0;
CA_CENTER = 1;
CA_RIGHT = 2;
{ VALIGN }
VA_TOP = 0;
VA_CENTER = 1;
VA_BOTTOM = 2;
{ OFFSETTYPE }
OT_TOPLEFT = 0;
OT_TOPRIGHT = 1;
OT_TOPMIDDLE = 2;
OT_BOTTOMLEFT = 3;
OT_BOTTOMRIGHT = 4;
OT_BOTTOMMIDDLE = 5;
OT_MIDDLELEFT = 6;
OT_MIDDLERIGHT = 7;
OT_LEFTOFCAPTION = 8;
OT_RIGHTOFCAPTION = 9;
OT_LEFTOFLASTBUTTON = 10;
OT_RIGHTOFLASTBUTTON = 11;
OT_ABOVELASTBUTTON = 12;
OT_BELOWLASTBUTTON = 13;
{ ICONEFFECT }
ICE_NONE = 0;
ICE_GLOW = 1;
ICE_SHADOW = 2;
ICE_PULSE = 3;
ICE_ALPHA = 4;
{ TEXTSHADOWTYPE }
TST_NONE = 0;
TST_SINGLE = 1;
TST_CONTINUOUS = 2;
{ GLYPHTYPE }
GT_NONE = 0;
GT_IMAGEGLYPH = 1;
GT_FONTGLYPH = 2;
{ IMAGESELECTTYPE }
IST_NONE = 0;
IST_SIZE = 1;
IST_DPI = 2;
{ TRUESIZESCALINGTYPE }
TSST_NONE = 0;
TSST_SIZE = 1;
TSST_DPI = 2;
{ GLYPHFONTSIZINGTYPE }
GFST_NONE = 0;
GFST_SIZE = 1;
GFST_DPI = 2;
{ PROPERTIES - used by uxtheme rendering and controls }
const
{ primitive types }
TMT_STRING = 201;
TMT_INT = 202;
TMT_BOOL = 203;
TMT_COLOR = 204;
TMT_MARGINS = 205;
TMT_FILENAME = 206;
TMT_SIZE = 207;
TMT_POSITION = 208;
TMT_RECT = 209;
TMT_FONT = 210;
TMT_INTLIST = 211;
{ special misc. properties }
TMT_COLORSCHEMES = 401;
TMT_SIZES = 402;
TMT_CHARSET = 403;
{ [documentation] properties }
TMT_DISPLAYNAME = 601;
TMT_TOOLTIP = 602;
TMT_COMPANY = 603;
TMT_AUTHOR = 604;
TMT_COPYRIGHT = 605;
TMT_URL = 606;
TMT_VERSION = 607;
TMT_DESCRIPTION = 608;
{ theme metrics: fonts }
TMT_CAPTIONFONT = 801;
TMT_SMALLCAPTIONFONT = 802;
TMT_MENUFONT = 803;
TMT_STATUSFONT = 804;
TMT_MSGBOXFONT = 805;
TMT_ICONTITLEFONT = 806;
{ theme metrics: bools }
TMT_FLATMENUS = 1001;
{ theme metrics: sizes }
TMT_SIZINGBORDERWIDTH = 1201;
TMT_SCROLLBARWIDTH = 1202;
TMT_SCROLLBARHEIGHT = 1203;
TMT_CAPTIONBARWIDTH = 1204;
TMT_CAPTIONBARHEIGHT = 1205;
TMT_SMCAPTIONBARWIDTH = 1206;
TMT_SMCAPTIONBARHEIGHT = 1207;
TMT_MENUBARWIDTH = 1208;
TMT_MENUBARHEIGHT = 1209;
{ theme metrics: ints }
TMT_MINCOLORDEPTH = 1301;
{ theme metrics: strings }
TMT_CSSNAME = 1401;
TMT_XMLNAME = 1402;
{ theme metrics: colors }
TMT_SCROLLBAR = 1601;
TMT_BACKGROUND = 1602;
TMT_ACTIVECAPTION = 1603;
TMT_INACTIVECAPTION = 1604;
TMT_MENU = 1605;
TMT_WINDOW = 1606;
TMT_WINDOWFRAME = 1607;
TMT_MENUTEXT = 1608;
TMT_WINDOWTEXT = 1609;
TMT_CAPTIONTEXT = 1610;
TMT_ACTIVEBORDER = 1611;
TMT_INACTIVEBORDER = 1612;
TMT_APPWORKSPACE = 1613;
TMT_HIGHLIGHT = 1614;
TMT_HIGHLIGHTTEXT = 1615;
TMT_BTNFACE = 1616;
TMT_BTNSHADOW = 1617;
TMT_GRAYTEXT = 1618;
TMT_BTNTEXT = 1619;
TMT_INACTIVECAPTIONTEXT = 1620;
TMT_BTNHIGHLIGHT = 1621;
TMT_DKSHADOW3D = 1622;
TMT_LIGHT3D = 1623;
TMT_INFOTEXT = 1624;
TMT_INFOBK = 1625;
TMT_BUTTONALTERNATEFACE = 1626;
TMT_HOTTRACKING = 1627;
TMT_GRADIENTACTIVECAPTION = 1628;
TMT_GRADIENTINACTIVECAPTION = 1629;
TMT_MENUHILIGHT = 1630;
TMT_MENUBAR = 1631;
{ hue substitutions }
TMT_FROMHUE1 = 1801;
TMT_FROMHUE2 = 1802;
TMT_FROMHUE3 = 1803;
TMT_FROMHUE4 = 1804;
TMT_FROMHUE5 = 1805;
TMT_TOHUE1 = 1806;
TMT_TOHUE2 = 1807;
TMT_TOHUE3 = 1808;
TMT_TOHUE4 = 1809;
TMT_TOHUE5 = 1810;
{ color substitutions }
TMT_FROMCOLOR1 = 2001;
TMT_FROMCOLOR2 = 2002;
TMT_FROMCOLOR3 = 2003;
TMT_FROMCOLOR4 = 2004;
TMT_FROMCOLOR5 = 2005;
TMT_TOCOLOR1 = 2006;
TMT_TOCOLOR2 = 2007;
TMT_TOCOLOR3 = 2008;
TMT_TOCOLOR4 = 2009;
TMT_TOCOLOR5 = 2010;
{ rendering BOOL properties }
TMT_TRANSPARENT = 2201;
TMT_AUTOSIZE = 2202;
TMT_BORDERONLY = 2203;
TMT_COMPOSITED = 2204;
TMT_BGFILL = 2205;
TMT_GLYPHTRANSPARENT = 2206;
TMT_GLYPHONLY = 2207;
TMT_ALWAYSSHOWSIZINGBAR = 2208;
TMT_MIRRORIMAGE = 2209;
TMT_UNIFORMSIZING = 2210;
TMT_INTEGRALSIZING = 2211;
TMT_SOURCEGROW = 2212;
TMT_SOURCESHRINK = 2213;
{ rendering INT properties }
TMT_IMAGECOUNT = 2401;
TMT_ALPHALEVEL = 2402;
TMT_BORDERSIZE = 2403;
TMT_ROUNDCORNERWIDTH = 2404;
TMT_ROUNDCORNERHEIGHT = 2405;
TMT_GRADIENTRATIO1 = 2406;
TMT_GRADIENTRATIO2 = 2407;
TMT_GRADIENTRATIO3 = 2408;
TMT_GRADIENTRATIO4 = 2409;
TMT_GRADIENTRATIO5 = 2410;
TMT_PROGRESSCHUNKSIZE = 2411;
TMT_PROGRESSSPACESIZE = 2412;
TMT_SATURATION = 2413;
TMT_TEXTBORDERSIZE = 2414;
TMT_ALPHATHRESHOLD = 2415;
TMT_WIDTH = 2416;
TMT_HEIGHT = 2417;
TMT_GLYPHINDEX = 2418;
TMT_TRUESIZESTRETCHMARK = 2419;
TMT_MINDPI1 = 2420;
TMT_MINDPI2 = 2421;
TMT_MINDPI3 = 2422;
TMT_MINDPI4 = 2423;
TMT_MINDPI5 = 2424;
{ rendering FONT properties }
TMT_GLYPHFONT = 2601;
{ rendering INTLIST properties }
TMT_FILESIZES = 2801;
{ rendering FILENAME properties }
TMT_IMAGEFILE = 3001;
TMT_IMAGEFILE1 = 3002;
TMT_IMAGEFILE2 = 3003;
TMT_IMAGEFILE3 = 3004;
TMT_IMAGEFILE4 = 3005;
TMT_IMAGEFILE5 = 3006;
TMT_STOCKIMAGEFILE = 3007;
TMT_GLYPHIMAGEFILE = 3008;
{ rendering STRING properties }
TMT_TEXT = 3201;
{ rendering POSITION (x and y values) properties }
TMT_OFFSET = 3401;
TMT_TEXTSHADOWOFFSET = 3402;
TMT_MINSIZE = 3403;
TMT_MINSIZE1 = 3404;
TMT_MINSIZE2 = 3405;
TMT_MINSIZE3 = 3406;
TMT_MINSIZE4 = 3407;
TMT_MINSIZE5 = 3408;
TMT_NORMALSIZE = 3409;
{ rendering MARGIN properties }
TMT_SIZINGMARGINS = 3601;
TMT_CONTENTMARGINS = 3602;
TMT_CAPTIONMARGINS = 3603;
{ rendering COLOR properties }
TMT_BORDERCOLOR = 3801;
TMT_FILLCOLOR = 3802;
TMT_TEXTCOLOR = 3803;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?