用Delphi实现缩略图查看(7)

.Canvas.Brush.Color :=clBtnFace;
ThumbBmp.Canvas.FillRect(ThumbBmp.Canvas.ClipRect);

DrawPanel(ThumbBmp.Canvas,0,0,79,79,RaisedPanel);
DrawPanel(ThumbBmp.Canvas,7 ThumbBmpLeft,7,ThumbBmpWidth 1,64,LoweredPanel);
ThumbBmp.Canvas.StretchDraw(Rect(8 ThumbBmpLeft,8,8 ThumbBmpLeft ThumbBmpWidth,71),OriginalBmp);

imagelist1.Add(ThumbBmp,nil);
end
else
begin
ThumbBmpHeight:=64*OriginalBmp.Height div OriginalBmp.Width;
ThumbBmpTop:=(64-ThumbBmpHeight ) div 2;

ThumbBmp.Canvas.Brush.Color :=clBtnFace;
ThumbBmp.Canvas.FillRect(ThumbBmp.Canvas.ClipRect);

DrawPanel(ThumbBmp.Canvas,0,0,79,79,RaisedPanel);
DrawPanel(ThumbBmp.Canvas,7,7 ThumbBmpTop,64,ThumbBmpHeight 1,LoweredPanel);
ThumbBmp.Canvas.StretchDraw(Rect(8,8 ThumbBmpTop,71,8 ThumbBmpTop ThumbBmpHeight),OriginalBmp);
imagelist1.Add(ThumbBmp,nil);
end;

with ListView1.Items.Add do
begin
ImageIndex:=imagelist1.Count-1;
caption:=

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有