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

DelphiͼÏñ´¦Àí

    DelphiµÄTCanvasÒÔ¼°ÅÉÉúÀàÌṩÁËÏÔʾTGraphicͼÏñµÄ·½·¨Draw£¬ÆäʵÕâ¸ö·½·¨±¾Éí²¢Ã»ÓÐÏÔʾͼÏñµÄ¹¦ÄÜ£¬Ö»ÊÇ·´¹ýÀ´µ÷ÓÃÁËÒ»ÏÂTGraphicµÄDraw·½·¨¡£TGraphic±¾ÉíÊǸö³éÏóÀ࣬ÆäDraw·½·¨Ò²ÊǸö´¿Ðé·½·¨£¬ËùÒÔTGraphicµÄËùÓÐÅÉÉúÀà±ØÐëÌṩһ¸ö¾ßÌåµÄDraw·½·¨¡£TGraphicµÄÖ÷ÒªÅÉÉúÀàTBitmapÒ²ÓÐÒ»¸öDraw·½·¨£¬µ«ÊǸ÷½·¨Ö»ÄÜÀûÓÃÆäTransparentÊôÐÔÏÔʾ͸Ã÷±³¾°Í¼Ïñ£¬¶ø²»ÄÜÕýÈ·ÏÔʾ´øAlphaͨµÀµÄ32λͼÏñ£¬¼´Ê¹Delphi2009ÒÔÉϰ汾µÄTGraphicÔöÌíÁËÒ»¸öSupportsPartialTransparencyÊôÐÔ£¬µ«TBitmapÒ²»¹ÊÇû·¨Ö±½ÓÏÔʾARGBÏñËØ¸ñʽµÄͼÏñ£¬ÒòΪTBitmapµ÷ÓõÄÊÇWindows APIµÄAlphaBlendº¯Êý£¬¸Ãº¯ÊýËÆºõÖ»ÄÜÏÔʾPARGB¸ñʽÏñËØµÄͼÏñ£¬¶øÇÒTGraphicµÄSupportsPartialTransparencyÊôÐÔ»¹ÊÇÖ»¶ÁÐÔÖʵġ£
    GDI+µÄTGpGraphicsµÄϵÁÐDrawImage·½·¨»­ARGB32λͼÏñµ¹ÊǺܺõ쬵«Èç¹ûͼÏñÕæµÄº¬AlphaÐÅϢʱ£¬ÏÔʾµÄËÙ¶ÈÈ´ÊǽÏÂý£¬´ó¼Ò¿ÉÒÔÓÃ2ÕŽϴóµÄͼƬÊÔһϣ¬Ò»Õź¬Alpha£¬Ò»ÕŲ»º¬Alpha£¬¶Ô±ÈһϾÍÖªµÀÁË¡£
    ÒòΪ±¾ÏµÁÐͼÏñ´¦Àí¹ý³ÌÖÐÓжà¸ö·½·¨»áʹAlpha·ÖÁ¿·¢Éú±ä»¯£¬¼´Ê¹¸ÃͼÏñÔ­À´²»º¬AlphaÐÅÏ¢£¬ËùÒÔÓбØÒªÐ´Í¼ÏñÏÔʾ¹ý³Ì¡£¶øÇÒ£¬Èç¹ûÔÚÓ¦ÓóÌÐòÖÐÖ»ÊÇÐèÒªÏÔʾ´¦Àí¹ýµÄͼÏñ£¬¾Í²»±ØÔÙ½«TImageDataÀàÐÍת»»ÎªTGraphic»òÕßTGpBitmapÁË£¬Ö±½ÓʹÓñ¾ÎĵÄÏÔʾ¹ý³ÌÎÞÒÉÊǺܷ½±ãµÄ¡£
    ±¾ÎĵÄͼÏñÏÔʾ¹ý³ÌÊÇÀûÓÃͼÏñºÏ³É¹ý³Ì£¨¼û¡¶DelphiͼÏñ´¦Àí -- ͼÏñºÏ³É¡·£©¡¢Í¼ÏñËõ·Å¹ý³Ì¡¶DelphiͼÏñ´¦Àí -- ͼÏñËõ·Å¡·¼°¼¸¸öWindows APIÀ´Íê³ÉµÄ£¬ÏÂÃæÊǾßÌå´úÂ룺
¹ý³Ì¶¨Ò壺
// »­Í¼ÏñÊý¾Ýµ½Canvas£¬AlphaΪͼÏñµÄ²»Í¸Ã÷¶È(0 - 1)¡£
procedure DrawImage(Canvas: TCanvas; x, y: Integer;
Data: TImageData; Alpha: Single = 1.0); overload;
// À­É컭ͼÏñÊý¾Ýµ½Canvas£¬AlphaΪͼÏñµÄ²»Í¸Ã÷¶È(0 - 1)¡£
procedure DrawImage(Canvas: TCanvas; x, y, Width, Height: Integer;
Data: TImageData; Alpha: Single = 1.0); overload;
procedure DrawImage(Canvas: TCanvas; LayoutRect: TRect;
Data: TImageData; Alpha: Single = 1.0); overload;
procedure DrawImage(Canvas: TCanvas; LayoutRect: TGpRect;
Data: TImageData; Alpha: Single = 1.0); overload;
ʵÏÖ´úÂ룺
procedure DrawImage(Canvas: TCanvas; x, y: Integer; Data: TImageD


Ïà¹ØÎĵµ£º

DelphiÉî¶È̽Ë÷Ö®×Ô¶¯Íê³ÉÍâ¿ÇÀ©Õ¹

ÒýÓÃ×Ô£ºhttp://develop.csai.cn/delphi/NO000001.htm
×Ô¶¯Íê³É¼ò½é
¡¡¡¡´ó¼ÒÒ»¶¨¶¼·Ç³£ÊìϤIEä¯ÀÀÆ÷µÄµØÖ·ÊäÈë±à¼­¿ò£¬ËüÌṩÁË×Ô¶¯Íê³ÉµÄ¹¦ÄÜ¡£×Ô¶¯Íê³É£¨Auto Complete£©¹¦Äܼò»¯Á˱༭¿òµÄÊäÈ빦ÄÜ£¬Ëü¿ÉÒÔ¸ù¾ÝÒѾ­ÊäÈëµÄ²¿·Ö×Ö·û´®½øÐÐÔ¤²âºÍÆ¥Å䡣ͼ2.7µÄÀý×Ó£¬ÑÝʾÁË×Ô¶¯Íê³É¿ÉÒÔÒÀ¾ÝÊäÈëµÄ“pro”£¬¸ø³ ......

DelphiÖлæÖÆÔ²½Ç¾ØÐεĴ°Ìå

ÖÆ×÷Ô²½Ç¾ØÐεĴ°Ì壺
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
Èç¹û²»Òª´°ÌåÍâ¿ò£¬ÔòʹÓãº
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandl ......

Delphi ÍêȫʱÉÐÊÖ²áÖ® Visual Style ƪ

    ÕâÀïÏÈ˵˵Á½¸ö¸ÅÄTheme(Ö÷Ìâ)ºÍ Visual Style ¡£Theme ×îÔç³öÏÖÔÚ Microsoft Plus! for Windows 95 ÖУ¬ÊÇ Windows ÖÐ Wallpaper¡¢Cursors¡¢Fonts¡¢Sounds ¡¢Icons µÈµÄÉèÖÃÖµ¼¯ºÏ¡£Visual Style ÔÚ Windows XP Öвű»ÒýÈ룬Visual Style ¹æ¶¨ÁË Contorls µÄÍâ¹Û£¬ÁíÍ⻹°üÀ¨Ê¹ÓÃÕâЩÍâ¹ÛµÄÒ»Ì× API ......

֪ʶС½á(Delphi)

1) Error loading midas.dll     ûÓÐ×¢²ámidas.dll ÔËÐÐRegSver32.exe midas.dll
2)Result := GetProcAddress(FGDIPlusLibrary, PChar(ProcName));±àÒë ³öÏÖÕâÑùµÄÎÊÌ⣬Ӧ¸ÃÊÇÉèÖ÷½ÃæµÄÎÊÌ⣬Project->Options->Complier->Hugestrings ¹³ÉϾÍokÁË£¡
3) TCheckListBoxÓиöitemEnable ......

DelphiͼÏñ´¦Àí

    ͼÏñËõ·ÅÊÇ×î³£ÓõÄͼÏñ´¦Àí£¬ÔÚͼÏñÀ­ÉìºÍÈ¡µÃͼÏñÂÔͼÖж¼ÒªÓõ½¡£Í¼ÏñËõ·ÅÖÊÁ¿µÄºÃ»µÓëͼÏñÏñËØ²åÖµ·½Ê½Óйأ¬±¾Î͍ÒåÁ˳£ÓõÄ3ÖÖ²åÖµ·½Ê½£¬¼´ÁÙ½ü²åÖµ¡¢ÏßÐÔ²åÖµºÍË«Á¢·½²åÖµ·½Ê½£º
type
// ²åÖµ·½Ê½: ȱʡ(ÏßÐÔ²åÖµ)£¬ÁÙ½ü£¬ÏßÐÔ£¬Ë«Á¢·½
TInterpolateMode = (imDefault, imNear, imBiline ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ