Delphi et les DFM
Depuis la toute première version de Delphi, celui-ci intègre des fichiers à l'extension DFM pour gérer les fiches créées dans le designer.
Si vous créez un projet vierge, il possède par défaut une unité Unit1.pas et son fichier Unit1.dfm associé. Dans le code c'est la ligne {$R *.dfm} qui fait le lien entre les deux.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
le fichier DFM est un fichier texte qui contient toutes les propriétés des objets de la fiche
object Form1: TForm1 Left = 259 Top = 124 Width = 1088 Height = 563 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 end
Si j'ajoute un bouton sur la fiche, il apparaît dans la déclaration de la classe TForm1 et dans le DFM
type
TForm1 = class(TForm)
Button1: TButton;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
object Form1: TForm1
Left = 259
Top = 124
Width = 1088
Height = 563
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 160
Top = 72
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
end
end
La ressource DFM
Le fichier DFM est inclus dans l'exécutable sous forme binaire dans une ressource Windows portant le nom de classe de la fiche, ici TFORM1. On peut accéder à cette ressource par le code suivant :TResourceStream.Create(hInstance, 'TFORM1', RT_RCDATA);.
L'unité Classes déclare la classe TReader qui est capable de lire un flux DFM. En temps normal, quand on crée une fiche - ou quand celle-ci est créée automatiquement par Delphi, c'est à dire dans le .DPR - elle utilise unTReader pour charger son DFM et instancier automatiquement tous ses composants avec la méthode ReadComponent. Ainsi la propriété Form1.Button1 pointera sur une instance de TButton sans qu'il soit nécessaire de le coder dans Unit1.pas.
Mais on peut aussi exploiter TReader pour simplement consulter le contenu du DFM, voici une classe utilitaire pour remplir un TTreeView avec le contenu d'une ressource DFM.
type
TTreeReader = class(TReader)
private
FStream : TResourceStream;
FTreeView: TTreeView;
function StringValue: string;
procedure ReadNode(Parent: TTreeNode);
public
constructor Create(AResourceName: string; ATreeView: TTreeView);
destructor Destroy; override;
end;
{ TTreeReader }
constructor TTreeReader.Create(AResourceName: string; ATreeView: TTreeView);
begin
FTreeView := ATreeView;
FStream := TResourceStream.Create(hInstance, AResourceName, RT_RCDATA);
inherited Create(FStream, 4096);
ReadSignature; // Signature du DFM
FTreeView.Items.Clear;
ReadNode(nil); // lire les noeuds
end;
destructor TTreeReader.Destroy;
begin
inherited;
FStream.Free;
end;
// Retourne une valeur quelconque sous forme de chaîne
function TTreeReader.StringValue: string;
var
Str: string;
begin
case NextValue of
vaSet:
begin
ReadValue;
Result := '';
repeat
Str := ReadStr;
Result := Result + ',' + Str;
until Str = '';
if Result = ',' then
Result := '[]'
else begin
Result[1] := '[';
Result[Length(Result)] := ']';
end;
end;
vaIdent : Result := ReadIdent;
else
Result := ReadVariant;
end;
end;
procedure TTreeReader.ReadNode(Parent: TTreeNode);
var
Flags : TFilerFlags;
Index : Integer;
strClass: string;
strName : string;
root : TTreeNode;
begin
ReadPrefix(Flags, Index); // utile pour TFrame par exemple
strClass := ReadStr; // la classe du composant
strName := ReadStr; // son nom
root := FTreeView.Items.AddChild(Parent, strName + ':' + strClass);
// Liste de propriétés du composant
while not EndOfList do
begin
strName := ReadStr; // nom de la propriété, peut être sous la forme 'Font.Name'
FTreeView.Items.AddChild(root, strName + ':' + StringValue);
end;
ReadListEnd;
// Liste des enfants de ce composant
while not EndOfList do
begin
ReadNode(root);
end;
ReadListEnd;
end;
En plaçant un TTreeView sur la fiche, je peux facilement afficher la ressource "TFORM1" :
procedure TForm1.Button1Click(Sender: TObject);
begin
with TTreeReader.Create('TFORM1', TreeView1) do
Free;
end;
Comme le code ci-dessus ne fait pas explicitement référence aux composants de la fiche, on pourrait très bien afficher un DFM contenant des composants inconnus de notre application. Mieux encore, on peut afficher un DFM qui n'a strictement rien à voir avec la bibliothèque de composants de Delphi !
Les DFM exotiques !
Et oui, car ce qui ne saute pas aux yeux de prime abord, c'est que le fichier DFM étant un simple fichier texte associé à l'unité par un {$R *.dfm}, on peut très bien lier à l'application un fichier DFM totalement différent comme celui-ci :
object data: rootNode
text = 'MainNode'
object firstChild: childNode
Image = 1
text = 'Subnode'
options = [One, Two, Three]
end
end
On le lie au projet et le tour est joué !
{$R ExtraFM.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
with TTreeReader.Create('ROOTNODE', TreeView1) do
Free;
end;
Les seules contraintes sont dans le format du fichier, il doit déclarer des objets par un couple object/end, l'objet possède un couple d'identifiants nom : classe qui n'ont pas besoin d'être des classes objets de Delphi, il doivent simplement être des identifiants valides : pas d'espace, d'accents, commencer par une lettre... Ensuite on a une liste de propriétés nom = valeur qui supporte tous les types publiés de Delphi (y compris des images, de SET OF, etc), et enfin la liste des objets enfants. Ce n'est pas un format aussi souple que JSON mais c'est amusant malgré tout.
Attention ! Pour toute erreur de syntaxe dans le fichier DFM vous aurez une erreur de compilation surprenante indiquant que RLINK32 ne parvient pas à compiler une ressource 16bits.
Les DFM utiles
Alors c'est bien beau, on peut donc utiliser les DFM pour stocker des informations non standard ... reste à savoir ce qu'on peut en faire. Et bien une idée m'est venue de suite à l'esprit. Et si j'utilisais un DFM pour modifier les propriétés de ma fiche ?
object Form1: TForm1_extra
Caption = 'Titre de la fenêtre'
object Button3: TButton
Caption = 'Bouton !'
end
end
Je reprends ici la structure de ma fiche en ne conservant que quelques attributs...les Caption. On peut toujours associer cela et visualiser le résultat. Notez au passage que le nom de la ressource est lié à celui de la classe du premier objet et non celui du fichier; il faut donc choisir un autre nom que TFORM1 qui est déjà utilisé par la fiche elle-même.
{$R ExtraData.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
with TTreeReader.Create('TFORM1_EXTRA', TreeView1) do
Free;
end;
Et maintenant, un petit bout de code pour charger ces propriétés dans la fiche; on n'utilisera pas TReader.ReadComponent qui instancie les objets, mais TReader.ReadProperty pourra tranquillement faire son office.
procedure TForm1.Button4Click(Sender: TObject);
var
Resource: TResourceStream;
Reader : TOpenReader;
procedure ReadExtra;
var
Flags : TFilerFlags;
Index : Integer;
strClass: string;
strName : string;
Comp : TComponent;
begin
Reader.ReadPrefix(Flags, Index); // don't care
strClass := Reader.ReadStr;
strName := Reader.ReadStr;
if strName = Self.Name then
Comp := Self
else begin
Comp := FindComponent(strName);
if Comp = nil then
raise Exception.Create(strName + ':' + strClass + ' not found');
end;
while not Reader.EndOfList do
Reader.ReadProperty(Comp);
Reader.ReadListEnd;
while not Reader.EndOfList do
ReadExtra;
Reader.ReadListEnd;
end;
begin
Resource := TResourceStream.Create(hInstance, 'TFORM1_EXTRA', RT_RCDATA);
try
Reader := TOpenReader.Create(Resource, 4096);
try
Reader.ReadSignature; // DFM signature
ReadExtra;
finally
Reader.Free;
end;
finally
Resource.Free;
end;
end;
Et voilà ! en cliquant sur Button4 le titre de la fiche et de Button3 ont changé !
Et voilà comment vous pouvez sans trop d'effort créer une application multilingue avec des DFM additionnels épurés ne comprenant que les propriétés à modifier ! Mais pourquoi donc Borland/Embarcadero n'y ont pas pensé plus tôt ?
Dernière astuce
Avant de clore ce billet, une petite astuce complémentaire, contrairement aux DFM créés par l'IDE de Delphi, les DFM que vous créez à la main peuvent tout à fait faire référence à des propriétés non enregistrées dans l'IDE et même plusieurs fois à la même propriété.
Ajoutons une propriété publiée à la fiche :
type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Déclarations privées }
procedure SetMsg(Value: string);
published
property Msg: string write SetMsg;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SetMsg(Value: string);
begin
ShowMessage(Value);
end;
et exploitons la dans le DFM sans avoir à recenser la fiche dans l'IDE
object Form1: TForm1_extra
Msg = 'Chargement de TForm1_extra'
Caption = 'Titre de la fenêtre'
Msg = 'Le titre a changé'
object Button3: TButton
Caption = 'Bouton !'
end
end
A chaque modification de la propriété Msg l'application nous affiche un message !
Cette approche pourra aussi être utilisée pour désactiver (Active = False) un composant avant de modifier ses autres propriétés puis le réactiver (Active = True). On pourra aussi jouer séquentiellement sur les propriétésAlign, Anchors, Top, Left, Width, Height pour positionner des composants les uns par rapport aux autres.
Conlusion
Delphi a fêté il y peu ses 18 ans, mais au cours de toutes ces années, les idées que je viens d'exposer ne me sont jamais venus à l'esprit...et je ne les ai jamais vues exposées sur le net. Mais si je n'ai pas la primeur de l'idée, ou si le sujet vous inspire, n'hésitez pas à me contacter.
Les source Delphi 6 de cet article sont compatibles avec Delphi XE2 sans aucune modification.
http://lookinside.free.fr/delphi.php?Delphi+et+les+DFM