zoukankan      html  css  js  c++  java
  • DIY Delphi 半透明窗体(2)

    写文章的时候 脑子有点乱 

    [delphi] view plain copy
     
    1. unit uMainForm;  
    2.   
    3.   
    4. interface  
    5.   
    6.   
    7. uses  
    8.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
    9.   Dialogs, GDIPOBJ,GDIPAPI,GDIPUTIL;  
    10.   
    11.   
    12. type  
    13.   TForm1 = class(TForm)  
    14.     procedure FormCreate(Sender: TObject);  
    15.     procedure FormShow(Sender: TObject);  
    16.   
    17.   
    18.   private  
    19.     { Private declarations }  
    20.   public  
    21.     procedure DrawImage(Sender: TObject);  
    22.     { Public declarations }  
    23.   end;  
    24.   
    25.   
    26. var  
    27.   Form1: TForm1;  
    28.   
    29.   
    30. implementation  
    31. uses xDrawForm;  
    32. var  
    33.   wwCanvas : TwwCanvas = nil;  
    34.   img_BackGround:   TwwGDIImage= nil;       // 背景图  
    35. //  img_ProgressBar1:  TwwGDIImage= nil;      // 上滚动条  
    36. //  img_ProgressBar2:  TwwGDIImage= nil;      // 下滚动条  
    37. //  img_Lighting:     TwwGDIImage= nil;       // 闪光点  
    38.   
    39.   
    40. {$R *.dfm}  
    41.   
    42.   
    43. procedure TForm1.DrawImage(Sender: TObject);  
    44. begin  
    45.    TwwCanvas(Sender).wwDrawImage(img_BackGround);  
    46. end;  
    47.   
    48.   
    49. procedure TForm1.FormCreate(Sender: TObject);  
    50. begin  
    51.   DoubleBuffered := True;  
    52.   BorderStyle := bsNone;  
    53.   wwCanvas := TwwCanvas.Create();  
    54.   wwCanvas.InitCanvas(872,690);  
    55.   wwCanvas.OnDrawImage := Self.DrawImage;  
    56.   
    57.   
    58.   
    59.   
    60.   img_BackGround := TwwGDIImage.Create();  
    61.   img_BackGround.CreateImageNormal('BackGround.png',0,0,872,690);  
    62.   
    63.   
    64. end;  
    65.   
    66.   
    67. procedure TForm1.FormShow(Sender: TObject);  
    68. begin  
    69.   wwCanvas.RePaint(Self.Handle);  
    70. end;  
    71.   
    72.   
    73. end.  

     http://blog.csdn.net/warrially/article/details/8490226

  • 相关阅读:
    设计模式之 原型模式
    设计模式之 策略模式
    设计模式之 单例模式
    使用IntelliJ IDEA 15和Maven创建Java Web项目(转)
    Java 内存分配全面浅析(转)
    java常量池概念 (转)
    java基本类型和包装类的区别(转)
    JAVA数据类型(转)
    SQL SERVER 2008 服务器登录名、角色、数据库用户、角色、架构的关系(转)
    视图的好处(转)
  • 原文地址:https://www.cnblogs.com/findumars/p/6359757.html
Copyright © 2011-2022 走看看