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

function TImageFileList.GetIndex: integer;
begin
result:=FIndex;
end;

---

function TImageFileList.GetNextFileName: string;
begin
if Findex=FStrListFile.Count-1 then
Findex:=0
else
inc(Findex);

result:=FStrListFile.Strings[Findex];
end;

---

function TImageFileList.GetPreFileName: string;
begin
if Findex=0 then
Findex:=FStrListFile.Count-1
else
dec(Findex);

result:=FStrListFile.Strings[Findex];
end;

---

procedure TImageFileList.SetIndex(AIndex: integer);
begin
FIndex:=AIndex;
end;

3. 过程JpgToBmp及函数IsJpgFile的代码如下所示：

//转换jpg到bmp

procedure JpgToBmp(const JpgFileName:string;AJpg:TJpegImage;Abmp:Tbitmap);
begin
try
AJpg.LoadFromFile(JpgFileName);
Abmp.Assign(AJpg);
finally
end;
end;

//仅从扩展名上来判断是否是jpg格式的文件
function IsJpgFile(const FileName:string):boolean;
begin
result:=(LowerCase( ExtractFileExt(FileName))=''''.jpg'''') or (LowerCase( ExtractFileExt(FileName))=''''.jpeg'''');
end;

　

4. 我们在窗体的OnCreate和OnDestroy事件处理句柄里添加如下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
//设置图标间距，也即缩略图间距
ListView_SetIconSpacing(

标签：

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