Delphi中图片的居中、拉伸与平铺

Delphi中图片的居中、拉伸与平铺2012-01-30 博客园万一问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947

本例效果图:

代码文件:

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;
  procedure FormCreate（Sender: TObject）;
  procedure FormDestroy（Sender: TObject）;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
  procedure Button3Click（Sender: TObject）;
  procedure Button4Click（Sender: TObject）;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

var
 bit: TBitmap;

procedure TForm1.Button1Click（Sender: TObject）;
begin
 Repaint;
 bit.LoadFromFile（"C:TempTest.bmp"）;
 Canvas.Draw（0, 0, bit）;
end;

procedure TForm1.Button2Click（Sender: TObject）;
var
 x,y: Integer;
begin
 Repaint;
 x := （ClientWidth - bit.Width） div 2;
 y := （ClientHeight - bit.Height） div 2;
 Canvas.Draw（x, y, bit）;
end;

procedure TForm1.Button3Click（Sender: TObject）;
begin
 Repaint;
 Canvas.StretchDraw（ClientRect, bit）;
end;

procedure TForm1.Button4Click（Sender: TObject）;
begin
 Self.Brush.Bitmap := bit;
 Repaint;
 Self.Brush.Bitmap := nil;
end;

procedure TForm1.FormCreate（Sender: TObject）;
begin
 Button1.Caption := "加载";
 Button2.Caption := "居中";
 Button3.Caption := "拉伸";
 Button4.Caption := "平铺";

 bit := TBitmap.Create;
 Self.Brush.Bitmap := nil;
end;

procedure TForm1.FormDestroy（Sender: TObject）;
begin
 bit.Free;
end;

end.