Habilitar 'agregar' menú predeterminada de auto formas

Habilitar 'agregar' menu predeterminada de auto formas

Habilitar 'agregar' menu predeterminada de auto formas : Multi-millones de consejos para hacer su vida mas facil.

'Agregar' en el menu predeterminado de autoforms no era implimented y siempre esta desactivado. Esta sencilla forma de los parches de la fuente negrita para habilitar esta opcion.
Mientras que la construccion de una aplicacion es util para utilizar el valor predeterminado auto formas, pero es frustrante que el 'Añadir' opcion de menu nunca fue implimented. Para habilitar esta funcionalidad, siga las instrucciones de abajo.
Poner los dos archivos contenidos en este archivo(SelectDlg.zip) en la fuente Negrita (el directorio por defecto, C:/Program Files/BoldSoft/BfDR40D7Arch/Source ) y asegurese de que el directorio de origen se encuentra en la biblioteca Delphi ruta (Herramientas, Opciones de Entorno, de Biblioteca, de la Biblioteca de la Ruta).
Para activar el formulario tambien es necesario el parche de la Negrita archivo BoldAFPDefault.pas de incluir los siguientes:

• 
  Agregar 'formGenericSelect' para la aplicacion utiliza la clausula (linea 238)
  




• 
  Añadir esta declaracion de metodo para la TRolebutton clase (cerca de la linea 193):
  

  
& nbsp & nbsp TRoleButton = clase(TButton)
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp [...]
& nbsp & nbsp & nbsp procedimiento AddExistingObject( Sender: TObject )
& nbsp & nbsp final

  




• 
  En el metodo TRoleMenu.Crear, agregar las lineas indicadas a continuacion (linea 1288):
  

  
& nbsp & nbsp anItem := TMenuItem.Create(Self)
& nbsp & nbsp anItem.Caption := 'Agregar existente...'
& nbsp & nbsp anItem.Enabled := False
{ inicio adiciones por david knaack }
& nbsp & nbsp & nbsp anItem.Enabled := True
& nbsp & nbsp & nbsp anItem.OnClick := fRoleButton.AddExistingObject
{ stop adiciones }

  




• 
  Agregar este metodo a la seccion de implementacion (linea 1184):
  

  
{ & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & -
& nbsp & nbsp Procedimiento: TRoleButton.AddExistingObject
& nbsp & nbsp Fecha: 12-Feb-2003
& nbsp & nbsp Descrip: Añadido por David Knaack
& & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & & -}
procedimiento TRoleButton.AddExistingObject( Sender: TObject )
var
& nbsp & nbsp ObjectReference: TBoldObjectReference
& nbsp & nbsp dlgSelect : TfrmGenericSelect
begin
& nbsp & nbsp si se ha Asignado(BoldHandle), a continuacion,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp ObjectReference := BoldHandle.Valor como TBoldObjectReference
& nbsp & nbsp & nbsp & nbsp dlgSelect := TfrmGenericSelect.Create( self, ObjectReference.BoldSystem, BoldHandle.BoldType.ExpressionName )
& nbsp & nbsp & nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si dlgSelect.ShowModal <> mrOK, a continuacion, Salir
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp ObjectReference.BoldObject := dlgSelect.SelectedBoldObject
& nbsp & nbsp & nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp dlgSelect.Libre
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final
fin

  

Ahora, la 'Agregar' el menu debe estar disponible para los miembros que estan en negrita los objetos.