Sauvegarde des paramètres d'affichages du AppliRésolu

Question

Bonjour à tous,

Est-ce quelqu'un aurait un exemple sous la main d'une sauvegarde de paramètres d'affichage d'une form, afin de récupérer les paramètres à l'ouverture suivante, tels qu'ils étaient avant la fermeture de l'application delphi, notament la taille, la position etc...
 
merci par avance  à ceux qui me fourniront des réponses.

Cordialement.

cs_lugo · Accepted Answer

Je vais tester tout cela.

A bientôt et merci encore.

cs_Amadeus · Answer

Dans un fichier ini j'ai

[FORMSIZE]
TForm1=450|400|4|78
TForm2=654|750|0|89

Toutes mes Form dérive de la même qui posséde une fonction qui va chercher Heigth, Width, top, left dans mon fichier INI avant d'afficher la forme.

cs_lugo · Answer

Ce que vous me spécifié est le résultat des paramètres enregistré ou figé dans le fichier ini, l'exemple de code que 
je cherche est que lorsque la fenêtre de l'application est déplacé ou la taille modifiée et qu'ensuite l'application est quittée que le fichier ini soit automatiquement mis à jour.

Merci à celui qui me fournira ce petit code.

cs_Amadeus · Answer

Sur le FormDestroy tu peux sauvegarder dans le fichier INI la taille de la fenêtre et la position.

cs_Amadeus · Answer

Sur la fermeture de ta form tu remplit le record TrSizePos avec les bonnes valeurs puis tu lance SetFormSizePos et sur le formshow de ta fenêtre tu lance GetFormSizePo

 TrSizePos = record
    iHeight: integer;
    iWidth: integer;
    iLeft: integer;
    iTop: integer;
  end;

function GetFormSize(sFormClass: string): TrSizePos;
var
  sCh: String;
begin
  sCh:= ReadInConfIni('FORMSIZEPOS', sFormClass);

  if sCh = '' then
    sCh:= ReadInConfIni('FORMSIZEPOS', 'Default');

  result.iHeight:= StrToInt(rgTokenAt(sCh,'|', 0));
  result.iWidth:= strToInt(rgTokenAt(sCh,'|', 1));
  result.iLeft:= strToInt(rgTokenAt(sCh,'|', 2));
  result.iTop:= strToInt(rgTokenAt(sCh,'|', 3));
end;

Procedure SetFormSizePos(rPosSize: TrSizePos; sClassForm: String);
var
  sPosSizeForm: string;
begin
  sPosSizeForm:= IntToStr(rPosSize.iHeight) + '|' + IntToStr(rPosSize.iWidth) + IntToStr(rPosSize.iLeft) + '|' + IntToStr(rPosSize.iTop);
  WriteInConfIni('FORMSIZEPOS', sClassForm, sPosForm);
end;

Les procédure WriteInConfIni et ReadConfIni écrivent et lisent dans un fichier INI avec TIniFile. (pas besoin de te les écriures)

Sauvegarde des paramètres d'affichages du Appli

5 réponses

Votre réponse

Discussions similaires