sauvegarder position des panelsRésolu

Question

bonjour a tous

j'ai sur une form   plusieurs panels  déplaçables

mais lorsque que je ferme mon application les panels reprennent leur place 
initiale.

j aimerais pouvoir sauvegarder leur nouvelles positions a la fermeture 
de l application.

jais trouver des composants permettant de sauvegarder 

le contenue des edit ,memo etc... mais rien pour les position des objet dans une form tes que  les panels , groupbox ,etc....

alors si  vous avez une solution je prend;-)

korgis · Answer

Salut,

Pourquoi ne pas utiliser un fichiers "ini" dans lequel tu stockes les valeurs de position de tes panels ?
Tu les enregistres en quittant, et tu les lis en ouvrant l'application.
Tu peux utiliser TIniFile (ou TMemIniFile qui est d'une utilisation plus complexe).
Un exemple simple ci-dessous avec sauvegarde et lecture de la position de Panel1 sur le Form :

uses IniFiles; // <- important !

var
  PathAppli: string;
  IniFile: TIniFile;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PathAppli := ExtractFilePath(Application.ExeName);
  IniFile := TIniFile.Create(PathAppli + 'SaveParams.ini');
  try
    Panel1.Left := IniFile.ReadInteger('Panel1', 'Left', Panel1.Left);
    Panel1.Top := IniFile.ReadInteger('Panel1', 'Top', Panel1.Top);
  finally
    IniFile.Free;
  end
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IniFile := TIniFile.Create(PathAppli + 'SaveParams.ini');
  try
    IniFile.WriteInteger('Panel1', 'Left', Panel1.Left);
    IniFile.WriteInteger('Panel1', 'Top', Panel1.Top);
  finally
    IniFile.Free;
  end
end;

Si le fichier ini (que j'ai nommé ici "SaveParams", mais tu lui donnes le nom que tu veux) n'existe pas à l'ouverture, ça n'a pas d'importance, les valeurs par défaut seront lues. Et le fichier sera créé à la fermeture de l'appli.
Si tu ne précises pas un chemin au fichier ini, il se logera dans le répertoire de Windows, ce qui est déconseillé car il pourrait écraser un fichier s'y trouvant déjà.

Bon courage,

dubois77 · Answer

Salut
Méthode simple
tu inscris dans une list (tstringlist par exemple) les coordonnées et tailles de tes panels
Tu sauve la liste quand tu quittes (Liste.savetofile('data.1');
au démarrage il suffit de récupérer les données avec Liste.LoadFromFile et de les affecter
C'est basic et manuel mais facile à faire et à comprendre

Cirec · Answer

Salut à tous,

pour une sauvegarde "étendue" de la fiche et de tous ses composants 
ainsi que leurs contenus le tout dans un code très compacte, très simple 
et sans intervention ni code supplémentaire (fonctionne en arrière plan de façon autonome et transparente) ...
voir ce petit code que je vous offre ;)

ratatouille53 · Answer

bonjour a tous  

je vous remercie pour vos idées et conseilles très précieux.
  j avais opter pour  L'enregistrement dans fichier ini 

code qui va très bien mais,qui  je ne sais pas pourquoi, ne me remet pas tous mes panels correctement , j imagine que cet  p être a cause de la quantité de panel  100 panel = 100 fichiers ini

bref idée est bonne  tous de même ;-) 

sinon  cirec  merci pour ton petit code mais chez moi  il bug
problème de double buffer et , erreur doublon ,  du coup je n ais pas pu exploité ,je me re pencherais tous de même dessus 

si non  et bien merci a tous .je considère résolut pour ma par

amicalement  T

korgis · Answer

Salut,

"code qui va très bien mais,qui je ne sais pas pourquoi, ne me remet pas tous mes panels correctement , j imagine que cet p être a cause de la quantité de panel 100 panel = 100 fichiers ini"

Non, non, un seul fichier ini !

J'ai testé : le plus rigolo a été de coller 100 panels sur mon form. J'aurais pu les créer dynamiquement, mais ça n'aurait pas facilité la compréhension du code (déjà que...).

Donc j'ai fait simple, et j'ai posé 100 TPanels sur ma fiche, nommés Panel1 à Panel100.

J'utilise le même système, avec une boucle sur les 100 panels :

uses IniFiles;

var
  PathAppli: string;
  IniFile: TIniFile;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  PathAppli := ExtractFilePath(Application.ExeName);
  IniFile := TIniFile.Create(PathAppli + 'SaveParams.ini');
  try
    for i := 1 to 100 do
    begin
      with TPanel(FindComponent('Panel' + IntToStr(i))) do
      begin
        Left := IniFile.ReadInteger('Panel' + IntToStr(i), 'Left', Left);
        Top := IniFile.ReadInteger('Panel' + IntToStr(i), 'Top', Top);
      end;
    end;
  finally
    IniFile.Free;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i: Integer;
begin
  IniFile := TIniFile.Create(PathAppli + 'SaveParams.ini');
  try
    for i := 1 to 100 do
    begin
      with TPanel(FindComponent('Panel' + IntToStr(i))) do
      begin
        IniFile.WriteInteger('Panel' + IntToStr(i), 'Left', Left);
        IniFile.WriteInteger('Panel' + IntToStr(i), 'Top', Top);        
      end;
    end;
  finally
    IniFile.Free;
  end;
end;

Les positions des 100 panels sont enregistrées dans le fichier ini (qui sera créé automatiquement après la fermeture), et seront lues au redémarrage de l'appli.

Ça marche nickel, et on peut pas faire plus simple !

Bonne prog' ;-)

Cirec · Answer

juste pour information 
le code que t'avais proposé et qui n'avait pas fonctionné chez a été mis à jour tu peux à nouveau le tester 
(Utiliser la version dans le répertoire nommé   "D7")
Cordialement,

Sauvegarder position des panels

6 réponses

Votre réponse

Discussions similaires