ÔÚ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()ʼþÖнøÐл²¼»æͼ²Ù×÷½«ÊÇ
ͽÀ͵ģ¬µ«¿ÉÒÔÔÚ´ËʼþÖнøÐл²¼²Ù×÷µÄ×¼±¸¹¤×÷£¬±ÈÈçÉèÖÃ
»±ÊµÄÑÕÉ«ºÍ¿í¶ÈµÈ¡£
¶þ¡¢CANC
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; ÔÚµ±Ç°°æ± ......