[go: up one dir, main page]

Menu

Commit [r502]  Maximize  Restore  History

+ hor_components: IHorEditForm.CreateShowAndReturn: renamed into CreateToAddShowAndReturn

+ hor_components: added THorAddPersonReasons:Defines the reasons you are adding a new person: to create a...
+ hor_components: IHorEditForm.CreateToAddShowAndReturn: removed the transaction and used insted the _Reason.
I will not keep the transaction of the calling window because:
a) I have troubles with it
b) if the user enters a lot of information (i.e. contacts) then cancel on the main window, nothing is saved about the new person and this could be frustrating
+ hor_components: THorDBLookupComboBoxPerson: added the FHorNewReasons member variable
+ hor_components: THorDBLookupComboBoxPerson.Create: initializes FHorNewReasons
+ hor_components: added constructor THorDBLookupComboBoxDoctor.Create(AOwner: TComponent) to initialize FHorNewReason
+ hor_components: added THorAddPersonReasonsSet
* hor_components: TfrmSearchResults: is now derived from TForm to show it also outside the current window
+ hor_components: added procedure TfrmSearchResults.CreateParams(var Params: TCreateParams);
+ hor_components: added procedure TfrmSearchResults.FormDeactivate(Sender: TObject);
- hor_components: TfrmSearchResults.FrameExit: removed
+ hor_components: THorDBLookupComboBoxPerson.SetHorFilterFemale: updates FHorNewReasons
+ hor_components: THorDBLookupComboBoxPerson.SetHorFilterMale: updates FHorNewReasons
+ hor_components: THorDBLookupComboBoxPerson.Create: initializes HorFilterFemale and HorFilterMale, instead of FHorFilterFemale and FHorFilterMale, to get FHorNewReasons updated
+ hor_components: TfrmSearchResults.btnCancelClick: clears the entered text
+ hor_components: THorDBLookupComboBox.ShowTheValues: handles FHorFormSearchResults as a standalone window (no more as a part of the current window)
+ TFrmEditPersonsInterface.CreateToAddShowAndReturn: handles the new _Reason parameter initializing OpenedToCreateAnewDoctor, OpenedToCreateAnewPatient and the sex, when possible

matfanjol 2024-03-09

changed /trunk/components/source/hor_dblcb_doctor.pas
changed /trunk/components/source/hor_dblcb_person.pas
changed /trunk/components/source/hor_frmsearchresults.lfm
changed /trunk/components/source/hor_frmsearchresults.pas
changed /trunk/components/source/hor_interfaces.pas
changed /trunk/components/source/hordblookupcombobox.pas
changed /trunk/hor_edit_persons.pas