网页素材: 导航菜单选项卡滑动门焦点图图片切换下拉菜单弹出层Tabs链接提示

您的当前位置: 源码爱好者 » 网页制作教程(编程教程) » Delphi技术教程

Delphi自定义窗体背景图像、渐变背景、随机背景、图案填充等功能

  • 标签:渐变背景 更新时间:2014-07-22
  • 用Delphi编写实现带背景的窗体,背景图像可以自定义,可以生成渐变色的窗体背景,以及图像平铺成背景,还可以实现随机背景等功能,具体代码如下所示:

    程序运行截图如下示:

    Delphi自定义窗体背景图像

    unit Unit1;
    interface
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        OpenDialog1: TOpenDialog;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    var
      Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.Button1Click(Sender: TObject);
    var
      i,j:integer;
    begin
      for i:=0 to form1.height do
        for j:=0 to form1.width do
          Form1.canvas.Pixels[j,i]:=$100*random(256);
    end;
    procedure TForm1.Button2Click(Sender: TObject);
    var
      i:word;
      dy,y:real;
    begin
      dy:=Form1.Height/256;
      y:=0;
      for i:=255 downto 0 do
      begin
        Form1.Canvas.Brush.Color:=$00000000+i*$100;
        Form1.Canvas.FillRect(rect(0,Round(y),Form1.Width,Round(y+dy)));
        y:=y+dy;
        //创建一个渐进背景
      end;
    end;
    procedure TForm1.Button3Click(Sender: TObject);
      var
        bitmap:tbitmap;
        rect1:trect;
    begin
      rect1.left:=0;
      //在窗体的显示区域上设置图像
      rect1.right:=width;
      rect1.top:=0;
      rect1.bottom:=height;
      bitmap:=tbitmap.create;
      //创建对象
      opendialog1.filter:='bitmap file(*.bmp)|*.bmp';
      //设置打开图像类型的过滤
      if opendialog1.Execute then
      begin
        bitmap.loadfromfile(opendialog1.filename);
        //导入BMP图像文件
        form1.canvas.stretchdraw(rect1,bitmap);
        //画布重绘
        bitmap.freeimage;
      end;
    end;
    procedure TForm1.Button4Click(Sender: TObject);
    begin
      form1.Close;
    end;
    end.

     

  • 已读: 次 收藏本文关闭本文打印本文复制链接
处理 SSI 文件时出错