Delphi Open Tools API dz̽
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
½ñÌ쿪ʼѧϰԪ¼þ±à¼Æ÷£¬¸Ð¾õ±ÈÊôÐÔ±à¼Æ÷¼òµ¥Ðí¶à£¬µ«»¹ÊÇÓöµ½ÁËһЩÒÉÎÊ¡£Èç¹ûÄãÄܽâ´ðÎÄÖмǼµÄÎÊÌ⣬Çë¸æËßÎҴ𰸣¬Ð»Ð»£¡
Ŀ ¼
===============================================================================
¡Ñ TBaseComponentEditor class
¡Ñ IComponentEditor interface
¡Ñ TComponentEditor class
¡Ñ TComponentEditor.ExecuteVerb ·½·¨
¡Ñ TComponentEditor.PrepareItem ·½·¨
¡Ñ TComponentEditor.Edit ·½·¨
¡Ñ TComponentEditor.IsInInlined ·½·¨
¡Ñ TDefaultEditor class
¡Ñ TSelectionEditor class
===============================================================================
±¾ÎÄÅŰæ¸ñʽΪ£º
ÕýÎÄÓÉ´°¿Ú×Ô¶¯»»ÐУ»ËùÓдúÂëÒÔ 80 ×Ö·ûΪ±ß½ç£»ÖÐÓ¢ÎÄ×Ö·ûÒÔ¿Õ¸ñ·û·Ö¸ô¡£
(×÷Õß±£Áô¶Ô±¾ÎĵÄËùÓÐȨÀû£¬Î´¾×÷ÕßͬÒâÇëÎðÔÚÔÚÈκι«¹²Ã½Ìå×ªÔØ¡£)
Õý ÎÄ
===============================================================================
¡Ñ TBaseComponentEditor class
===============================================================================
TBaseComponentEditor ÊÇËùÓÐÔª¼þ±à¼Æ÷µÄ»ùÀ࣬ËüµÄ¹¹Ô캯ÊýÓÉ Delphi IDE ÔÚÑ¡ÖÐÒ»¸öÔª¼þʱ±» IDE µ÷Óá£ËùÓеÄÔª¼þ±à¼Æ÷±ØÐëʵÏÖ TBaseComponentEditor.Create º¯ÊýºÍ IComponentEdiotr ½Ó¿Ú¡£Ôª¼þ±à¼Æ÷µÄ¹¹Ô캯ÊýÖд«È뵱ǰѡÖеÄÔª¼þºÍ IDesigner ½Ó¿Ú¡£
{ DesignIntf.pas }
TBaseComponentEditor = class(TInterfacedObject)
public
constructor Create(AComponent: TComponent; ADesigner: IDesigner); virtual;
end;
(* ΪʲôҪÒÔ TInterfacedObject Ϊ»ùÀàÄØ£¿)
===============================================================================
¡Ñ IComponentEditor interface
===============================================================================
IComponentEditor ¶¨ÒåÁËÔª¼þ±à¼Æ÷ÐèҪʵÏֵĽӿڣº
IComponentEditor = interface
['{ECACBA34-DCDF-4BE2-A645-E4404BC06106}']
procedure Edit;
Ë«»÷Ôª¼þʱ´¥·¢
procedure ExecuteVerb(Index: Integer);
Ö´ÐÐÒ»¸ö×Ô
Ïà¹ØÎĵµ£º
ÄÚÈݼò½é
dbExpressÊÇBorland¹«Ë¾ÏÂÒ»´úÊý¾Ý·ÃÎʼ¼Êõ¡£±¾Êé²»½öÏêϸ½éÉÜÁËdbExpressµÄ»ù±¾¹¦ÄÜ¡¢Ê¹Óü¼ÇÉÒÔ¼°Delphi/KylixµÄDataSnap¼¼Êõ£¬»¹ÏêϸÌÖÂÛÁËdbExpressµÄʵÏÖÔÀíÒÔ¼°dbExpressµÄδÀ´·¢Õ¹Ç÷ÊÆ¡£±¾Êé½á¹¹ÇåÎú£¬½²½â͸³¹£¬ÊµÀý·á¸»¡£×÷ÕßÀîάÊÇBorland¹«Ë¾ÖøÃû¼¼Êõר¼Ò£¬ÔøÖøÓжಿDelphiÃû ......
ÓÐʱÐèҪʹÓÃ͸Ã÷¿Ø¼þÓÃÓÚ²¶»ñÊó±êÏûÏ¢
1.µ÷ÓÃWindows2000,xpеÄAPIº¯ÊýʵÏÖÕâÒ»¹¦ÄܵĹý³Ì¡£Ê¹ÓÃSetLayeredWindowAttributes
2.Ö±½ÓÉèÖÿؼþµÄalphablend,alphablendvalue£¬¼ä½Óµ÷ÓÃÉÏÊöapi.
3.ʹÓÃTStaticText¿Ø¼þ
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
Ãû³Æ ÀàÐÍ ËµÃ÷
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
abs º¯Êý ¾ø¶ÔÖµº¯Êý
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁÐ
align Êô ......
{ º¯Êý : RESULTSTRING = HexToBin(HEXSTRING)
{ Ä¿µÄ : °ÑÊ®Áù½øÖÆ×Ö·û´®×ª»»Îª¶þ½øÖÆ×Ö·û´®
{
{===============================================================}
{ º¯Êý : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ Ä¿µÄ : ת»»Ò»¸öÊ®Áù½øÖÆ×Ö·ûΪÕûÊý
{==================================================== ......