Aktivieren Sie 'hinzufügen, bestehende' Menü auf Auto Standardformulare

Aktivieren Sie 'hinzufügen, bestehende' Menü auf Auto Standardformulare

Aktivieren Sie 'hinzufügen, bestehende' Menü auf Auto Standardformulare : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Hinzufügen von vorhandenen Menü in der Standard-Autoforms war nicht Implimented und ist immer deaktiviert. Diese einfache Form Flecken die Fett Quelle um diese Option zu aktivieren.
Während ein Bauantrag es sinnvoll ist, die Standard-Auto-Formulare verwenden, aber es frustrierend ist, dass die Option Hinzufügen vorhandener nie Implimented war. Um diese Funktionalität zu aktivieren, befolgen Sie die Anweisungen unten.
Platzieren Sie die beiden Dateien enthalten in diesem archive(SelectDlg.zip) in das Fett Quellcode-Verzeichnis (standardmäßig C:\Program Files\BoldSoft\BfDR40D7Arch\Source) und achten Sie darauf, dass das Quellverzeichnis den Pfad der Delphi-Bibliothek (Tools, Umgebungsoptionen, Bibliothek, Bibliothekspfad) ist.
Um das Formular zu aktivieren ist es auch notwendig zu Flicken die Bold-Datei BoldAFPDefault.pas, die Folgendes umfassen:

• 
  Fügen Sie 'FormGenericSelect' zur Umsetzung-Klausel (Linie 238) verwendet
  




• 
  Der TRolebutton-Klasse (etwa Zeile 193) dieser Methodendeklaration hinzufügen:
  

  
  TRoleButton = class(TButton)
  public
    [...]
   procedure AddExistingObject( Sender: TObject );
  end;

  




• 
  Fügen Sie in der Methode TRoleMenu.Create die angegebenen Zeilen unterhalb (Linie 1288):
  

  
  anItem := TMenuItem.Create(Self);
  anItem.Caption := 'Add existing...';
  anItem.Enabled := False;
{ start additions by david knaack }
   anItem.Enabled := True;
   anItem.OnClick := fRoleButton.AddExistingObject;
{ stop additions }

  




• 
  Fügen Sie zum Abschnitt 'Implementierung' (Linie 1184) diese Methode:
  

  
{-----------------------------------------------------------------------------
  Procedure: TRoleButton.AddExistingObject
  Date: 12-Feb-2003
  Descrip: Added by David Knaack
-----------------------------------------------------------------------------}
procedure TRoleButton.AddExistingObject( Sender: TObject );
var
  ObjectReference: TBoldObjectReference;
  dlgSelect : TfrmGenericSelect;
begin
  if Assigned(BoldHandle) then
  begin
    ObjectReference := BoldHandle.Value as TBoldObjectReference;
    dlgSelect := TfrmGenericSelect.Create( self, ObjectReference.BoldSystem, BoldHandle.BoldType.ExpressionName );
    try
       if dlgSelect.ShowModal <> mrOK then Exit;
       ObjectReference.BoldObject := dlgSelect.SelectedBoldObject;
    finally
       dlgSelect.Free;
    end;
  end;
end;

  

Jetzt sollte das Hinzufügen von vorhandenen Menü für Mitglieder verfügbar, die Fett-Objekte sind.