quote:

---

...just wanted to inform you that this OnKeyDown Event Being Executed Various Times...

---

procedure TForm1.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
{ Change the background image with the mouse or the keyboard arrow keys }
var
  iFilename: string;
begin
  iFilename := ImageEnMView1.ImageFileName[idx];
  if FileExists(iFilename) then
  begin
    ImageEnVect1.Clear;
    ImageEnVect1.Blank;
    ImageEnVect1.Update;
    ImageEnVect1.IO.LoadFromFile(iFilename);
  end;
end;

ImageEnMView1.FillFromDirectory(AFolder, -1, False, '', True, '', False, True);

function DesktopFolder: string;
{ Find Desktop folder location. }
var
  ir: bool;
  iPath: array[0..MAX_PATH] of char;
begin
  ir := ShlObj.ShGetSpecialFolderPath(0, iPath, CSIDL_DESKTOP, False);
  if not ir then
    raise Exception.Create('Could not find Desktop folder location.');
  Result := IncludeTrailingPathDelimiter(iPath);
end;

function BrowseForFolder(AFolder: string): string;
{ BrowseForFolder. }
begin
  if DirectoryExists(AFolder) then
    if FileCtrl.SelectDirectory('Select Folder', 'Desktop', AFolder) then
      Result := AFolder;
end;

function GetFileCount(AFolder, AWildCard: string): Integer;
{ Return the AFolder file count. }
var
  iIntegerFound: Integer;
  iSearchRec: TSearchRec;
begin
  Screen.Cursor := crHourGlass;
  try
    Result := 0;
    if (AFolder <> '') and (AFolder[Length(AFolder)] <> '\') then
      AFolder := AFolder + '\';
    iIntegerFound := FindFirst(AFolder + AWildCard, faAnyFile, iSearchRec);
    while (iIntegerFound = 0) do
    begin      if not (iSearchRec.Attr and faDirectory = faDirectory) then
        Inc(Result);
      iIntegerFound := FindNext(iSearchRec);
    end;
    FindClose(iSearchRec);
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TForm1.Folder1Click(Sender: TObject);
{ Select a folder. }
var
  iFolder: string;
  iFileCount: integer;
begin
  if AFolder = '' then
    iFolder := DesktopFolder
  else
    iFolder := IncludeTrailingPathDelimiter(AFolder);
  AFolder := BrowseForFolder(iFolder);
  iFileCount := GetFileCount(AFolder, '*.*');
  LabelImages1.Caption := 'Images: ' + IntToStr(iFileCount);
end;

procedure TForm1.Fill1Click(Sender: TObject);
{ Fill imageenmview with images from AFolder. }
var
  iResult: integer;
begin
  if DirectoryExists(AFolder) then
  begin
    ImageEnMView1.Clear;
    ImageEnView1.Clear;
    iResult := MessageBox(0, 'Add supported image types only?' + #10#13 + #10#13 +
      'If Yes then only known and supported file formats will be loaded, if No then all files will be loaded.  If Cancel then abort.',
      'Add Supported Images Only', MB_ICONQUESTION or MB_YESNOCANCEL);
    if iResult = idYes then
    begin
      Caption := 'ImageENMIO PrintImagesToFile- All Supported Images In ' + AFolder;
      ImageEnMView1.FillFromDirectory(AFolder, -1, False, '', True, '', False, True);
    end
    else if iResult = idNo then
    begin
      Caption := 'ImageENMIO PrintImagesToFile- All Supported Files In ' + AFolder;
      ImageEnMView1.FillFromDirectory(AFolder, -1, True, '', False, '', False, True);
    end
    else if iResult = idCancel then
    begin
      Caption := 'ImageENMIO PrintImagesToFile';
      exit;
    end;
    Screen.Cursor := crHourGlass;
    ImageEnMView1.SelectedImage := 0;
    AFilename := ImageEnMView1.ImageFileName[0];
    ImageEnView1.IO.LoadFromFile(AFilename);
    ImageEnView1.Bitmap.Modified := False;
    ImageEnMView1.SelectedImage := -1;
    LabelImages1.Caption := 'Images: ' + IntToStr(ImageEnMView1.ImageCount);
  end
  else    
    MessageBox(0, PChar('The folder ' + AFolder + ' does not exist.'), 'Warning', MB_ICONWARNING or
      MB_OK);
end;