delphiÖÐcanvas»²¼µÄÔËÓÃ
ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»
Ч¹ûµÄÐγɹý³Ì¡£
Ò»¡¢CANVAS±Ø±¸»ù±¾ÖªÊ¶£º
1.¾ßÓÐCANVASÊôÐԵĿؼþ:
TBitmap,TComboBox,TDBComboBox,TDBGrid,TDBListBox,TDirectoryListBox,
TDrawGrid,TFileListBox,TForm,THeaderControl,TImage,TListBox,TOutline,
TPaintBox,TPrinter,TStatusBar,TStringGridµÈ,
2.CANVASÊôÐÔ¼°ÃüÁî:ƪ·ùËùÏÞ,Ê¡ÂÔ²ÎÊý¼°¸ñʽ˵Ã÷,¾ßÌåÇë²Î¿¼Îĺó³ÌÐò¼°DELPHI°ïÖúÎļþ:
canvas.rectangle():»¾ØÐÎpen.color:¶¨Òå»±ÊÑÕÉ«
roundrect():»Ô²½Ç¾ØÐÎpen.width:¶¨Ò廱ʿí¶È
arc():»»¡Ïß(²»Ìî³ä) brush.color:¶¨ÒåÌî³äÑÕÉ«
chord():»»¡Ïß(Ìî³ä) textout():Ôڹ̶¨Î»ÖÃÊä³ö×Ö·û´®
pie:»ÉÈÐÎ textwidth:È¡×Ö·û´®¸ß¶È
polygon():»¶à±ßÐÎÌî³ätextheight:È¡×Ö·û´®¿í¶È
polyline():¶àµãÁ¬Ïß(²»Ìî³ä)font.color:Ö¸¶¨×ÖÌåÑÕÉ«
Pixels():Ö¸¶¨¹Ì¶¨ÏóËØµãÑÕɫֵfont.size:Ö¸¶¨×ÖÌå´óС
moveto():Ö¸Ã÷»Ï߯ðµã Ellipse():»Ô²»òÍÖÔ²
lineto():Ö¸Ã÷»ÏßÖÕµã
3.ʹÓÃCANVAS×¢ÒâÊÂÏî:µ±´°¿Ú½øÐÐÖØ»Ê±,»²¼ÉϵÄͼÏñ½«Ïû
ʧ,±ÈÈçµ±´°¿Ú½øÐÐ×îС»¯ÓÖÖØÐ»ָ´Ê±£¬¾Í»áÒýÆð»²¼ÉÏͼÏñ
µÄÏûʧ£¬ÁíÍâµ±¸Õ¸ÕÔËÐгÌÐòʱ£¬´°¿ÚÒ²ÊÇÊôÓÚÖØÐ»æÖÆ£¬ËùÒÔ
Èç¹ûÔÚ»æÖÆ´°¿Ú֮ǰÔÚ»²¼ÉÏ»æÍ¼£¬µ¯³ö´°¿Úºó½«²»ÄÜÏÔʾ³öͼ
Ïñ£¬±ÈÈçÔÚTForm1.FormCreate()ʼþÖнøÐл²¼»æÍ¼²Ù×÷½«ÊÇ
ͽÀ͵쬵«¿ÉÒÔÔÚ´ËʼþÖнøÐл²¼²Ù×÷µÄ×¼±¸¹¤×÷£¬±ÈÈçÉèÖÃ
»±ÊµÄÑÕÉ«ºÍ¿í¶ÈµÈ¡£
Ïà¹ØÎĵµ£º
Delphi TIniFile Àà ²Ù×÷iniÅäÖÃÎļþ
2007Äê12ÔÂ08ÈÕ ÐÇÆÚÁù 09:56
Ò»¡¢ÓбØÒªÁ˽âINIÎļþµÄ½á¹¹£º
;×¢ÊÍ
[С½ÚÃû]
¹Ø¼ü×Ö=Öµ
...
---- INIÎļþÔÊÐíÓжà¸öС½Ú£¬Ã¿¸öС½ÚÓÖÔÊÐíÓжà¸ö¹Ø¼ü×Ö£¬ “=”ºóÃæÊǸùؼü×ÖµÄÖµ¡£
---- ÖµµÄÀàÐÍÓÐÈýÖÖ£º×Ö·û´®¡¢ÕûÐÍÊýÖµºÍ²¼¶ûÖµ¡£ÆäÖÐ×Ö·û´®´æÖüÔÚINIÎļþÖÐÊ±Ã»Ó ......
1.±»×°ÊÎÕß
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®×°ÊÎģʽ }
{ ±¾µ¥ÔªÖеÄÀàΪ±»×°ÊÎÕß }
{ ±àÒ빤¾ß: Delphi7.0 }
{ E-Mail : xshlife@163.com }
unit uComponent;
interface
type
TBeverage = class(TObject) //³éÏóÒûÁÏÀà
protected
FDescription: String;
public
......
1. ÃüÁîµÄ½ÓÊÕÕß
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®ÃüÁîģʽ }
{ ±¾µ¥ÔªÖеÄÀàΪÃüÁîµÄ½ÓÊÕÕß }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }
unit uReceiveObject;
interface
type
TLight = class(TObject)
private
FLocation: String;
public
constru ......
ÔÚÖ÷½çÃæµÄimplementation {$R *.dfm} Ï·ÅÈëÒÔÏ´úÂ룺
procedure PatchInt3;
var
NOP: Byte;
NTDLL: THandle;
BytesWritten: DWORD;
Address: Pointer;
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
Exit;
NTDLL := GetModuleHandle('NTDLL.DLL');
if NT ......
DelphiµÄÔ´Â붨λ·½·¨ÍøÉÏËÑË÷µ½ºÃÏñ²»Ì«¶à¡£
ÕâÀï·ÖÏíÎÒ×Ô¼ºµÄÁ½¸ö·½·¨¡£
ÒýÓÃÒ»¶Î»°
ÒýÓÃÄÚÈÝ
ʲôÊÇ MAP Îļþ£¿
MAP ÎļþÊdzÌÐòµÄÈ«¾Ö·ûºÅ¡¢Ô´ÎļþºÍ´úÂëÐкÅÐÅÏ¢µÄΨһµÄÎı¾±íʾ·½·¨£¬Ëü¿ÉÒÔÔÚÈκεط½¡¢ÈκÎʱºòʹÓ㬲»ÐèÒªÓжîÍâµÄ³ÌÐò½øÐÐÖ§³Ö¡£¶øÇÒ£¬ÕâÊÇΨһÄÜÕÒ³ö³ÌÐò±ÀÀ£µÄµØ·½µÄ¾ÈÐÇ¡£
DEL ......