Discussion :

[ChPr]

Bonjour à toutes et à tous,

Sous Windows et Linux Ubuntu et Lazarus 0.9.30,

Dans la propriété "Filter" d'un TSaveDialog, je donne plusieurs extensions possibles.

Avant d'exécuter SaveDialog, je positionne la propriété "FilterIndex" sur une extension différente de celle par défaut.

Lorsque j'exécute SaveDialog, la fenêtre me montre bien uniquement les fichiers avec l'extension requise. J'entre un nom de fichier sans extension et lorsque je clique sur "OK", l'extension de "FileName" est non pas l'extension choisie, mais l'extension par défaut.

Avec Delphi , l'extension de FileName est bien celle choisie.

Avez-vous déjà rencontré ce problème ? Avez-vous une solution ?

Merci de votre aide.

Pierre.

[acaumes]

Bonjour,

Je viens de regarder dans mon code pour vérifier et Lazarus te rends le nom qui a été saisi.

Cela fait longtemps que j'ai passé ce code de Delphi à Lazarus que je ne me souviens plus comment faisait Delphi.

Pour ma part j'ajoute l'extension si il n'y en n'a pas ...

Extrait du code (Nb typFic est le type de fichier dans mon appli):

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
        DbData := ExtractFileDir(bName);
        bExt := ExtractFileExt(bName);
        if ansiLowerCase(bExt) = '.sql' then
           Typfic := 1
        else  if ansiLowerCase(bExt) = '.xml' then
           Typfic := 2
        else  if ansiLowerCase(bExt) = '.csv' then
           Typfic := 3
        else  if ansiLowerCase(bExt) = '.xls' then
           Typfic := 4
        else
        begin
            Typfic := DialogFilterIndex;
            Case TypFic of
            1 : bName := bName + '.sql';
            2 : bName := bName + '.xml';
            3 : bName := bName + '.csv';
            4 : bName := bName + '.xls';
            end;
        end;

Si cela peut aider...

Cordialement

[ChPr]

Merci "acaumes" pour cette proposition.

Je sens que je vais finir pas faire la même chose : si le nom de fichier ne comporte pas d'extension, je l'impose. C'est dommage que ce ne soit pas fait en interne. Est-ce un bug ?

Cordialement.

Pierre