Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë

1.Ö÷ÌâÓë¹Û²ìÕß
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®¹Û²ìÕßģʽ }
{ Ö÷ÌâÓë¹Û²ìÕß }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }

unit uWeatherReport;

interface

uses
Classes, SysUtils;

type
TObserver = class; { ForwardÉùÃ÷£¬´´½¨Á½¸öÏà ......

Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë

 1.²ßÂÔÀà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®²ßÂÔģʽ }
{ ±¾µ¥ÔªÖеÄÀàΪ²ßÂÔÀà }
{ ±àÒ빤¾ß: Delphi7.0 }
{ E-Mail : xshlife@163.com }

unit uStrategy;

interface

type
{·ÉÐнӿڣ¬¼°ÆäʵÏÖÀà }

IFlyBehavior = Interface(IInterface)
procedure Fly;
......

Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë

ûÓÐÓ¦ÓÃ״̬ģʽµÄ´úÂë
1. ¹¤³ÌÎļþ
program Project1;
{$APPTYPE CONSOLE}
uses
uGumballMachine in 'uGumballMachine.pas';
var
aGumballMachine: TGumballMachine;
begin
aGumballMachine := TGumballMachine.Create(5);
aGumballMachine.InsertQuarter;
aGumballMachine.TurnCrank;
Writeln; ......

DB2 ºÍ Delphi 7 — SOAP ºÍÊý¾Ý¿â Web ·þÎñ

 ¹¹½¨ Windows SOAP ·þÎñÆ÷Ó¦ÓóÌÐò
Ê×ÏÈÔÚ Windows ÉϹ¹½¨·þÎñÆ÷£¬È»ºóÔÚ Linux ÉϹ¹½¨¿Í»§»ú¡££¨Èç¹ûÐèÒª£¬¿ÉÒÔʹÓÃÆäËü·½·¨ — »òÕß½«ËüÃÇÈ«²¿¹¹½¨ÔÚ Windows »ò Linux ÉÏ¡££©¶ÔÓÚ Windows SOAP ·þÎñÆ÷£¬Æô¶¯ Delphi 7 Enterprise£¬Ö´ÐÐ File -> New -> Other£¬×ªÖÁ¶ÔÏó×ÊÔ´¿â£¨Object Repository£©µÄ ......

delphi×ÊÔ´ÎļþÖÆ×÷¼°Ê¹ÓÃÏê½â

Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊǰÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
ΪÁ˸üºÃµØ¹ÜÀí×ÊÔ´£¬DelphiÖÐÌṩÁËÒ»ÖÖ.RESÀàÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ