Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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()ʼþÖнøÐл­²¼»æÍ¼²Ù×÷½«ÊÇ   
ͽÀ͵쬵«¿ÉÒÔÔÚ´ËʼþÖнøÐл­²¼²Ù×÷µÄ×¼±¸¹¤×÷£¬±ÈÈçÉèÖà  
»­±ÊµÄÑÕÉ«ºÍ¿í¶ÈµÈ¡£   
  
¶þ¡¢CANC


Ïà¹ØÎĵµ£º

Delphi Òþ²Ø´°¿Ú±íµ¥

   
  ÎÒÒ»¿ªÊ¼ÒÔΪ£¬½«±íµ¥ÉèÖÃΪÒþ²Ø£¬¿ÉÒÔÔÚ±íµ¥´´½¨Ê¼þÖм´FormCreate(Sender:TObject)È¥ÉèÖÃ
  Òò´Ë£¬ ÎÒÔÚÕâ¸öprocedure TForm.FormCreate(Sender:TObject)ÖУ¬
   ÏëÓÃÒ»ÏÂÁ½ÖÖ·½Ê½ÊµÏÖ
   ¼´£º
   µ÷Óà     from.Hi ......

Delphi µÄ×Ö·û¼°×Ö·û´®[

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; ÔÚµ±Ç°°æ± ......

unicodeÓëGB2312ת»»µÈDelphiº¯Êý


{ º¯Êý : RESULTSTRING = HexToBin(HEXSTRING)
{ Ä¿µÄ : °ÑÊ®Áù½øÖÆ×Ö·û´®×ª»»Îª¶þ½øÖÆ×Ö·û´®
{
{===============================================================}
{ º¯Êý : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ Ä¿µÄ : ת»»Ò»¸öÊ®Áù½øÖÆ×Ö·ûΪÕûÊý
{==================================================== ......

Delphi³£ÓÿؼþÃüÃû¹æ·¶

 ³£ÓÿؼþÃüÃûǰ׺
¿Ø¼þÀàÃû
ǰ׺
TFormµÈ´°ÌåÀà 
frm
TButton, TSpeedButtonµÈËùÓеİ´Å¥Àà 
btn
TCheckBoxµÈËùÓеļì²é¿ò 
chk
TRadioButtonµ¥Ñ¡°´Å¥Àà
rdo
TListBoxµÈËùÓеÄÁбí¿òÀà 
lst
TPanelµÈËùÓеÄÃæ°åÀà
pnl
TLabel, TStaticTextµÈËùÓÐÓÃÀ´ÏÔʾµÄ±êÇ©Àà 
lbl
TE ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ