缩略图！BOSS让我用delphi实现windows缩略图的case！谁能帮下(100分)

  • 主题发起人 主题发起人 jackalwin
  • 开始时间 开始时间
J

jackalwin

Unregistered / Unconfirmed
GUEST, unregistred user!
缩略图！BOSS让我用delphi实现windows缩略图的case！谁能帮下
源码，控件都行~
 
Canvas.StretchDraw 支持图片缩放
 
SetStretchBltMode(HDC,HALFTONE)
Canvas.StretchDraw
一同用,效果要好得多
 
你可以用listview来实现，windows就是这么做的
procedure ReadFileList(ListView:TListView;LargeImageList,SmallImageList:TImageList;FileIniName:string);
var
StrL:TStringList;
i:integer;
Item:TListItem;
GameName:string;
Path:string;
MainPro:string;
Icon:TIcon;
begin
try
ListView.Clear;
StrL:=TStringList.Create;
Icon:=TIcon.Create ;
ReadIniSection(FileIniName,'GameList',StrL);
for i:=0 to StrL.Count - 1 do
begin
Item:=ListView.Items.Add;
GameName:=StrL;
Path :=ReadINI2(FileIniName,'PathList',GameName);
MainPro:=ReadINI2(FileIniName,'MainProList',GameName);
Item.Caption := GameName;
Item.SubItems.Add(Path);
Item.SubItems.Add(MainPro);

if FileExists (MainPro) then
begin
Icon.Handle:=ExtractIcon(LargeImageList.Handle,pchar(MainPro),0);
Item.ImageIndex := LargeImageList.AddIcon(Icon);
Icon.Handle:=ExtractIcon(SmallImageList.Handle,pchar(MainPro),0);
Item.ImageIndex := SmallImageList.AddIcon(Icon);
end
else
begin
Item.ImageIndex:=0;
end;
end;
finally
freeandnil(strl);
freeandnil(Icon);
end;
end;
 
谢谢朋友们
明天回公司我就调试 能实现的话就放分~
 
to gyang
能说的具体点么？图象处理这块我是外行~
 
推荐使用ImageEN控件包
 
谢谢 我这就去down一个
 
晕 哥们 没有demo啊
哪个控件是缩略图啊？
 
查下MSDN相关的API函数,或查下以前的相关SetStretchBltMode的内容,很多的
 
记得jvcl里好像有一个这种控件，不过速度很慢，你去下一个吧
 
图形缩放本来就不是一个高效的工作，你可以学一下acdsee，生成一个缓存文件
 
Delphi 盒子上有下，可以交差了：
http://www.delphibox.com/article.asp?articleid=3361
别忘了给分。
 
to delphidoc
那你有缓冲文件这方面的历程么？
 
能不能用啊，楼主给个话，别当没看到。
 
您必须登录或注册才可回复。

Similar threads

X
使用kbmmw 实现图形验证码 - xalion
回复
0
查看
661
xalion
X
不
Delphi实现类似Android锁屏的密码锁控件 - 不得闲
回复
0
查看
1K
不得闲
不
X
kbmmw 中实现客户端自动更新 - xalion
回复
0
查看
803
xalion
X
不
Delphi中实现变长函数笔记 - 不得闲
回复
0
查看
1K
不得闲
不
不
奇淫怪巧之给Delphi的PrintDialog增加一个页码选定范围打印的Edit - 不得闲
回复
0
查看
904
不得闲
不
后退
顶部