Discussion :

[cincap]

Bonjour à toutes et à tous,

Serait t'il possible d'activer l'aperçu de la photo si elle est par défaut référenciée à l'ouverture dans le Filename du TopenPictureDialog ?

Soit en interceptant le sélect de la photo.

Mais on ne sait jamais il existe peut-être une solution.

Merci d'avance.

@+,

cincap

[Cirec]

Bonjour,

ça fait un moment que j'ai pas touché à Delphi (je me forme à d'autres langages)

Mais j'ai fait et testé un code qui fonctionne parfaitement en D6:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
type      // pour accéder à ImageCtrl
  THackOpenPictureDialog = class(ExtDlgs.TOpenPictureDialog);
 
const     // image à charger par défaut (adapter le chemin ainsi que le nom du fichier  selon tes besoins)
  DefFileName: string = 'C:\Users\Cirec\Pictures\14.Plage.bmp';
 
var
  CurrentFileName: string;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.FileName = '' then
    OpenPictureDialog1.FileName := DefFileName;
  CurrentFileName := OpenPictureDialog1.FileName;
  if OpenPictureDialog1.Execute then
  begin
    // Ton code ici
  end;
end;
 
// OnShow event par l'inspecteur d'objets
procedure TForm1.OpenPictureDialog1Show(Sender: TObject);
begin
  // et on charge l'image à l'ouverture du dialogue
  THackOpenPictureDialog(Sender).ImageCtrl.Picture.LoadFromFile(CurrentFileName);
end;

Amicalement,
@+

[cincap]

Bonjour à toutes et à tous,

@ Cirec, merci de ta solution excellente comme d'habitude et comment vas tu depuis tout ce temps ?

A vrai dire j'avais retourné tous les sites sur Delphi et je n'avais pas trouvé des réponses.

Par contre j'avais une unité pour programmer un TopenPictureDialog avec la possibilité d'accéder au visu entre autres.

C'est fou en deux trois lignes et Cirec propose une solution qui fonctionne.

Cordialement,

@+,

cincap