TImage菜鸟问题

Question

一个TImage控件 img1 (top:0,left:0,width:30,height:60)
我有个位图文件D:\x.jpg 大小是240,480
我想在img1大小不改变的情况下，画这个jpg图
img1.picture.loadfromfile实现不了
哪个高手给解下惑

Answer 1

我想把一个640*480的图缩放到一个60*50的TImage控件上
用TImage.Picture.LoadFromFile('xx.jpg')只能显示jpg的左上60*50部分
我没说清楚

Answer 2

不是
我想把一个640*480的图缩放到一个60*50的TImage控件上 
用TImage.Picture.LoadFromFile('xx.jpg')只能显示jpg的左上60*50部分 
我没说清楚

Answer 3

rocedure TForm1.Button1Click(Sender: TObject);
var 
 jp: TJPEGImage;
begin 
 jp := TJPEGImage.Create; 
 try 
   jp.LoadFromFile('D:\x.jpg');
 
     image1.Width := jp.Width;
     image1.Height := jp.height;    
     
 
 finally 
   
   jp.Free; 
 end; 
end; 大致是这样　，没测试
你看看行不行？

Answer 4

image1有一个属性，设置一下就行了
ｓ开头的哪个，让图片适应ｉｍａｇｅ

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Stretch:=true;
image1.Picture.LoadFromFile('c:\1.jpg');
end;
很简单吗
这个测试了，完全达到你的要求