Delphi ÍêȫʱÉÐÊÖ²áÖ® Visual Style ƪ
ÕâÀïÏÈ˵˵Á½¸ö¸ÅÄTheme(Ö÷Ìâ)ºÍ Visual Style ¡£Theme ×îÔç³öÏÖÔÚ Microsoft Plus! for Windows 95 ÖУ¬ÊÇ Windows ÖÐ Wallpaper¡¢Cursors¡¢Fonts¡¢Sounds ¡¢Icons µÈµÄÉèÖÃÖµ¼¯ºÏ¡£Visual Style ÔÚ Windows XP Öвű»ÒýÈ룬Visual Style ¹æ¶¨ÁË Contorls µÄÍâ¹Û£¬ÁíÍ⻹°üÀ¨Ê¹ÓÃÕâЩÍâ¹ÛµÄÒ»Ì× API ¡£Ê¹Óà Visual Style ±ØÐëÒª ComCtl32.dll 6£¬¶ø ComCtl32.dll 6 ÊDz»Äܱ»·Ö·¢µ½ÒÔÇ°°æ±¾µÄ Windows Öеģ¬ËùÒÔÖ»ÄÜÔÚ Windows XP ÏÂʹÓà Visual Style¡£
Delphi 7 (ºóÃæ¼ò³Æ 7 °É)¶Ô Visual Style ÌṩÁ˽ϺõÄÖ§³Ö¡£Ê×ÏÈ 7 ½«ÄǸö Menifest ·â×°³ÉÁË VCL - TXPMenifest£¬ÁíÍâÔö¼ÓÁË UxTheme.pas µ¥Ôª£¬ÀïÃæÊÇ¶Ô Visual Style µÄÒ»Ì× API ¼°Æä½á¹¹¡¢³£ÊýµÈµÄÒýÓÃÉùÃ÷£¨´ó¸ÅÓÐ 47 ¸öAPI º¯Êý£©£¬¸üÖØÒªµÄÊÇ 7 »¹Ôö¼ÓÒ»¸ö Themes.pas µ¥Ôª£¬ÀïÃæÊǶÔÕâÌ× API µÄ¸ü½øÒ»²½µÄ¼ò»¯ºÍ·â×°£¬7 Ï嵀 Win32 ¿Ø¼þ¶Ô Visual Style µÄÖ§³Ö½Ï Delphi 6ÓÐÁ˺ܴó¸Ä¹Û£¬¾ÍÊÇÕâ¸öµ¥ÔªµÄ¹¦ÀÍ¡£
Ò»°ãÀ´ËµÒªÊ¹ 7 ϱàÒëµÄ³ÌÐòÔÚ Windows XP ¾ßÓÐ Visual Style £¬Ö»ÐèÔÚÖ÷´°ÌåÉÏ·ÅÈë VCL - TXPMenifest ¼´¿É£¬µ«¶ÔÓÚһЩ·Ç±ê×¼»òÊÇ×Ô»µÄ¿Ø¼þ£¬»¹ÊǾµäµÄ½çÃæ¡£ÕâÀï¾Í˵һÏÂÈçºÎÓà Themes.pas ÖÐÌṩµÄ·½·¨Ê¹ÕâЩ¿Ø¼þ¾ßÓÐ Visual Style ¡£
Themes.pas ÖÐÖ»ÓÐÒ»¸öÀࣺTThemeServices ¡£Õâ¸öÀàÓÐÒ»¸öÖØÒªµÄÊôÐÔ£º ThemesEnabled (Boolean ÀàÐÍ)£¬¾ÍÊÇÅжÏÔÚµ±Ç°³ÌÐòÄܲ»ÄÜʹÓà Visual Style £¬Õâ¸öÊôÐÔÖ»ÓÐÔÚ³ÌÐòʹÓÃÁË TXPMenifest ²¢ÇÒÔÚ Windows XP ÏÂÔËÐв¢ÇÒʹÓÃÁË Windows XP µÄÖ÷Ì⣨¼´×ÀÃæÖ÷Ìâ²»ÊÇ Windows ¾µä£©²ÅΪ True £¬ÓÉÓÚ³ÌÐòÒªÔËÐÐÔÚÒÔÇ°°æ±¾µÄ Windows Ï£¬ËùÒÔÄãµÄ³ÌÐòÒ²µÃÌṩÕâ¸öÊôÐÔΪ False ʱµÄ´¦Àí¹ý³Ì£¨Ò»°ã¾ÍÊÇÔÓеĴ¦Àí¹ý³Ì£©¡£»¹ÒªÌáÒ»ÏÂÕâ¸öÀà·â×°µÄ¼¸¸öÖØÒªº¯Êý£ºDrawEdge ÓÃÀ´»¿Ø¼þ±ß½çµÄ£¬DrawElement ÓÃÀ´»Õû¸ö½çÃæµÄ£¬DrawText ÓÃÀ´Ð´×ֵġ£Õâ¸öÀ໹´¦ÀíÁË WM_THEMECHANGED ÏûÏ¢£¬ÕâÑùµ±ÎÒÃÇÔڸıä×ÀÃæÖ÷Ìâºó£¬³ÌÐò»á×Ô¶¯µ÷ÕûÍâ¹Û¡£ÔÙ˵һÏÂÎÒÃÇ×î³£Óõ½µÄÒ»¸öº¯Êý£¨¶à̬º¯Êý£©£ºGetElementDetails £¬Õâ¸öº¯ÊýµÄ·µ»ØÖµÔÚÉÏÃæµÄ¼¸¸ö DrawXXX º¯ÊýÖÐÒªÓõ½£¬Õâ¸öº¯ÊýµÄÊäÈëÖµÊÇ 24 ¸öö¾ÙÀàÐÍÖеÄÔªËØ£¬Õâ 24 ¸öö¾ÙÀàÐÍÔÚ Themes.pas µ¥Ôª¿ªÍ·¶¨Ò壨´ÓµÚ¶þ¸ö TThemedButton ¿ªÊ¼Ö±µ½ TThemedWindow£©¡£×îºó£¬ÎÒÃDz»È¥Ö±½ÓʹÓÃÕâ¸öÀ࣬ÔÚ Themes.pa
Ïà¹ØÎĵµ£º
ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......
Delphi µÄ×Ö·û¼°×Ö·û´®[1] - string¡¢AnsiString¡¢WideString¡¢String[n]¡¢ShortString
2008-10-17 14:57:17
//×î³£ÓÃµÄ string
var
str: string; {¶¨Òå}
begin
str := 'ÍòÒ»'; {¸³Öµ}
ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 4}
end;
//³¤×Ö·û´® AnsiString; ÔÚµ±Ç°°æ± ......
{ º¯Êý : RESULTSTRING = HexToBin(HEXSTRING)
{ Ä¿µÄ : °ÑÊ®Áù½øÖÆ×Ö·û´®×ª»»Îª¶þ½øÖÆ×Ö·û´®
{
{===============================================================}
{ º¯Êý : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ Ä¿µÄ : ת»»Ò»¸öÊ®Áù½øÖÆ×Ö·ûΪÕûÊý
{==================================================== ......
Ò»¡¢ÀàºÍ¶ÔÏó
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓڶѡ£
¶þ¡¢ÀàµÄ·½·¨·ÖÀà
1¡¢ ÆÕͨ·½·¨
²»¼ÓÈκÎÐÞÊε ......
³£ÓÿؼþÃüÃûǰ׺
¿Ø¼þÀàÃû
ǰ׺
TFormµÈ´°ÌåÀà
frm
TButton, TSpeedButtonµÈËùÓеİ´Å¥Àà
btn
TCheckBoxµÈËùÓеļì²é¿ò
chk
TRadioButtonµ¥Ñ¡°´Å¥Àà
rdo
TListBoxµÈËùÓеÄÁбí¿òÀà
lst
TPanelµÈËùÓеÄÃæ°åÀà
pnl
TLabel, TStaticTextµÈËùÓÐÓÃÀ´ÏÔʾµÄ±êÇ©Àà
lbl
TE ......