Edition de la barre de menu textuelle de l'EDI de Delphi

Invité · 27/05/2016, 06h32

Bonjour.
Dans les applications type Office de MS, on peut éditer les DEUX barres de menus : barre "textuelle" et barre des "boutons". Dans Delphi (classique, maximum version 7), on peut éditer la "barre des boutons" ; et la barre "textuelle" ? Je n'ai rien trouvé dans Delphi lui-même. Outils tiers (Ressource hacker, etc ) ? SVP : ne me demandez pas POURQUOI je veux le faire, j'ai mes raisons, c'est trop long.
Merci d'avance ...

**Paul TOTH** · 27/05/2016, 08h29

Sous Delphi ces informations sont dans une ressource "DFM"

http://lookinside.free.fr/delphi.php?Delphi+et+les+DFM

Invité · 27/05/2016, 08h34

Je ne parlais pas des menus des applications créées avec Delphi, mais des menus de l'EDI de Delphi lui-même !

**ShaiLeTroll** · 27/05/2016, 10h49

Delphi est fait avec Delphi ... donc la proposition de Paul TOTH est applicable mais si extrêmement périlleuse car une DFM binaire est bien plus compliqué à modifier qu'une DFM Texte
Faudrait essayer d'extraire la DFM Binaire, puis de la passer en DFM Text avec ObjectBinaryToText, modifier la chaine obtenu puis repasser en binaire via ObjectBinaryToText
Dans l'aide de D7, c'était même illustré par un exemple

On voit d'ailleurs

Code DFM :

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

1
2
3
ImageList1OnChangeMainMenu1ChangeLefteTop? 	TMenuItemFileMenuCaption&File
GroupIndex
HelpContextè 	TMenuItemNew1Caption&NewHelpContextéOnClick	New1Click 	TMenuItemmnuNewActionSeparatorCaption-  	TMenuItemFileNewItemActionFileNewCommandCaption	&Other...  	TMenuItemmnuBetweenOtherandCustomizeCaption-  	TMenuItemmnuCustomizeActionactnCustomizeNew   	TMenuItemFileOpenItemActionFileOpenCommand  	TMenuItemFileOpenProjectItemActionFileOpenProjectCommand  	TMenuItemOpenFromRepository1ActionFileOpenFromRepository  	TMenuItemFileClosedFilesItemCaption&ReopenHelpContextõHintReopen 	TMenuItemReopenPropertiesItemCaption

Tu peux aussi récupérer le Handle des Menus et manipuler avec les API Windows, je l'ait fait pour remettre en Enabled des menus inactifs dans une applications tiers.

Je pense que certains menus sont créés par code et non à partir du DFM

**Paul TOTH** · 27/05/2016, 14h18

Envoyé par alberich

Je ne parlais pas des menus des applications créées avec Delphi, mais des menus de l'EDI de Delphi lui-même !

Dans ce cas je le ferais avec un Expert, au chargement il peut utiliser les RTTI pour explorer les composants utilisés dans l'IDE et les modifier à sa guise

**guillemouze** · 27/05/2016, 14h37

A peu près d'accord avec paul, sauf que tu peux certainement utiliser OpenToolsAPI(OTA). Regarde du coté des interfaces IOTA* dans l'unité ToolsAPI.
Gexperts rajoute un menu, je sais pas si les sources sont disponibles.

Invité · 27/05/2016, 14h43

En fait, j'ai déjà trouvé 32 fichiers DFM et :
1) Pour savoir lequel est le bon.
2) Savoir comment le modifier.
je crois que c'est effectivement périlleux, je ne voudrais pas abuser du "ghost" chaque fois que j'aurai shooté ma configuration. La sagesse consiste dans ce cas à s'abstenir, vu qu'il n'y a pas d'outil intégré "prévu pour".
Merci encore ...

**anapurna** · 27/05/2016, 15h03

salut
Paul et ShaiLeTroll
le dfm ne sert qu'a la compilation
il permet de construire les différentes ressources dont l’exécutable à besoin
dans dans cette executable tu ne retrouveras jamais le dfm binaire

pour passer d'un binaire a un text c'est super compliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure LoadDFM( filename : String; Dest : TStrings ); 
var 
  InStream  : TFileStream; 
  OutStream : TMemoryStream; 
begin 
  InStream  := TFileStream.Create( filename, fmOpenReadWrite ); 
  OutStream := TMemoryStream.Create; 
  ObjectResourceToText( InStream, OutStream ); 
  InStream.Free; 
  OutStream.Seek(0,0); 
  Dest.LoadFromStream( OutStream ); 
  OutStream.Free; 
end;

si je me souviens bien il faut tester les trois premier caractère qui doivent normalement être de cette valeur $FF0A00
si tu trouve cela c'est donc un dfm binaire sinon c'est du texte

Quand a la question de base la modification des menu peut effectivement se faire a partir des expert

**ShaiLeTroll** · 27/05/2016, 15h47

Envoyé par anapurna

salut
Paul et ShaiLeTroll
le dfm ne sert qu'a la compilation
il permet de construire les différentes ressources dont l’exécutable à besoin
dans dans cette executable tu ne retrouveras jamais le dfm binaire

Tu te trompes !
J'ai même fourni dans mon message un extrait du DFM binaire issu de bds.exe de XE2 qui concerne justement le MainMenu avec son premier TMenuItem au libellé '&File' (oui en anglais dans l'exe)

Code DFM :

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

ImageList1OnChangeMainMenu1ChangeLefteTop? 	TMenuItemFileMenuCaption&File

Voici d'ailleurs la même chose extraite via 7-zip et converti par le code que tu as fourni (j'ai juste mis ObjectText au lieu de ObjectResource)

bds\.rsrc\RCDATA\TAPPBUILDER, regarde à la ligne 30 ... c'est bien du DFM binaire dans l'EXE que l'on traduit aisément en DFM Texte

Code DFM :

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
 
inherited AppBuilder: TAppBuilder
  HorzScrollBar.Increment = 48
  VertScrollBar.Increment = 6
  Caption = ' '
  ClientHeight = 114
  ClientWidth = 788
  DefaultMonitor = dmMainForm
  Menu = MainMenu1
  Scaled = False
  ScreenSnap = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = WindowCloseQuery
  OnConstrainedResize = FormConstrainedResize
  OnShortCut = FormShortCut
  ExplicitWidth = 804
  ExplicitHeight = 172
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 788
    Height = 57
 
	...
 
 
  object MainMenu1: TMainMenu
    Images = ImageList1
    OnChange = MainMenu1Change
    Left = 101
    Top = 63
    object FileMenu: TMenuItem
      Caption = '&File'
      GroupIndex = 10
      HelpContext = 1000
      object New1: TMenuItem
        Caption = '&New'
        HelpContext = 1001
        OnClick = New1Click
        object mnuNewActionSeparator: TMenuItem
          Caption = '-'
        end
        object FileNewItem: TMenuItem
          Action = FileNewCommand
          Caption = '&Other...'
        end
        object mnuBetweenOtherandCustomize: TMenuItem
          Caption = '-'
        end
        object mnuCustomize: TMenuItem
          Action = actnCustomizeNew
        end
      end
      object FileOpenItem: TMenuItem
        Action = FileOpenCommand
      end
      object FileOpenProjectItem: TMenuItem
        Action = FileOpenProjectCommand
      end
      object OpenFromRepository1: TMenuItem
        Action = FileOpenFromRepository
      end
      object FileClosedFilesItem: TMenuItem
        Caption = '&Reopen'
        HelpContext = 1013
        Hint = 'Reopen'
        object ReopenPropertiesItem: TMenuItem
          Caption = 'Properties...'
          HelpContext = 1022
          OnClick = ReopenPropertiesItemClick
        end
      end
      object FileSaveSeparater: TMenuItem
        Caption = '-'
      end
      object FileSaveItem: TMenuItem
        Action = FileSaveCommand
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAsCommand
      end
      object FileSaveProjectAs: TMenuItem
        Action = FileSaveProjectAsCommand
      end
      object FileSaveAllItem: TMenuItem
        Action = FileSaveAllCommand
      end
      object FileCloseItem: TMenuItem
        Action = FileCloseCommand
      end
      object FileCloseAllItem: TMenuItem
        Action = FileCloseAllCommand
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object FilePrintItem: TMenuItem
        Action = FilePrintCommand
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Action = FileExitCommand
      end
    end
    object EditMenu: TMenuItem
      Caption = '&Edit'
      GroupIndex = 20
      HelpContext = 1025
      OnClick = EditMenuClick
      object EditUndoItem: TMenuItem
        Action = EditUndoCommand
      end
      object EditRedoItem: TMenuItem
        Action = EditRedoCommand
      end

Il suffit même de lire le constructeur du TCustomForm qui charge la ressource par le nom de la classe :

Code :

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

1
2
    Result := InternalReadComponentRes(ClassType.ClassName,
      FindResourceHInstance(FindClassHInstance(ClassType)), Instance) or Result;

D'ailleurs, cela limite le nom d'une classe de TForm à 64 caractères

Voir System.SysUtils.IsValidIdent

J'ai déjà modifié des SQL directement dans un .EXE car stocké via un DataModule
On peut même le faire avec du SQL stocké en const !
Je l'ai fait avec UltraEdit, la chance, je devais mettre un truc plus petit, j'avais bourré avec des espaces pour que cela fasse la bonne taille

je l'ai fait aussi récemment sur un .class car je n'avais pas les moyens de recompiler le .java, j'ai changé le nom d'un serveur à l'arrache

Le DFM est stocké en mode binaire dans l'exe comme n'importe quelle ressource !
C'est en Delphi 4 ou 5 que l'IDE supportait une nouveauté : le DFM en mode Texte
pour faciliter sa modification par un éditeur de texte
A la compilation,
si le DFM dans le projet est binaire, il est intégré comme ressource tel quel
si le DFM dans le projet est texte, il est converti puis intégré comme ressource

Envoyé par anapurna

si je me souviens bien il faut tester les trois premier caractère qui doivent normalement être de cette valeur $FF0A00

N'Est-ce pas plutôt TPF0 ?

**Paul TOTH** · 27/05/2016, 16h13

Envoyé par guillemouze

A peu près d'accord avec paul, sauf que tu peux certainement utiliser OpenToolsAPI(OTA). Regarde du coté des interfaces IOTA* dans l'unité ToolsAPI.
Gexperts rajoute un menu, je sais pas si les sources sont disponibles.

c'est l'OTA qu'utilise les expert en effet

Envoyé par anapurna

salut
Paul et ShaiLeTroll
le dfm ne sert qu'a la compilation
il permet de construire les différentes ressources dont l’exécutable à besoin
dans dans cette executable tu ne retrouveras jamais le dfm binaire

oh que si, sous Delphi 2 il me semble, j'avais fait déjà un DFM Extractor
http://tothpaul.free.fr/sources.php?tools.dfmx

Invité · 27/05/2016, 18h03

J'ai réussi à télécharger un "expert". En fait je voulais bricoler dans le menu de mon vieux D3 Pro (pour lequel j'ai eu la licence en 2002 via un bouquin allemand de tutos qui contenait un CD, version officielle et légale ! ). Malheureusement l'expert ne fonctionne qu'avec la version 3.02 et moi j'ai la 3.0 ...
100% des gagnants ont tenté leur chance ... apparemment 100% des perdants aussi !

**anapurna** · 27/05/2016, 18h28

salut

a bin je suis pas venu pour rien

je ne pensais absolument pas que le dfm étais mis dans les ressource de l'exe ...
sachant que les menu sont deja des resource windows je me suis meme pas posé la question de savoir comment delphi se sert du DFM
bravo a tout les deux ^^
je m'incline

Pour les OTA (Open Tool Api) c'est des unités mises à notre disposition pour interagir avec l'ide

**Paul TOTH** · 28/05/2016, 08h32

voir aussi cet exemple

https://theroadtodelphi.com/2016/05/...o-10-1-berlin/

Edition de la barre de menu textuelle de l'EDI de Delphi

EDI Delphi

Discussions similaires

Partager

Partager