Sauvegarde Form et composants automatiquement

Soyez le premier à donner votre avis sur cette source.

Vue 2 776 fois - Téléchargée 475 fois

Télécharger le projet
Commenter

Description

démo de sauvegarde d'une fiche (position et taille) et son contenu (composants
et toutes leurs propriétés) tout comme Delphi avec le *.dfm
afin de les restituer au prochain lancement de l'application. Cool! non?
Le tout automatiquement et en toute transparence.


*


*
                  • ATTENTION ***********

à n'utiliser qu'en fin de dev sans quoi vous risquez de ne pas voir
vos changement (Design)

ce code est libre d'utilisation tant que son auteur est cité
il est toute fois livré sans aucune garantie que ce soit


Démarrer l'application charger une image
charger un fichier texte changer la fonte et la taille
faire une recherche
puis redimensionner la fiche.

Fermer l'application puis redémarrer la ... enjoy ;-)

ps: Testé ok D7 à Tokyo 10.2

Mise à jour:
- Ajout d'une version "speciale" Delphi 7
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
 15 -
Salut Cirec,

Aucun commentaire encore ? Bigre !

Alors je me risque à exposer ici mes petites misères ^^

Je n'arrive pas à ouvrir ton programme !!!

J'utilise encore mon vieux D7 (D4 aussi), et je suis actuellement sous XP Pro 32 bits (bien que je ne voie pas trop l'importance que ça pourrait avoir).

Voici les messages qui me sont adressés sous D7 :

"Erreur lors de la lecture de MainForm.DoubleBuffered. La propriété DoubleBuffered n'existe pas. Ignorer l'erreur etc..."

Même message pour :
"mmoView.DoubleBuffered"
"mmoView.ParentDoubleBuffered"
"lbFiles.DoubleBuffered"
"lbFiles.ParentDoubleBuffered"

Il semblerait que la propriété "ParentDoubleBuffered" (que je ne connais pas) n'existe pas sous D7.
Ce qui est plus étrange encore, c'est que je ne trouve aucune ligne dans ton code où il serait fait mention de "ParentDoubleBuffered".
Je n'y comprend rien...
Serais-je entré dans la "twilight zone" ?

J'aimerais pourtant bien étudier ton code.
J'en avais quelques uns sur ce sujet, utilisant TStream, ou les méthodes ReadComponentResFile et WriteComponentResFile.
Et je n'arrive pas à mettre la main dessus !

Voilà. Suis-je donc seul à avoir ce problème ?
(ou personne n'a encore essayé ce code téléchargé 13 fois...)
Signaler
Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
 32 > korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
 -
Salut,

oui, merci d'avoir essuyé les plâtres ^^

en fait avant de poster le code j'ai fait un teste "rapide" D7 D2009 Berlin & Tokyo 10.2
et en testant les derniers j'ai modifié ces propriétés "ParentDoubleBuffered" désolé
je te prépare une version D7 pour cet aprèm ;)

en ce qui concerne les commentaires ... seule l'unité "crFormSaver.pas" est importante pour ce code. Le fait qu'il y a peu de commentaires s'explique par la simplicité du code mis en oeuvre. Le nom des procédures ainsi que les codes qui les composes sont simples et explicites. Mais si tu penses que ça ne suffit pas j'en ajouterai ;)

Cordialement,
@+
Signaler
Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
 32 -
Voilà la mise à jour est faite.

le problème venait des propriétés inexistantes mais aussi et surtout du fichier ressources *.res qui était issu de Tokyo 10.2. ce que D7 ne peut pas comprendre ^^

mais maintenant ça fonctionne sous D7 en dessous j'ai pas de version d'installée ;)

si t'as d'autres questions ou soucis ... tu sais comment faire ^^
j'attends avec impatience ton retour ;)

Cordialement,
Signaler
korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
 15 -
Salut Cirec,

Toujours les mêmes messages à l'ouverture !!!!

Décidément, mon Delphi7 ne parle ni l'allemand, ni le japonais ^^

Es-tu sûr d'avoir bien envoyé le bon *.res ?

Pas grave, j'ai fait un copier/coller des composants sur une fiche vierge, pareil pour le code.

Et j'ai finalement pu tester : Super, ça marche aux petits oignons !

Fonctionnement simple, certes, mais code intéressant à étudier.

Pour les débutants (et les cancres), j'ai envie de préciser que la déclaration de "crFormSaver" doit impérativement précéder celle du Form principal : donc à placer à la suite des "uses", tout à fait en haut.
Et pour les distraits, ne pas oublier de placer "crFormSaver.pas" dans le même répertoire...
Et rien d'autre à faire !

C'est magique, et ça devrait plaire à quelqu'un qui vient de poser une question sur ce forum qui parle de sauvegarder la position de panels déplacés sur une fiche et qui retrouveraient la même place à la ré-ouverture ^^

Pour l'anecdote, si quelqu'un utilise encore D4, il faut rajouter "FileCtrl" dans les uses pour "DirectoryExists" et "ForceDirectories". Sinon, ça fonctionne très bien sous D4, et certainement aussi pour D5 et D6.

Bonne soirée et bon coding :-)
Signaler
korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
 15 > korgis
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
 -
Rectification :

pour avoir les fichiers modifiés pour D7, il faut aller dans le répertoire D7 et les télécharger un par un :-(

Sinon ça fonctionne tout à fait bien.
Afficher les 12 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Cirec)