'Legg Eksisterende "-menyen i standard autoforms ble ikke implimented og er alltid deaktivert. Denne enkle formen patcher fet kilde for å aktivere denne option.While bygge et program det er nyttig å bruke standard auto former, men det er frustrerende at "Eksisterende 'menyvalget aldri ble implimented. For å aktivere denne funksjonen, må du følge instruksjonene below.Place de to filene i dette arkivet (SelectDlg.zip) i Fet kildekatalogen (som standard C: \\ Program Files \\ BoldSoft \\ BfDR40D7Arch \\ Source) og være sikker på at kilden katalogen er i Delphi biblioteket banen (Verktøy, Alternativer for miljø, Bibliotek, Bibliotek Sti) .For å aktivere den form den er også nødvendig å lappe Fet fil BoldAFPDefault.pas å inkludere følgende:

Legg "formGenericSelect" til gjennomføringen bruker klausulen (linje 238)

Legg denne metoden erklæring til TRolebutton klasse (om linje 193):
TRoleButton = klasse (TButton) offentlig [. ..] prosedyre AddExistingObject (Sender: TObject);
slutten;

I metode TRoleMenu.Create, legger de angitte linjene nedenfor (linje 1 288):
anItem: = TMenuItem.Create (Selv); anItem.Caption: = 'Legg til eksisterende ...'; anItem.Enabled: = False; {starte tilsetninger av david Knaack} anItem.Enabled: = true; anItem.OnClick: = fRoleButton.AddExistingObject {stop tilføyelser}


Legg denne metoden til gjennomføringen seksjon (linje 1 184): product: {--- -------------------------------------------------- ------------------------ Fremgangsmåte: TRoleButton.AddExistingObject Dato: 12-Feb-2003 Descrip: Lagt til av David Knaack -------- -------------------------------------------------- -------------------} prosedyre TRoleButton.AddExistingObject (Sender: TObject); Var ObjectReference: TBoldObjectReference; dlgSelect: TfrmGenericSelect; begynner hvis Assigned (BoldHandle) da begynne ObjectReference: = BoldHandle.Value som TBoldObjectReference; dlgSelect: = TfrmGenericSelect.Create (selv, ObjectReference.BoldSystem, BoldHandle.BoldType.ExpressionName); prøve hvis dlgSelect.ShowModal < > mrOK deretter Exit; ObjectReference.BoldObject: = dlgSelect.SelectedBoldObject; endelig dlgSelect.Free; slutt; end, end;.

Nå 'Legg Eksisterende' menyen skal være tilgjengelig for medlemmer som er dristige gjenstander Anmeldelser