在additional选项卡下有 一个scrollbox控件,将image放到它里面就行了,
解决方案 »
- [急]Delphi中如何将字符串(含变量)变成可用的公式?
- DELPHI里如何实现对象指针指向自己
- 什么打开存有图片的数据库时,内存占用很厉害,能不能解决呢?
- 求北京delphi兼职程序员
- CXGRID中如何改变某些行的颜色
- 如何在quickreport的页脚对每一页进行合计,急救。
- 自己做的Dll文件,有的可以运行,有的出现http500错误(asp运行正常)
- 求助:serversocket 出错
- 各位仁兄,有事请教。
- ★★★★★★大家一起修改这个程序,相互提高编程技巧★★★★★★★★★★★
- 如何实现 透明贴图--屏蔽图片背景颜色,显示图片主体 和 底图背景?
- 有没有一个软件分两个,一个只是加密,象WINZIP的加密打包一样,一个负责解密,将加密的文件还原?
try
TBlobField(ADOQuery1.FieldByName('Image')).SaveToStream(MyStream);
MyStream.Position:=0;
Image1.Picture.Bitmap.LoadFromStream(MyStream);
if (Image1.Picture.Width>ScrollBox1.HorzScrollBar.Range) OR (Image1.Picture.Height>ScrollBox1.VertScrollBar.Range) then
begin
ScrollBox1.HorzScrollBar.Range:=Image1.Picture.Width;
ScrollBox1.VertScrollBar.Range:=Image1.Picture.Height;
Image1.Cursor:=crHandPoint;
end else begin
//Image1.Center:=True;
Image1.Width:=Image1.Picture.Width;
Image1.Height:=Image1.Picture.Height;
end;
finally
MyStream.Free;
end;
我在image的输出是用image1.Canvas.TextOut()的形式。