首页 > > 程序设计 > delphi >

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

2008-04-09 04:27:29来源：互联网阅读 ()

=class
private
FStrListFile:TStringList;
FIndex:integer;
{ Private declarations }
public
//添加一个文件
procedure Add(FullFileName:string);

//清空文件列表
procedure Clear;

//当目录改变时，调用此过程会把该目录下所有图片文件
//添加到文件列表中
procedure ChangeDir(dir:string);

//返回文件数目
function GetFileCount:integer;

//设置索引
procedure SetIndex(AIndex:integer);

//返回文件索引
function GetIndex:integer;

//返回当前完整文件名
function GetCurFullFileName:string;

//返回当前文件名
function GetCurFileName:string;

//返回下一个文件的文件名
function GetNextFileName:string;

//返回上一个文件的文件名
function GetPreFileName:string;

constructor Create;
destructor Destroy;override;
{ Public declarations }
end;
　

procedure JpgToBmp(const JpgFileName:string;AJpg:TJpegImage;Abmp:Tbitmap);
function IsJpgFile(const FileName:string):boolean;

const
RaisedPanel=1;
LoweredPanel=2;

var
Form1: TForm1;
ImageFileList:TImageFileList;
implementation
.....