需要安装一个KCL插件
要小巧又不要运行库,也许只有汇编了
补充:KCL是国外一位delphi高手开发的
你可以到国外的网站上找找,具体哪里有下载我自己也不知道
国内的话只有这个网站有过介绍www.delphiun.com
找到了。。
KCL全称是Kylix Component Library
有KOL和MCK2部分组成,指唯
它可以使delphi的唯乎培程序缩小90%甚至更多
一个500K的顷胡程序可以变成50K或是更小
详细介绍和下载地址见此:
http://www.delphibbs.com/keylife/iblog_show.asp?xid=15243
{缩放显示}procedure TForm1.btn1Click(Sender: TObject)
var
tmpbmp:TBitmap
begin
tmpbmp :=TBitmap.Create
tmpbmp.Width :=45//bmp.Width div 2
tmpbmp.Height :=89//bmp.Height div 2
tmpbmp.pixelformat:=pf32bit
//宽型衡高jpg.PixelFormat:=jf24bit
tmpbmp.Canvas.StretchDraw(tmpbmp.Canvas.ClipRect,img1.Picture.Graphic )
//慎拦猜img2.Picture.Graphic
img2.Picture.Assign(tmpbmp)
img2.Update
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)