unit1.~pas

来自「用delphi实现背景图片的设置」· ~PAS 代码 · 共 70 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
//  bitmap:Tbitmap;
//  rect1:Trect;

  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,J: Integer;
begin
     for I:=0 to Form1.Height do
         for J:=0 to Form1.Width do
             Form1.Canvas.Pixels[J,I]:=(($100*I)div Form1.Height)*Random(256);
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
     Bitmap.LoadFromFile(OpenDialog1.FileName);
     Form1.Canvas.StretchDraw(Rect1,Bitmap);
     Bitmap.FreeImage;
end;

end.