Image画图的小问题,请教啊!!(10分)

  • 主题发起人 主题发起人 6ysnow
  • 开始时间 开始时间
6

6ysnow

Unregistered / Unconfirmed
GUEST, unregistred user!
我基于一个大的Image上画模块实物连接图,实物图的图标的创建是使用另一个Image

tempImage:就是画图标的Image.
try
FIcon:=TIcon.Create;
FIcon.LoadFromFile('图片');
tempImage.Height:= FIcon.Height;
tempImage.Width:= FIcon.Width;
tempImage.Canvas.Draw(0,0,FIcon);
finally
FIcon.free;
end;
问题时,无论怎么样,我的图标的显示总是从最上角出来,很明显的看到!
我试过将Draw(0,0,FIcon);改为Draw(100,100,FIcon);
还是从最上角出来,再在100,100处固定!!晕死啊.
难道是我的用法有问题>? 还是应该用大的Image来Draw??同志啊,帮帮忙啊!
 
改为Draw(100,100,FIcon);
 
设置它的left, top
 
把ico图标存为bmp图片
 
tempImage:就是画图标的Image.
try
FIcon:=TIcon.Create;
FIcon.LoadFromFile('图片');
tempmage的宽高都是跟ICO的一样大
tempImage.Height:= FIcon.Height;
tempImage.Width:= FIcon.Width;
tempImage.Canvas.Draw(0,0,FIcon);
你这里是把ICO画到TempImage,也是对的
finally
FIcon.free;
end;


tempImage:就是画图标的Image.
try
FIcon:=TIcon.Create;
FIcon.LoadFromFile('图片');
tempmage的宽高设成800×600
tempImage.Height:= 800;
tempImage.Width:= 600;
tempImage.Canvas.Draw(100,100,FIcon);
这里再用Draw画就不应该有问题了吧
finally
FIcon.free;
end;


下面一段是我测试的程序
在窗体上加了一个TImage, 一个TButton
你上面的哪个程序不应该设tempImage的宽高

procedure TForm1.Button1Click(Sender: TObject);
var
FIcon : TICon;
begin
try
FIcon:=TIcon.Create;
FIcon.LoadFromFile('c:/TECHNLGY.ICO');

Image1.Canvas.Draw(100,100,FIcon);
finally
FIcon.free;
end;
end;
 
后退
顶部