Discussion :

[briaume]

Bonjour,

Déjà désolé si je ne suis pas dans le bon forum je ne savais pas trop ou faire cette demande.

Nous allons bientôt migrer notre application de Delphi 7 à Rio, et pour diverses raisons, nous devons mettre la propriété "Scaled" à false sur chacun de nos fiches.

Avec plus de 2000 fiches, comprenez que l'on cherche une solution pour pouvoir le faire automatiquement. Cette propriété ne pouvant pas être mise en runtime, le but serait de l'intégrer directement dans les fiches *.DFM.

Malheureusement après des recherches, j'ai constaté que par défaut la ligne "Scaled = True" n'est pas présente dans le fichier DFM et dès que l'on passe la propriété à False "Scaled = False" apparaît bien ! Du coup impossible de faire une simple "Remplacer / Rechercher" sur plusieurs fichiers avec Notepad++ ou un autre outils de ce genre.

Mon idée serait d'intégrer la ligne "Scaled = False" sur chaque 2ème ligne, de chacun de mes fichiers DFM, et tout cela automatiquement, et du coup là on sort de la programmation Delphi, pour + trouver une astuce via un logiciel ou autre pour pouvoir faire cela.

Ou alors si vous avez d'autres idées pour pouvoir mettre cette propriété partout à la fois, je suis preneur !

Merci beaucoup et bonne journée !

[Papy214]

Quelle est la difficulté de modifier tous les dfm pour y ajouter la ligne qui va bien ?

[briaume]

Bonjour,

Avec plus de 2000 fiches à modifier, je voulais éviter de devoir ouvrir chaque fiche un à un et faire un copier coller dedans.

En gros c'était cela mon plus grand problème.

[gbegreg]

Bonjour,

du coup là on sort de la programmation Delphi, pour + trouver une astuce via un logiciel ou autre pour pouvoir faire cela.

Si tu es certain de devoir ajouter systématiquement sur la deuxième ligne de chaque .dfm la ligne "Scaled = False", alors tu peux le faire via un petit programme Delphi.
Tu peux faire une recherche récursive à partir d'un répertoire pour parcourir dans tous ses sous répertoires les fichiers ayant l'extension .dfm (plusieurs solutions possibles (à "l'ancienne" avec TSearchRec et des FindFirst/FindNext, ou via TDirectory.GetFiles)
Ensuite, pour chaque fichier trouvé, tu le charges dans un TStringlist par exemple, tu insères en deuxième élément (indice 1) la chaine de caractères "Scaled = False" et tu sauvegardes le fichier.

Je te conseille évidemment de faire tes tests sur une copie des fichiers d'origine et dans un premier temps sur un petit échantillon pour mettre au point le programme.

[petitcoucou31]

bonjour

Tu peux rédiger une petite application en delphi qui :

• Scruter les répertoires + sous répertoires que tu souhaites
• Ouvrir tes *.dfm, qui sont des fichiers texte, avec un Tstringlist...
• Y ajouter ce que tu veux , ou tu veux ...
• Sauvegarder les fichiers modifiés.

bonne journée.

[Papy214]

Attention à ce que tous les DFM soient bien au format texte.
En binaire, ça va mettre un beau boxon

[Papy214]

J'affiche le résultat dans un memo mais il faudrait juste remplacer la ligne par celle modifiée et hop, le tour est joué.
On peut aussi agrémenter en vérifiant si le fichier un dfm de même nom pour éviter de polluer de simples unités de code.

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
21
22
23
24
25
26
27
28
29
30
 
 
const
  Folder = 'repertoiredecode';
var
  F, C: string;
  L: TArray<string>;
  I: Integer;
  Mch: TMatchCollection;
begin
  for F in TDirectory.GetFiles(Folder, '*.pas', TSearchOption.soAllDirectories) do
  begin
    L := TFile.ReadAllLines(F);
 
    for I := Low(L) to High(L) do
    begin
 
      Mch := TRegex.Matches(L[I], '^\s*uses\s', [TRegExOption.roIgnoreCase]);
      if Mch.Count > 0 then
      begin
        C := Mch.Item[0].Value;
        L[I] := C + 'manouvelleform, ' + Copy(L[I], C.Length, Length(L[I]) - C.Length);
        Memo1.Lines.Add(L[I]);
        Break;
      end;
 
    end;
  end;
 
end;

[gbegreg]

Attention à ce que tous les DFM soient bien au format texte.
En binaire, ça va mettre un beau boxon

Il me semble que c'est le cas par défaut dans les versions récentes de Delphi.
En tout cas, Delphi est fourni avec un petit utilitaire de conversion nommé convert.exe. Il est possible ainsi de convertir tous les dfm en dfm texte d'un répertoire en lançant en ligne de commande depuis le répertoire du projet l'utilitaire de la manière :

convert -i -s -t *.dfm

[SergioMaster]

@Papy 214 On parle de dfm version D7, je ne pense pas qu'ils fussent en binaire

[Papy214]

@Papy 214 On parle de dfm version D7, je ne pense pas qu'ils fussent en binaire

Je n'ai pas de D7 sous la main mais pourtant il me semble bien que si

Qui pourrait vérifier svp ?

Attention: Je ne dis pas qu'ils étaient forcément en binaire mais juste qu'on avait le choix et que le choix par défaut faisait partie des options de Delphi

[Paul TOTH]

Je n'ai pas de D7 sous la main mais pourtant il me semble bien que si

Qui pourrait vérifier svp ?

Attention: Je ne dis pas qu'ils étaient forcément en binaire mais juste qu'on avait le choix et que le choix par défaut faisait partie des options de Delphi

c'est toujours possible de faire du DFM binaire clic droit "DFM Texte" est coché par défaut.

le DFM texte ça doit remonter à Delphi 2 je pense...mais en effet, sur un projet qui aurait été développé initialement en binaire il est possible qu'il le soit resté.

sinon pour changer un attribut partout sans modifier les DFM il est envisageable de surcharger TForm

1) soit parce que tu utilises déjà une fiche ancètre
2) soit car tu as une unité présente dans toutes tes unités et APRES l'unité Forms

il suffit alors de déclarer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
uses
  Forms;
 
type
  TForm = class(Forms.TForm)
  end;

et là il faut à un endroit ou à un autre modifier la valeur du Scaled...probablement en surchargeant Loaded...voir surcharger la propriété publiée Scaled pour en changer le setter.

[Papy214]

Donc, pour conclure peut-être, créer une unité pour surcharger TForm comme indiqué par Paul ou créer une nouvelle unité FormScaled et passer le bout de code suivant pour vérifier que ça fonctionne. Si ok, modifier le code pour recomposer les fichiers de code plutôt qu'afficher les uses modifiés.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
 
 
uses System.RegularExpressions, System.IOUtils;
 
procedure TForm3.Button1Click(Sender: TObject);
var
  F, C: string;
  R:    TRegex;
  Mch:  TMatch;
  L:    TArray<string>;
  I:    Integer;
  J: Integer;
begin
 
  R := TRegex.Create('^\s*uses.*$', [TRegExOption.roIgnoreCase, TRegExOption.roMultiLine]);
 
  for F in TDirectory.GetFiles('D:\Projets\Developpement', '*.pas', TSearchOption.soAllDirectories) do
  begin
    SynEdit1.Lines.Add('{ ' + F + ' }');
 
    L := TFile.ReadAllLines(F);
 
    for I := Low(L) to High(L) do
    begin
      C := L[I];
 
      Mch := R.Match(C);
      if Mch.Success then
      begin
 
        if Mch.Value.Trim.EndsWith(';') then
          SynEdit1.Lines.Add(Mch.Value.TrimRight.TrimRight([';']) + ', FormScaled;')
        else
        begin
          J := I + 1;
          while 1 = 1 do
          begin
            if L[J].Trim.EndsWith(';') then
            begin
              C := L[J].TrimRight.TrimRight([';']) + ', FormScaled;';
              SynEdit1.Lines.Add(C);
              Break;
            end
            else
              SynEdit1.Lines.Add(L[J]);
            Inc(J);
          end;
        end;
 
        Break;
      end;
 
    end;
    SynEdit1.Lines.Add('');
  end;
 
end;

[Andnotor]

Du moment où il n'y avait pas de notion de nom de portée d'unité sous D7, il suffit de créer une unité Forms.pas dans le répertoire du programme qui elle fera appel à l'unité entièrement qualifiée Vcl.Forms.pas.

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
21
22
23
24
unit Forms;
 
interface
 
uses
  Vcl.Forms;
 
type
  TForm = class(Vcl.Forms.TForm)
  public
    procedure AfterConstruction; override;
  end;
 
implementation
 
{ TForm }
 
procedure TForm.AfterConstruction;
begin
  inherited;
  Scaled := FALSE;
end;
 
end.

Si plusieurs projets sont concernés, on pourrait imaginer créer un nouvel espace de nommage (disons D7UpFix) le nom de l'unité serait alors D7UpFix.Forms.pas et sauvegardée dans un répertoire commun du chemin de recherche. Il suffira ensuite d'ajouter ce nouvel espace aux noms de portées des unités dans les options des différents projets. A noter qu'il doit obligatoirement apparaître avant Vcl.

[briaume]

Bonjour,

Merci pour ces nombreuses réponses, la dernière proposition en date me semble idéale dans notre cas.

Au niveau Delphi 7, donc si je comprend bien la notion de "Noms de portées d'unités", n'existe pas ? Car j'ai plusieurs projet (exe + DLL) qui seront impactée par cette modification.

Du coup j'ai quand même essayé de mettre un fichier .pas directement dans le repertoire du projet avec le nom "Forms.Pas", mais impossible de le faire réagir pour le moment.

Merci encore pour votre aide !

[Andnotor]

Comprenons-nous bien, tu ne peux pas tester cela sous D7 mais uniquement sous Rio.

Et une autre remarque : puisque cette unité va s'intercaler entre les fiches et Vcl.Forms.pas, l'ensemble de Vcl.Forms.pas va être masqué. Il faudra certainement router d'autres types et variables. Par exemple pour utiliser Application, il faudra ajouter cette déclaration var Application :TApplication absolute Vcl.Forms.Application.

Mais la question que je me pose est pourquoi modifier tous ces Scale ? Ne pas oublier que la notion de manifeste n'existait pas sous D7 et que l'activer sous Rio pourrait palier aux problèmes de mise à l'échelle.

[Paul TOTH]

en dernier recours il doit être aussi possible de copier l'unité Vcl.Forms.pas dans le répertoire du projet et modifier la partie implémentation.

tant qu'on ne touche pas à la partie interface, cela devrait fonctionner....sinon on tombe sur "l'unité XXX a été compilée avec une version différente de yyy"...seules l'interface est impliquée dans cette comparaison.

[anapurna]

salut

le plus simple étant quand même d'utiliser des "templates de forme"
dont vont heriter tout les forme de ton appli
cela évite de faire des copier coller de forme en forme
tu peut ensuite décliner ces Template par exemple pour des dialogues
le travail seras laborieux la première fois mais après tu comprendra l'utilité du paradigme object

je me souvient que quickreport avait fait ce genre d'outil afin de modifer tout les etats