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()ʼþÖнøÐл²¼»æÍ¼²Ù×÷½«ÊÇ
ͽÀ͵쬵«¿ÉÒÔÔÚ´ËʼþÖнøÐл²¼²Ù×÷µÄ×¼±¸¹¤×÷£¬±ÈÈçÉèÖÃ
»±ÊµÄÑÕÉ«ºÍ¿í¶ÈµÈ¡£
Ïà¹ØÎĵµ£º
1.Ö÷ÌâÓë¹Û²ìÕß
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®¹Û²ìÕßģʽ }
{ Ö÷ÌâÓë¹Û²ìÕß }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }
unit uWeatherReport;
interface
uses
Classes, SysUtils;
type
TObserver = class; { ForwardÉùÃ÷£¬´´½¨Á½¸öÏà ......
1.²ßÂÔÀà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®²ßÂÔģʽ }
{ ±¾µ¥ÔªÖеÄÀàΪ²ßÂÔÀà }
{ ±àÒ빤¾ß: Delphi7.0 }
{ E-Mail : xshlife@163.com }
unit uStrategy;
interface
type
{·ÉÐнӿڣ¬¼°ÆäʵÏÖÀà }
IFlyBehavior = Interface(IInterface)
procedure Fly;
......
ûÓÐÓ¦ÓÃ״̬ģʽµÄ´úÂë
1. ¹¤³ÌÎļþ
program Project1;
{$APPTYPE CONSOLE}
uses
uGumballMachine in 'uGumballMachine.pas';
var
aGumballMachine: TGumballMachine;
begin
aGumballMachine := TGumballMachine.Create(5);
aGumballMachine.InsertQuarter;
aGumballMachine.TurnCrank;
Writeln; ......
¹¹½¨ Windows SOAP ·þÎñÆ÷Ó¦ÓóÌÐò
Ê×ÏÈÔÚ Windows ÉϹ¹½¨·þÎñÆ÷£¬È»ºóÔÚ Linux ÉϹ¹½¨¿Í»§»ú¡££¨Èç¹ûÐèÒª£¬¿ÉÒÔʹÓÃÆäËü·½·¨ — »òÕß½«ËüÃÇÈ«²¿¹¹½¨ÔÚ Windows »ò Linux ÉÏ¡££©¶ÔÓÚ Windows SOAP ·þÎñÆ÷£¬Æô¶¯ Delphi 7 Enterprise£¬Ö´ÐÐ File -> New -> Other£¬×ªÖÁ¶ÔÏó×ÊÔ´¿â£¨Object Repository£©µÄ ......
Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊǰÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
ΪÁ˸üºÃµØ¹ÜÀí×ÊÔ´£¬DelphiÖÐÌṩÁËÒ»ÖÖ.RESÀàÐ ......