Health Organizer Code

+ TfrmEditContacts_Categories_Person: changed the resize constraints of the name field
* CheckContactCategoriesPerson.Check: trim the names to avoid to go over the limit due to long translations
+ Extends category of contacts to 30 characters
- TfrmEditExemptionsAndMore: fixed missing event on qData

- TfrmEditDocuments.btnSaveAllAndOpenClick: fixed title/text of the message reversed
- TfrmEditDocuments.lvAttachmentsDblClick: fixed title/text of the message reversed

- Added the missing procedure TfrmNavigationStandard.qListAfterEdit(DataSet: TDataSet); and procedure TfrmNavigationStandard.qListAfterInsert(DataSet: TDataSet); that made all the navigation grids crashing
- TfrmNavigationStandard.MsgEvents_RefreshData: removed the refresh because it is crashing...

+ Added the following translations:
rsMsgErrorAttachmentAndOrDocumentNotFound
rsMsgErrorFileNotCompletelyWritten
rsMsgErrorFileDateTimeNotSet
+ TDocuments.SaveAttachmentFile: added an ErrorMessage parameter
+ TDocuments.SaveAttachmentsIntoFolder: added an ErrorMessage parameter
+ TDocuments.SaveAttachmentIntoFolder: added an ErrorMessage parameter
+ TfrmEditDocuments.btnSaveAllAndOpenClick: shows the error message in the case of problems saving the files
+ TfrmEditDocuments.lvAttachmentsDblClick: shows the error message in the case of problems saving the files
+ TSaveThread.Execute: stops if there are errors saving the attachments
+ TExportMedicalData.Execute: stops if there are errors saving the attachments

+ added the missing hor_navigation_examinations_names_rename.*

+ Added the TfrmNavigationExaminationsNamesRename mask
+ added procedure TfrmMain.actExaminationsNamesRenamesListExecute(Sender: TObject);
+ TExportMedicalData.Execute: uses the renamed names of the examination and groups equal names together

+ Added the TfrmEditMdlExaminationsNamesRename mask
+ frmMain: added the actExaminationsNamesRenamesList and actExaminationsNamesRenamesAdd actions
+ frmMain: added the miGeneralDataExaminationsNamesRenames, miExaminationsNamesRenamesList and miExaminationsNamesRenamesAdd menu entries
+ hor_messages: added the following translations:
rsMsgSubstituteExaminationNameStepRenamed
rsMsgSubstituteExaminationNameStepRenamedDelete
+ TfrmSubstituteExaminationName: added the qSubExaminationsRenamed and qSubExaminationsRenamedDel queries
+ TfrmSubstituteExaminationName.bbtnOkClick: updates also the "tExaminationsNamesRenamedNames" table
- The matfanjol@... no more works, then replaced it with matfanjol@... (https://sourceforge.net/p/forge/documentation/User%20Email%20Alias/)

- hor_components: TfrmComboBoxPatient: fixed the components resize
- hor_components: THorDataModule.HorCreateSqlConditionDate: Fixed the missing ) and quoted part
* hor_components: TfrmSearchResults: lblMaxReached: better message
+ added the tExaminationsNamesRenamed and tExaminationsNamesRenamedNames tables that will let you rename the examination names during the export of the data
+ hor_database: Added the following constants:
constDB_ContactCategoryPerson_Father
constDB_ContactCategoryPerson_Mother
constDB_ContactCategoryPerson_BrotherSister
constDB_ContactCategoryPerson_DaughterSon
+ hor_messages_usb: Added the following translations:
rsUS_CCP_BrotherSister
rsUS_CCP_Father
rsUS_CCP_Mother
rsUS_CCP_DaughterSon
+ hor_database: Array_ContactsCategoriesPerson: adds also the father, mother, brother/sister
+ TfrmEditPersonsToContact: added the missing fields
+ added procedure TfrmNavigationPersonsToContact.qListBeforeOpen(DataSet: TDataSet); to open the query with the provided PatientID
- TfrmNavigationPersonsToContact: only the first 150 characters are taken from the note field
- Remove the unused TfrmEditPersonsToContact.HideShowCheckbox
- Remove the unused TfrmEditPersonsToContact.qDataBeforePost
- Remove the unused TfrmEditPersonsToContact.qDataAfterOpen
- Remove the unused TfrmEditPersonsToContact.qDataAfterEdit
- Remove the unused TfrmEditPersonsToContact.qDataAfterInsert
+ TfrmNavigationPersonsToContact.qListBeforeInsert: when adding the first new record, sets the order to 1 and select the person
+ added procedure TfrmEditPersonsToContact.qDataCOD_PersonChange(Sender: TField) to update the title
+ TfrmEditStandard.Save: added the Sender parameter
+ TfrmEditStandard: added FHorOnBeforeCommit member variable and HorOnBeforeCommit property
+ TfrmEditStandard.Save: calls FHorOnBeforeCommit before the commit
+ TfrmEditPersonsToContact.FormCreate: sets HorOnBeforeCommit
+ added procedure TfrmEditPersonsToContact.UpdateTheOtherOrders(const _CurrentOrder, _CurrentPerson: integer);
+ added procedure TfrmEditPersonsToContact.OnBeforeCommit(Sender: TObject); to call UpdateTheOtherOrders

- hor_components: THorDataModule: removed qPersonsFemale and qPersonsMale
+ hor_components: THorDataModule.qDoctors: added the %WHERE% to the SQL
+ hor_components: THorDataModule.qPatients: added the %WHERE% to the SQL
- hor_components: THorDataModule.qDoctors: fixed the "order by"
- hor_components: THorDataModule.qPatients: fixed the "order by"
- hor_components: THorDataModule.qPersons: fixed the "order by"
+ hor_components: added function THorDBLookupComboBoxPerson.HorGetInitialSql(): string;
+ hor_components: THorDBLookupComboBoxPerson.HorBuildSql: uses HorGetInitialSql
+ hor_components: added function THorDBLookupComboBoxDoctor.HorGetInitialSql(): string;
+ hor_components: THorDBLookupComboBox.PrepareQueryData: sorts the results
+ hor_components: THorDBLookupComboBox.PrepareQueryDataDefault: sorts the results
* hor_components: THorDBLookupComboBox: the default max entries are 50
+ hor_components: IHorEditForm: added function CreateToShow( const _ID: integer ): boolean;
+ hor_components: added procedure THorDBLookupComboBoxPerson.onHorDbLookupComboBoxDblClick(Sender: TObject);
+ hor_components: THorDBLookupComboBoxPerson.Create: let you double click the text to get the person open in edit
+ hor_components: added function THorDBLookupComboBoxPatient.HorGetInitialSql(): string;
+ hor_components: added constructor THorDBLookupComboBoxPatient.Create(AOwner: TComponent);
- hor_components: THorDBLookupComboBoxPersonFemale: removed because you can have it setting HorFilterMale=false
- hor_components: THorDBLookupComboBoxPersonMale: removed because you can have it setting HorFilterFemale=false
+ hor_components: THorDBLookupComboBox.Create: do not create the FHorFormSearchResults otherwise appears inside the IDE...
+ hor_components: THorDBLookupComboBox.Destroy: destroies FHorFormSearchResults only if necessary
+ hor_components: THorDBLookupComboBox.onHorTimerSeach: creates FHorFormSearchResults if necessary
- TfrmEditExaminations: removed qDoctors, dsDoctors
+ TfrmEditExaminations.dblcDoctor: it is the first to use the new THorDBLookupComboBoxDoctor component! :)
- TfrmEditExaminations.btnAddClick: no more handles the doctors
- TfrmEditExaminations.qDataAfterOpen: no more opens qdoctors
+ TfrmEditExaminations.qDataDateChange: sets the filter by age for a worked day of the doctor
+ added function TFrmEditPersonsInterface.CreateToShow(const _ID: integer): boolean;

+ 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