Discussion :

[cincap]

Meilleurs voeux à toutes et à tous,

Petite question, avec ce code si je clique sur le bouton" Annuler" du TOpenDialog pour ne pas choisir une image, j'obtiens une erreur :

En utilisant un TRadioGroup :

Code :

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

1
2
3
4
5
6
7
8
 
 
 if Fchoix.rg1.itemindex = 7 then begin
  Fchoix.BDimage.execute ;
 
  // Chargement et mise en place de l'image
  BmpFond.LoadFromFile(PChar(Fchoix.BDimage.filename));
  end;

Avec un TButton pas de problème :

Code :

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

1
2
3
4
5
 
 
 if not Fchoix.BDimage.execute then exit else  
  // Chargement et mise en place de l'image
  BmpFond.LoadFromFile(PChar(Fchoix.BDimage.filename));

Quelqu'un a t'il une idée pour le 1er cas ?

Merci d'avance,

@+,

Cincap

[Andnotor]

Comme dans le deuxième cas, teste le résultat de Execute.

[cincap]

@ Andnotor, merci de ta suggestion, c'est justement ce qui provoque mon erreur sauf si mon code est erroné :

Code :

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

1
2
3
4
5
6
7
8
 
 
if Fchoix.rg1.itemindex = 7 then
  if not Fchoix.BDimage.execute then exit else begin
 
   // Chargement et mise en place de l'image
  BmpFond.LoadFromFile(PChar(Fchoix.BDimage.filename));
  end;

@+,

Cincap

[cincap]

Bon, si je ne choisis pas d'image, je remet celle par défaut et plus d'erreur:

Code :

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

1
2
3
4
5
6
7
8
9
 
 if not Fchoix.BDimage.execute then begin Fchoix.rg1.itemindex := 6 ;
 
  BmpFond.LoadFromResourceName(hinstance, 'Fond') end else
 
  // Chargement et mise en place de l'image
  BmpFond.LoadFromFile(PChar(Fchoix.BDimage.filename));
 
  end;

@+,

Cincap