[TSaveDialog] Problèmes avec type de fichier

Version imprimable

13/12/2006, 23h06
Pedro

[TSaveDialog] Problèmes avec type de fichier
Salut à tous :D
Dans mon appli, j'ai une TSaveDialog (intégrée à une TAction).
Sur cette dialog, j'ai mis plusieurs types:
Code:

1 2 3 4 Fichiers TopoPR textes (*.prdt) Fichiers TopoPR binaires (*.prdb) Tous les fichiers (*.*)
avec le filtre qui va bien :P

Seulement voila: si je fais enregistrer sous, mon appli lance cette dialog. Elle est par défaut à *.prdt
Si je change à *.prdb, je voudrais que ça modifie le nom du fichier. par exemple, s'il y a "Test.prdt", ça se change en "Test.prdb".

Autre chose, dans cette même boîte, Si je tape juste "Test", je voudrais qu'il m'ajoute le .prdb ou .prdb automatiquement que je n'ai pas à le faire moi-même... Bon ça à la limite, c'est pas trop grave, je sais comment faire mais bon...

Il me semblait que c'étaient des comportements par défaut mais visiblement, ce n'est pas le cas :?

Evidemment, j'ai essayé de passer par les évènements de la TSaveDialog. Par exemple:
Code:

1 2 3 4 5 procedure TMain.FileSaveAsSaveDialogTypeChange(Sender: TObject); begin FileSaveAs.Dialog.FileName := 'Test'; end;
Mais ça ne fait rien du tout. L'évènement est bien déclenché mais la modification de FileName ne change rien :? Me dites pas qu'il faut récupérer le TEdit avec son handle et tout le bazar! 8O

Bref si quelqu'un sait comment faire tout ceci... ;)
Merci d'avance :D

Note: je suis sous Turbo Explorer et Win Xp Pro SP2.

Salut,
Essaye ce code pour voir ...

Code:

1
2
3
4
5
6
7
8
 
Procedure TForm1.Button1Click(Sender: TObject);
const
  cTabExt: array[0..2]of PChar = ('txt','asc','dat');
begin
  if SaveDialog1.Execute then
    label1.caption := ChangeFileExt(SaveDialog1.FileName,cTabExt[SaveDialog1filterIndex-1]);
end;

14/12/2006, 13h16
Pedro

Merci de ta réponse JLOUIS :D
Mais je voudrais que cette action se fasse pendant que la boite de dialogue est affichée pas après ;)
14/12/2006, 13h35
LadyWasky

Citation:

Envoyé par Pedro

Merci de ta réponse JLOUIS :D
Mais je voudrais que cette action se fasse pendant que la boite de dialogue est affichée pas après ;)

J'y réfléchi ;)

Au passage, j'aime bien ton bonnet de père Noël :mouarf:
14/12/2006, 13h45
LadyWasky

Déjà, tu as une propriété DefaultExt, pour la classe TSaveDialog :mrgreen: ;)
Dedans, tu mets prdb
14/12/2006, 13h49
Pedro

Citation:

Envoyé par waskol

Déjà, tu as une propriété DefaultExt, pour la classe TSaveDialog :mrgreen: ;)
Dedans, tu mets prdb

Non cette option sert juste à déterminer si le type par défaut à été changé ou non ;)
Donc ça ne convient pas :)

Citation:

Envoyé par waskol

Au passage, j'aime bien ton bonnet de père Noël :mouarf:

Merci :lol:
14/12/2006, 13h58
Philippe Gormand

Salut Pedro.

C'est vrai, il est bien ton bonet de père noël.

Pour ton problème, à part modifier le source du composant je ne vois pas, mais...
Ce que j'emplois comme technique, c'est de changer l'extension du fichier après fermeture de la boite de dialogue.
-1- On peut connaitre l'indexe du filtre sélectionné : Propriété "FilterIndex".
-2- Je force l'extension du nom du fichier avec la fonction ChangeFileExt.

Si cela peut t'aider :D

A+
14/12/2006, 15h18
Pedro

Citation:

Envoyé par Philippe Gormand

Salut Pedro.

C'est vrai, il est bien ton bonet de père noël.

Pour ton problème, à part modifier le source du composant je ne vois pas, mais...
Ce que j'emplois comme technique, c'est de changer l'extension du fichier après fermeture de la boite de dialogue.
-1- On peut connaitre l'indexe du filtre sélectionné : Propriété "FilterIndex".
-2- Je force l'extension du nom du fichier avec la fonction ChangeFileExt.

Si cela peut t'aider :D

A+

Merci Philippe mais à vrai dire c'est plutôt l'autre problème qui m'intéresse :P
En fait, je savais et je comptais déjà faire comme ça. Je voulais juste savoir si je n'étais pas en train de réinventer la roue ;)

Mais pour l'autre histoire, le problème reste entier :?

Allez, hop, rien ne résiste au maître waskol :mrgreen:

A mettre dans le OnTypeChange :

Code:

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
27
28
29
uses CommDlg,Dlgs,windows,dialogs,etc...; 
 
procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
var NomFic,NewFic,NewExt,s:string;
    AHandle:HWND;
     buf:array [0..MAX_PATH] of char;
     MaSaveDialog:TSaveDialog;
     HandleParent:THandle;
begin
  MaSaveDialog := (Sender as TSaveDialog);
  //obtenir le Handle du parent de la boite de dialogue
  HandleParent:= GetParent(MaSaveDialog.Handle);
  // obtenir le nom de fichier entré par l'utilisateur
  SendMessage(H, CDM_GETSPEC, MAX_PATH,integer(@buf));
  S := buf;
  if ExtractFileExt(s)='' then s:=s+'.prdb';
  NomFic:=s;
  NewFic:=NomFic;
 
  case (MaSaveDialog.FilterIndex div 2) of
  //"div 2" parce que la liste des filtres va par tranche de 2
  0:NewExt:='.prdt';
  1:NewExt:='.prdb';
  end;
  if NewExt<>''
  then NewFic:=ChangeFileExt(NomFic,NewExt);
// Et hop, changement du nom de fichier ;)
  SendMessage(H,CDM_SETCONTROLTEXT,edt1,integer(PChar(NewFic)));
end;

Je te laisse rédiger la QR qui va avec pour la peine :aie:

14/12/2006, 16h42
Pedro

Citation:

Envoyé par waskol

Allez, hop, rien ne résiste au modeste waskol :mrgreen:

Ah tu m'en diras tant :aie: :mouarf:
Merci mon gars :ccool:

J'essaie ce soir :)
14/12/2006, 16h43
Philippe Gormand

Bien vu Waskol. :ccool:

J'aurais du chercher un peu plus.

:merci: merci pour le tuyau.
14/12/2006, 16h53
LadyWasky

Citation:

Envoyé par Pedro

Ah tu m'en diras tant :aie: :mouarf:
Merci mon gars :ccool:

J'essaie ce soir :)

:mouarf3:
J'ai hésité à mettre ta version, mais faut bien se congratuler de temps en temps (surtout que ça ne m'arrive pas souvent) : y'a pas de mal a se faire du bien :mrgreen: :aie:

C'est bon merci waskol ça marche impec :)

Voici le code que j'ai utilisé qui modifie un peu le code de notre waskol international mais néanmoins étourdi :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
var NomFich: string;
    buf: array [0..MAX_PATH] of char;
    MaSaveDialog: TSaveDialog;
    HandleParent: THandle;
begin
  MaSaveDialog := (Sender as TSaveDialog);
  //obtenir le Handle du parent de la boite de dialogue
  HandleParent:= GetParent(MaSaveDialog.Handle);
  // obtenir le nom de fichier entré par l'utilisateur
  SendMessage(HandleParent, CDM_GETSPEC, MAX_PATH, integer(@buf));
  NomFich := buf;
 
  case (MaSaveDialog.FilterIndex div 2) of
  //"div 2" parce que la liste des filtres va par tranche de 2
    0: NomFich := ChangeFileExt(NomFich, '.prdt');
    1: NomFich := ChangeFileExt(NomFich, '.prdb');
  end;
// Et hop, changement du nom de fichier ;)
  SendMessage(HandleParent, CDM_SETCONTROLTEXT, edt1, integer(PChar(NomFich)));
end;

PS: c'est donc bien ce que je pensais: cette fonction nécessite de récupérer l'Edit par son identifiant et Handle... C'est vraiment dommage :?

Merci en tout cas :ccool:

14/12/2006, 20h01
LadyWasky

Citation:

Envoyé par Pedro

C'est bon merci waskol ça marche impec :)

Voici le code que j'ai utilisé qui modifie un peu le code de notre waskol international mais néanmoins étourdi :aie:

Traitre !!! :aie: :aie: :mouarf2:

et si en fait un peut de modif avec ce code en remplassant un peut le case

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function  GetFiltre(s:string;t:integer):string;
var  i,j:integer;
begin
     result:='';j:=0;
     i:=0;
     t:=(t-1)*2+1;
     while (j<Length(s)) and (i<>t) do
       begin
         inc(j);
         if s[j]='|' then inc(i);
       end;
     inc(j);
     while (j<=Length(s)) and (s[j]<>'|') do
       begin
        result:=result+s[j];
        inc(j);
       end;
end;
procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
begin
     ShowMessage(GetFiltre(SaveDialog1.Filter,SaveDialog1.FilterIndex));
 
end;

;)