代码文件:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}var PicItem: TPictureCollectionItem; w,h: Integer;procedure TForm1.FormCreate(Sender: TObject);const ImgPath1 = 'C:\Temp\DelphiX.bmp';begin DXImageList1.DXDraw := DXDraw1; PicItem := TPictureCollectionItem(DXImageList1.Items.Add); PicItem.Picture.LoadFromFile(ImgPath1); w := PicItem.Width; h := PicItem.Height;end;procedure TForm1.Button1Click(Sender: TObject);begin PicItem.PatternWidth := w; PicItem.PatternHeight := h; DXDraw1.Surface.Fill(0); PicItem.Draw(DXDraw1.Surface, 0, 0, 0); DXDraw1.Flip;end;procedure TForm1.Button2Click(Sender: TObject);begin PicItem.PatternWidth := w * 2; PicItem.PatternHeight := h; DXDraw1.Surface.Fill(0); PicItem.Draw(DXDraw1.Surface, 0, 0, 0); DXDraw1.Flip;end;procedure TForm1.Button3Click(Sender: TObject);begin PicItem.PatternWidth := w div 2; PicItem.PatternHeight := h; DXDraw1.Surface.Fill(0); PicItem.Draw(DXDraw1.Surface, 0, 0, 0); DXDraw1.Flip;end;procedure TForm1.Button4Click(Sender: TObject);begin PicItem.PatternWidth := w; PicItem.PatternHeight := h * 2; DXDraw1.Surface.Fill(0); PicItem.Draw(DXDraw1.Surface, 0, 0, 0); DXDraw1.Flip;end;procedure TForm1.Button5Click(Sender: TObject);begin PicItem.PatternWidth := w; PicItem.PatternHeight := h div 2; DXDraw1.Surface.Fill(0); PicItem.Draw(DXDraw1.Surface, 0, 0, 0); DXDraw1.Flip;end;procedure TForm1.Button6Click(Sender: TObject);begin PicItem.PatternWidth := w*2; PicItem.PatternHeight := h*2; DXDraw1.Surface.Fill(0); PicItem.Draw(DXDraw1.Surface, 0, 0, 0); DXDraw1.Flip;end;end.