unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Jpeg, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm_Center = class(TForm)
    OpenDialog1: TOpenDialog;
    BOpen: TButton;
    Timer1: TTimer;
    BSauve: TButton;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    BFont: TButton;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure BOpenClick(Sender: TObject);
    procedure BSauveClick(Sender: TObject);
    procedure BFontClick(Sender: TObject);
 
  private
    { Déclarations privées }
 
 
  public
    { Déclarations publiques }
  end;
 
var
  Form_Center: TForm_Center;
 
implementation
 
{$R *.dfm}
 
function ExecuteCentered(ADialog: TCommonDialog; AOwnerForm: TForm; ATimer: TTimer): Boolean;
begin
  ATimer.Enabled := True;
  try
    Result := ADialog.Execute;
  finally
    ATimer.Enabled := False;
  end;
end;
 
 //Interval = 10
procedure TForm_Center.Timer1Timer(Sender: TObject);
var
  hDlg: HWND;
  rDlg: TRect;
  L, T, W, H: Integer;
  ID: DWORD;
begin
  // On cherche la boîte de dialogue standard
  hDlg := FindWindow('#32770', nil);
 
  if (hDlg <> 0) and IsWindowVisible(hDlg) then
  begin
    // On vérifie que cette fenêtre appartient bien à notre application
    GetWindowThreadProcessId(hDlg, @ID);
    if ID = GetCurrentProcessId then
    begin
      TTimer(Sender).Enabled := False; // Stop le timer
 
      GetWindowRect(hDlg, rDlg);
      W := rDlg.Right - rDlg.Left;
      H := rDlg.Bottom - rDlg.Top;
 
      // Calcul du centrage
      L := Self.Left + (Self.Width - W) div 2;
      T := Self.Top + (Self.Height - H) div 2;
 
      SetWindowPos(hDlg, 0, L, T, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
    end;
  end;
  end;
 
procedure TForm_Center.BOpenClick(Sender: TObject);
begin
 
  OpenDialog1.Title := 'Ouvrir votre fichier';
  OpenDialog1.Filter := 'Fichiers photo (*.jpg;*.bmp)|*.jpg;*.bmp';
 
  // On force le dossier de l'EXE même si on change de dossier !
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  OpenDialog1.FileName := '';
 
  // On utilise le "if" directement grâce au "Result" de la fonction
  if ExecuteCentered(OpenDialog1, Self, Timer1) then
  begin
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end;
end;
 
//Idem
 
procedure TForm_Center.BSauveClick(Sender: TObject);
begin
 
 SaveDialog1.Title := 'Sauvegarde de votre fichier';
  SaveDialog1.Filter := 'Fichiers photo (*.jpg;*.bmp)|*.jpg;*.bmp';
 
  // On force le dossier de l'EXE
  SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  SaveDialog1.FileName := '';
 
  // On utilise le "if" directement grâce au "Result" de la fonction
  if ExecuteCentered(SaveDialog1, Self, Timer1) then
  begin
    Image1.Picture.SavetoFile(SaveDialog1.FileName);
  end;
end;
 
procedure TForm_Center.BFontClick(Sender: TObject);
begin
ExecuteCentered(FontDialog1, Self, Timer1);
end;
 
end.

 
function TFileListBox.DoMouseWheel(_Shift: TShiftState; _WheelDelta: Integer; _MousePos: TPoint): Boolean;
var
  Idx: Integer;
begin
 
  // calculate the index of the item to select
  Idx := ItemIndex - Sign(_WheelDelta);
  if Idx >= Items.Count then
    Idx := Items.Count
  else if Idx < 0 then
    Idx := 0;
  // select it
  ItemIndex := Idx;
 
  // and simulate a mouse click on it so the selected table gets displayed
  Self.Click;
 
  // tell the caller that the event has been handled
  Result := True;
 
Form1.Listbox1.SetFocus;
 
end;

 
repeat
      // Créer dynamiquement un TImage
      Image := Timage.Create(ScrollBox1); // Le ScrollBox est le Owner
      Image.Parent := ScrollBox1; // Le ScrollBox est le Parent visuel
 
      try
        // Charger l'image depuis le fichier
        Image.Picture.LoadFromFile(ImagePath + SearchRec.Name);
        Image.Top := TopPos;
        Image.Left := 10;
        Image.AutoSize := false; // Ajuste la taille du TImage à l'image chargée
 
        image.Width := Spwidth.value;
        image.Height := Spheight.value ;
 
        Image.Stretch := true;
        Image.Align := alNone;
 
        // Mettre à jour la position Top pour l'image suivante
        TopPos := TopPos + Image.Height + 10; // Espacement de 10 pixels entre les images
 
        except
        // Gérer les erreurs de chargement d'image si nécessaire
        Image.Free;
      end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;

 
procedure TForm1.BTestClick(Sender: TObject);
Var
  mydirpath : String;
 
  ImagePath: string;
  Image: Timage;
  TopPos: Integer;
  SearchRec: TSearchRec;
 
begin
 //Op1.FilterIndex := 1;
 
 Op1.FileName := 'Open';  //Dans le dossier = Open.jpg 1ère image
 
 Op1.Execute;
 
 mydirpath:= ExtractFileDir(op1.FileName);
 
 Ed.Text:= extractfilename(mydirpath);
 
  ImagePath := mydirpath;
 
  TopPos := 10; // Position de départ pour la première image
 
  // Effacer les images précédentes (si nécessaire)
  while ScrollBox1.ControlCount > 0 do
    ScrollBox1.Controls[0].Free;
 
  // Rechercher les fichiers images (par exemple, *.jpg)
  if FindFirst(ImagePath + '\*.jpg', faArchive or faSysFile or faHidden, SearchRec) = 0 then
  begin
    repeat
      // Créer dynamiquement un TImage
      Image := Timage.Create(ScrollBox1); // Le ScrollBox est le Owner
      Image.Parent := ScrollBox1; // Le ScrollBox est le Parent visuel
 
      try
        // Charger l'image depuis le fichier
        Image.Picture.LoadFromFile(ImagePath + '\' + SearchRec.Name);
        Image.Top := TopPos;
        Image.Left := 10;
        Image.AutoSize := false; // Ajuste la taille du TImage à l'image chargée
 
        image.Width := 320;
        image.Height := 240;
        Image.Stretch := true;
        Image.Align := alNone;
 
       // Mettre à jour la position Top pour l'image suivante
        TopPos := TopPos + Image.Height + 10; // Espacement de 10 pixels entre les images
 
      except
        // Gérer les erreurs de chargement d'image si nécessaire
        Image.Free;
      end;
 
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
 
  // Important pour que le ScrollBox ajuste ses barres de défilement
  // en fonction de la taille totale de son contenu
  ScrollBox1.AutoScroll := True;
 
end;

 
procedure TU_Fullecran.ResizeImageToScreenHeight(Img: TImage);
var
  NewWidth, NewHeight: Integer;
  AspectRatio: Double;
begin
  if Image1.Picture.Graphic <> nil then
  begin
    // 1. Calculer le ratio d'aspect de l'image originale
    AspectRatio := Image1.Picture.Width / Image1.Picture.Height;
 
    // 2. Définir la nouvelle hauteur pour qu'elle corresponde à la hauteur de l'écran
    NewHeight := Screen.Height; // Ou Screen.Height - 50 pour laisser de la marge
 
    // 3. Calculer la nouvelle largeur pour maintenir le ratio d'aspect
    NewWidth := Round(NewHeight * AspectRatio);
 
    // 4. Redimensionner l'Image
    Image1.Width := NewWidth;
    Image1.Height := NewHeight;
 
    // 5. Centrer l'image si besoin (optionnel)
    {Image1.Left := (ClientWidth - Img.Width) div 2;
    Image1.Top := (ClientHeight - Img.Height) div 2; }
  end;
  end;

 
  TFileListBox = class(Filectrl.TFileListBox) 
  function DoMouseWheel(_Shift: TShiftState; _WheelDelta: Integer; _MousePos: TPoint): Boolean; override;
 
  protected
   procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
  end;
 
  TForm1 = class(TForm)
   ...
 
implementation
 
uses Math;
 
{ TFileListBox }
 
function TFileListBox.DoMouseWheel(_Shift: TShiftState; _WheelDelta: Integer; _MousePos: TPoint): Boolean;
var
  Idx: Integer;
begin
  // calculer l'index de l'élément à sélectionner
  Idx := ItemIndex - Sign(_WheelDelta);
  if Idx >= Items.Count then
    Idx := Items.Count
  else if Idx < 0 then
    Idx := 0;
 
 // sélectionnez-le
  ItemIndex := Idx;
 
  // et simuler un clic de souris dessus pour que le tableau sélectionné s'affiche
  Self.Click;
 
  Result := True;
end;
 
 
procedure TFileListBox.WMVScroll(var Msg: TWMVScroll);
begin
   case Msg.ScrollCode of
        SB_LINEUP: if ItemIndex - 1 >= 0 then
                      ItemIndex := ItemIndex - 1;
      SB_LINEDOWN: if ItemIndex + 1 < Count then
                      ItemIndex := ItemIndex + 1;
   else
      inherited;
   end;
end;