TImage控件的一个问题，简单，肯定给分。

Question

一个jpg文件的图像面积很小
TImage控件的区域很大
怎么实现将这个jpg图像平铺n个，来填充TImage控件？

Answer 1

var
pjpg:tjpegimage;
X,Y:INTEGER;
begin
X:=0;
Y:=0;
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('D:\1.jpg');WHILE Y<IMAGE1.Height  DO
  BEGIN
    WHILE X<IMAGE1.Width DO
    BEGIN
     IMAGE1.Canvas.Draw(X,Y,pjpg);
     X:=X+pjpg.Width;
    END;
   X:=0;
   Y:=Y+pjpg.Height;
  END;
end;

Answer 2

var
pjpg:tjpegimage;
X,Y:INTEGER;
begin
X:=0;
Y:=0;
pjpg:=tjpegimage.Create;  //生成一个JPEG
pjpg.LoadFromFile('D:\1.jpg');//从文件读入WHILE Y<IMAGE1.Height  DO
  BEGIN
    WHILE X<IMAGE1.Width DO
    BEGIN
     IMAGE1.Canvas.Draw(X,Y,pjpg);
     X:=X+pjpg.Width;
    END;
   X:=0;
   Y:=Y+pjpg.Height;
  END;
end;