Posted - May 12 2016 : 03:34:41 //ImageEnMView.Sort if B then begin //Ascending ImageEnMView.Sort(iesbFilename,true,false ); B:=false; end else begin //CaseSensitive
Posted - Jul 23 2012 : 23:00:45 Hi, FillFromDirectory does Not sort by filename. You should use TImageEnMView.Sort method in this way:
function sortByFilename(Item1, Item2: integer):integer;
begin
result := CompareStr( Form1.ImageEnMView1.ImageFileName[Item1], Form1.ImageEnMView1.ImageFileName[Item2] );
end;
procedure TForm1.Button63Click(Sender: TObject);
begin
ImageEnMView1.Sort(@sortByFilename);
end;
Starting from next minor version will be possible to do just: