文件名称:Color-Lines.ZIP
-
所属分类：
- 标签属性：
- 上传时间：2012-11-16
-
文件大小：6.79kb
-
已下载：0次
-
提 供 者：
-
相关连接：无下载说明：别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容来自于网络，使用问题请自行百度
const
maxWidth = 200
maxHeight = 150
var
thumbnail : TBitmap
thumbRect : TRect
begin
thumbnail := Form1.GetFormImage
try
thumbRect.Left := 0
thumbRect.Top := 0
//proportional resize
if thumbnail.Width > thumbnail.Height then
begin
thumbRect.Right := maxWidth
thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width
end
else
begin
thumbRect.Bottom := maxHeight
thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height
end
thumbnail.Canvas.StretchDraw(thumbRect, thumbnail)
//resize image
thumbnail.Width := thumbRect.Right
thumbnail.Height := thumbRect.Bottom
//display in a TImage control
Image1.Picture.Assign(thumbnail)
finally
thumbnail.Free
end
end -const
maxWidth = 200
maxHeight = 150
var
thumbnail : TBitmap
thumbRect : TRect
begin
thumbnail := Form1.GetFormImage
try
thumbRect.Left := 0
thumbRect.Top := 0
//proportional resize
if thumbnail.Width > thumbnail.Height then
begin
thumbRect.Right := maxWidth
thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width
end
else
begin
thumbRect.Bottom := maxHeight
thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height
end
thumbnail.Canvas.StretchDraw(thumbRect, thumbnail)
//resize image
thumbnail.Width := thumbRect.Right
thumbnail.Height := thumbRect.Bottom
//display in a TImage control
Image1.Picture.Assign(thumbnail)
finally
thumbnail.Free
end
end
maxWidth = 200
maxHeight = 150
var
thumbnail : TBitmap
thumbRect : TRect
begin
thumbnail := Form1.GetFormImage
try
thumbRect.Left := 0
thumbRect.Top := 0
//proportional resize
if thumbnail.Width > thumbnail.Height then
begin
thumbRect.Right := maxWidth
thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width
end
else
begin
thumbRect.Bottom := maxHeight
thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height
end
thumbnail.Canvas.StretchDraw(thumbRect, thumbnail)
//resize image
thumbnail.Width := thumbRect.Right
thumbnail.Height := thumbRect.Bottom
//display in a TImage control
Image1.Picture.Assign(thumbnail)
finally
thumbnail.Free
end
end -const
maxWidth = 200
maxHeight = 150
var
thumbnail : TBitmap
thumbRect : TRect
begin
thumbnail := Form1.GetFormImage
try
thumbRect.Left := 0
thumbRect.Top := 0
//proportional resize
if thumbnail.Width > thumbnail.Height then
begin
thumbRect.Right := maxWidth
thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width
end
else
begin
thumbRect.Bottom := maxHeight
thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height
end
thumbnail.Canvas.StretchDraw(thumbRect, thumbnail)
//resize image
thumbnail.Width := thumbRect.Right
thumbnail.Height := thumbRect.Bottom
//display in a TImage control
Image1.Picture.Assign(thumbnail)
finally
thumbnail.Free
end
end
(系统自动生成,下载前可以参看下载内容)
下载文件列表
ColorLines.cfg
ScreenColorLines.dfm
ColorLines.dpr
BresenhamLibrary.PAS
ScreenColorLines.pas
SpectraLibrary.pas
ColorLines.dof
ColorLines.res
ScreenColorLines.dfm
ColorLines.dpr
BresenhamLibrary.PAS
ScreenColorLines.pas
SpectraLibrary.pas
ColorLines.dof
ColorLines.res
本网站为编程资源及源代码搜集、介绍的搜索网站，版权归原作者所有！ 粤ICP备11031372号
1999-2046 搜珍网 All Rights Reserved.