本例效果图:
代码文件:
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:\Temp\Test.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.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 231 ClientWidth = 335 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Left = 8 Top = 187 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 89 Top = 187 Width = 75 Height = 25 Caption = 'Button2' TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 170 Top = 187 Width = 75 Height = 25 Caption = 'Button3' TabOrder = 2 OnClick = Button3Click end object Button4: TButton Left = 251 Top = 187 Width = 75 Height = 25 Caption = 'Button4' TabOrder = 3 OnClick = Button4Click end endposted on 2009-05-21 12:27 万一 阅读(3368) 评论(20) 编辑 收藏