Activer l'option "ajouter" du menu par défaut automatique des formulaires

Activer l'option "ajouter" du menu par defaut automatique des formulaires

Activer l'option "ajouter" du menu par defaut automatique des formulaires : Plusieurs milliers de conseils pour vous faciliter la vie.

'Ajouter' dans le menu par defaut autoforms n'etait pas implimented et est toujours desactive. Cette simple forme de patchs, la source de gras pour activer cette option.
lors de la construction d'une application, il est utile d'utiliser la valeur par defaut auto formes, mais c'est frustrant que le 'Ajouter' du menu option n'a jamais ete implimented. Pour activer cette fonctionnalite, suivez les instructions ci-dessous.
Placez les deux fichiers contenus dans cette archive(SelectDlg.zip) dans le Gras repertoire source (par defaut, C:\Program Files\BoldSoft\BfDR40D7Arch\Source ) et assurez-vous que le repertoire source est dans le Delphi chemin de la bibliotheque (Outils, Options de l'Environnement, de la Bibliotheque, Chemin de la Bibliotheque).
Pour activer le formulaire, il est egalement necessaire de patcher le Gras fichier BoldAFPDefault.pas d'inclure les elements suivants:

• 
  Ajouter 'formGenericSelect' pour la mise en œuvre utilise la clause (ligne 238)
  




• 
  Ajoutez cette methode de declaration a la TRolebutton classe (a propos de la ligne 193):
  

  
& nbsp & nbsp TRoleButton = classe(TButton)
& nbsp & nbsp public
& ! & ! & ! & nbsp [...]
& nbsp & nbsp & nbsp procedure AddExistingObject( Sender: TObject )
& nbsp & nbsp fin

  




• 
  Dans la methode TRoleMenu.De creer, d'ajouter les lignes indiquees ci-dessous (ligne 1288):
  

  
& nbsp & nbsp anItem := TMenuItem.Create(Self)
& nbsp & nbsp anItem.Caption := 'Ajouter...'
& nbsp & nbsp anItem.Enabled := False
{ debut ajouts par david knaack }
& nbsp & nbsp & nbsp anItem.Enabled := True
& nbsp & nbsp & nbsp anItem.OnClick := fRoleButton.AddExistingObject
{ stop ajouts }

  




• 
  Ajouter cette methode pour la mise en œuvre de la section (ligne 1184):
  

  
{ & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & -
& nbsp & nbsp Procedure: TRoleButton.AddExistingObject
& nbsp & nbsp Date: 12-Feb-2003
& nbsp & nbsp Descrip: Ajoutee par David Knaack
& & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & -}
procedure TRoleButton.AddExistingObject( Sender: TObject )
var
& nbsp & nbsp ObjectReference: TBoldObjectReference
& nbsp & nbsp dlgSelect : TfrmGenericSelect
begin
& nbsp & nbsp si Affecte(BoldHandle)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp ObjectReference := BoldHandle.Valeur TBoldObjectReference
& ! & ! & ! & nbsp dlgSelect := TfrmGenericSelect.Create( self, ObjectReference.BoldSystem, BoldHandle.BoldType.ExpressionName )
& ! & ! & ! & nbsp essayer
& ! & ! & ! & ! & ! & ! & nbsp si dlgSelect.ShowModal <> mrOK puis la Sortie
& ! & ! & ! & ! & ! & ! & nbsp ObjectReference.BoldObject := dlgSelect.SelectedBoldObject
& ! & ! & ! & nbsp enfin
& ! & ! & ! & ! & ! & ! & nbsp dlgSelect.Gratuit
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin
fin

  

Maintenant, la 'Ajouter' menu doit etre disponible pour les membres qui sont en gras objets.