Health Organizer Code

* TframeContacts.Create: removed the _Parent parameter and changed the _Owner into _OwnerAndParent
+ Added hor_messages_windows with all the messages sent between our windows/components
+ Added procedure TfrmNavigationStandard.MsgEvents_RefreshData(var Msg: TLMessage) to refresh data on HORMSG_REFRESH message
+ TfrmEditStandard: added the FNotifyWindow variable
+ Added constructor TfrmEditStandard.Create(TheOwner: TComponent; const _NotifyChangesTo: HWND);
+ TfrmEditStandard.Save: posts the HORMSG_REFRESH message to the notify window if available
+ TfrmEditMdlStandard: added the FNotifyWindow variable
+ Added constructor TfrmEditMdlStandard.Create(TheOwner: TComponent; const _NotifyChangesTo: HWND);
+ TfrmEditMdlStandard.Save: posts the HORMSG_REFRESH message to the notify window if available
+ TfrmGenericEditContacts.Create: added the _NotifyChangesTo parameter
+ TfrmGenericNavigationContacts.qListBeforeEdit: provides the _NotifyChangesTo parameter value to be notified when the list needs to be refreshed
+ TfrmGenericNavigationContacts.qListBeforeI: provides the _NotifyChangesTo parameter value to be notified when the list needs to be refreshed
- TfrmGenericNavigationContacts.qList: Fixed the delete sql (not working due to wrong ID parameter)
- hor_navigation_allergies: added the Copyright statement
+ TfrmNavigationStandard: added FSystemField variable
+ TfrmNavigationStandard.qListAfterOpen: initializes FSystemField
+ TfrmNavigationStandard.qListBeforeDelete: stops the operation if acting on a system record
+ TfrmNavigationStandard.qListBeforeEdit: stops the operation if acting on a system record
- TfrmNavigationPathologies.qListBeforeDelete: removed. Now more necessary because it is handled inside TfrmNavigationStandard
+ TfrmNavigationPathologies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDocuments.qListBeforeDelete: calls the inherited method
+ TfrmNavigationDocuments.qListBeforeEdit: calls the inherited method
- TfrmNavigationAllergiesReactions.qListBeforeDelete: removed. Now more necessary because it is handled inside TfrmNavigationStandard
+ TfrmNavigationAllergiesReactions.qListBeforeEdit: calls the inherited method
+ TfrmNavigationCountries.qListBeforeEdit: calls the inherited method
+ TfrmNavigationPersons.qListBeforeEdit: calls the inherited method
+ TfrmNavigationMeasurements.qListBeforeEdit: calls the inherited method
+ TfrmNavigationProblems.qListBeforeEdit: calls the inherited method
+ TfrmNavigationPathologies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationHospitals.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminations_Names.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminations.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminations_Names_Categories.qListBeforeEdit: calls the inherited method
+ TfrmNavigationPrescriptions.qListBeforeEdit: calls the inherited method
+ TfrmNavigationHospitalsWards.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs_Companies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs_Names.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs_Prescriptions.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExemptionsAndMore.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDrugs.qListBeforeEdit: calls the inherited method
+ TfrmNavigationDiary.qListBeforeEdit: calls the inherited method
+ TfrmNavigationHospitalizations.qListBeforeEdit: calls the inherited method
+ TfrmNavigationAllergies.qListBeforeEdit: calls the inherited method
+ TfrmNavigationExaminationsPeriodical.qListBeforeEdit: calls the inherited method
+ TfrmNavigationContactsTypes.qListBeforeEdit: calls the inherited method
+ TfrmGenericNavigationContacts.qListBeforeEdit: calls the inherited method
- TfrmEditHospitals.tsContactsEnter: moved into TfrmEditHospitals.tsContactsShow to avoid refresh problems
- TfrmEditPersons.tsContactsEnter: moved into TfrmEditPersons.tsContactsShow to avoid refresh problems
+ TfrmGenericNavigationContacts: added the FNotifyWindow variable
+ TfrmGenericNavigationContacts:Create: added the _NotifyChangesTo parameter
+ Added procedure TfrmGenericNavigationContacts.MsgEvents_RefreshData(var Msg: TLMessage ): notify to refresh the data also to the calling window
+ Added procedure TframeContacts.MsgEvents_RefreshData(var Msg: TLMessage)
+ TframeContacts.btnContactsEditClick: provides the handle to get the HORMSG_REFRESH message when the grid need to be refreshed
+ Added procedure TfrmGenericNavigationContacts.qListAfterDelete(DataSet: TDataSet): notify to refresh the data also to the calling window
+ Added the rsQMsgNoHospitalExistsCreateOne and rsMsgNoHospital messages
+ Added TfrmComboBoxHospital to select/create a hospital
+ Added function TfrmMain.SelectHospital(var ID: LongInt; var Name: string): boolean
+ TfrmEditHospitals: added the OpenedToCreateAnewHospital variable
+ TfrmEditHospitals.FormCreate: initializes OpenedToCreateAnewHospital
+ Added procedure TfrmEditHospitals.FormClose(Sender: TObject; var CloseAction: TCloseAction): hides the form when used to create a new hospital

+ hor_database: added the aContactsTypes variable
+ hor_database: DB_ClearDynamicCodeDescriptionArrays: clears also aContactsTypes
+ hor_database: added function Array_ContactsTypes: TArray;
+ hor_database: TCodeToDescr: added ctdContactsTypes
+ hor_database: DecodeCodeOrDescription: handles also ctdContactsTypes
+ hor_usb_stick_vital: TSaveThread.Execute: added qContacts
+ hor_messages_usb: added the following messages:
rsUS_Country
rsUS_Contacts
rsUS_CountryInternationPhoneCode
+ hor_messages: added the following messages:
rsTitleContactsOf
rsMsgErrorUnhandledValue
+ hor_usb_stick_vital: TSaveThread.Execute: writes the country and the contacts
+ Added hor_generic_contacts: defines the available contacts and the relative database information
+ Added the TfrmGenericEditContacts form able to edit the contacts of a Hospital, Person or Place
+ Added the TfrmGenericNavigationContacts form able to list the contacts of a Hospital, Person or Place
+ Added the TframeContacts frame able to list the contacts of a Hospital, Person or Place
+ TfrmEditPersons: added the FContactsFrame variable
+ Added TfrmEditPersons.FormDestroy to destroy, if necessary, the FContactsFrame variable
+ TfrmEditPersons.tsContacts: uses TframeContacts as content of the tab using the FContactsFrame variable
+ TfrmEditHospitals: added the FContactsFrame variable
+ Added TfrmEditHospitals.FormDestroy to destroy, if necessary, the FContactsFrame variable
+ TfrmEditHospitals: added the tsContacts tab that uses TframeContacts as content of the tab using the FContactsFrame variable
+ Added tPlacesContacts table
+ New reminders about next steps...

+ Added the missing TfrmEditPersonsContacts and TfrmNavigationPersonsContacts (sorry...)

+ hor_database: added constDB_ContactType_Web
* "tContactsTypes": Extended the "Name" field to 15 characters
+ "tContactsTypes": added the "Url" field
+ Added the rsUS_CT_Web and rsHintDoubleClickToActivateContact messages
+ hor_database: CheckContactTypes: Added the "web page" contact type
+ hor_database: CheckContactTypes: Adds and updates also the "Url" field
+ Added TfrmNavigationPersonsContacts
+ Added TfrmEditPersonsContacts
+ TfrmEditPersons: added the Contact tab with a button to open the contacts of the current person
* DB_CheckSystemData: commit pending transactions before to start
* DB_Connect: commit the transaction only when still open
+ Added the following messages:
rsMsgCheckFailed
rsUS_Height
rsUS_HeightData
- TfrmEditExaminations: Fixed compilation warnings
- TfrmEditPrescriptions: Fixed compilation warnings
- TfrmNavigationExaminations: Fixed compilation warnings
- TfrmNavigationPersons: Fixed compilation warnings
+ TSaveThread.Execute: added the height
- Removed the unused TfrmEditExemptionsAndMore.qDataAfterPost
- Removed the unused TfrmEditExemptionsAndMore.qDataAfterInsert
- TfrmEditExemptionsAndMore: Fixed compilation warnings

- TfrmAbout: fixed the copyright year
+ hor_database: CheckContactTypes: added "Skype" following the instructions described at https://secure.skypeassets.com/content/dam/scom/pdf/skype_brand_guidelines.pdf
+ TfrmMain: added the Skype icon
+ hor_components: added THorDBComboBoxIcons: a combo box connected to an interger field that shows, as values, the images of a list
+ Added TfrmEditContacts_Types
+ Added TTfrmNavigationContactsTypes
+ You can handle the types of the contacts like Phone, Mobile, E-mail, etc.
+ Added procedure TfrmBase.Unused(const _GridDrawState: TGridDrawState);

+ hor_database: CheckMeasurementsUnits: Added "Bottle", "Vial" and "Drops" units of measurement
+ Added the following messages:
rsUS_MT_Bottle
rsUS_MT_Vial
rsUS_MT_Drops
rsUS_CT_Email
rsUS_CT_Mobile
rsUS_CT_Phone
rsUS_CT_Fax
rsUS_CT_PhoneInternal
rsUS_CT_RadioChannel
- hor_database: CheckDoctorsTypesCategories: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckMeasurementsUnits: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckMeasurementsTypes: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckPathologies: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: CheckAllergiesReactions: no more commits the transaction because it is handled by DB_CheckSystemData
- hor_database: DB_CheckSystemData: if one of the checks fail, continue with the others instead to stop
+ hor_database: added function CheckContactTypes(): boolean: It checkes that the system's contact types exist
+ TfrmMain: added imgListIcons image list with the icons for the contact's types
* hor_messages_usb: updated copyright year
- TfrmEditHospitalizations.qDataAfterInsert: fixed compilation hint
- TfrmNavigationHospitalizations.qListBeforeInsert: fixed compilation hint
- TfrmEditHospitalizations.tsMainContextPopup: removed because it is not used and raises compilation hints
- TfrmNavigationHospitalizations.qListAfterEdit: removed because it is not used and raises compilation hints
- TfrmNavigationHospitalizations.qListAfterInsert: removed because it is not used and raises compilation hints

* tPersons table: improoved the fk_tPersons_tCountriesCitiesAddresses and fk_tPersons_tCountriesCities_Birth constraints
+ tPersons table: added the link to the father and mother
+ new tPersonsGroups and tPersonsGroupsPersons tables to be able to define groups of people like "Friends","Family","Sport team", etc.
+ new tPlaces table
+ New tHumanContacts, tHumanContactsPersons and tHumanContactsPlaces tables to keep track of contacts between people
+ tSettings table: added the DeleteHumanContactsAfterDays field
+ tPatients table: added the PregnantSince field

+ The setup can create 32bit and 64bit (the default) installations
* Improoved documentation

- TExecuteBackupThread.syncGetFormLabel: fixed compilation warning
- TExecuteBackupThread.syncGetFormImage: fixed compilation warning
- TfrmBackup.bbtnCancelClick: fixed compilation warning
- TfrmBackup.fneBackupEditingDone: fixed compilation warning
- TfrmBackup.btnCloseOpenFolderClick: fixed compilation warning
- TfrmBackup.btnCloseClick: fixed compilation warning
- TfrmBackup.bbtnCreateBackupClick: fixed compilation warning
+ Added procedure TRestoreJob.Unused(const _Obj: TObject);
- TRestoreJob.OnProgress: fixed compilation warning
- TfrmRestore.FormDestroy: fixed compilation warning
- TfrmRestore.MsgEvents_ThreadFailure: fixed compilation warning
- TfrmRestore.MsgEvents_ThreadDone: fixed compilation warning
- TfrmRestore.btnCancelRetryClick: fixed compilation warning
- TfrmRestore.btnRetryClick: fixed compilation warning
- TfrmRestore.btnCancelRestoreClick: fixed compilation warning
- TfrmRestore.btnContinueClick: fixed compilation warning
- TfrmRestore.chkDoNotCreateDatabaseChange: fixed compilation warning
- TfrmRestore.chkDoNotCreateUserChange: fixed compilation warning
- TfrmRestore.chkDropDatabaseChange: fixed compilation warning
- TfrmRestore.edtRestoreNewPasswordChange: removed. Not necessary

- TfrmBackup: hidden the password because actually is not supported
+ Added rsAge_JustDays
+ FUNC_Age: if the birthdate is less than 3 months, the age is written in days
- TRestoreJob.Check: no more catches the errors otherwise they are not shown to the user
- TRestoreJob.Decompress: no more catches the errors otherwise they are not shown to the user
- hor_restore: frmRestore variable removed: not used
+ hor_restore: added the HORMSG_FAILURE message
+ hor_restore: added the TRestoreFailureEvent event type
+ TfrmRestore: added the FOnRestoreFailure member
+ TfrmRestore.Create: added the _WhenFailure parameter
+ Added procedure TfrmRestore.MsgEvents_ThreadFailure(var Msg: TLMessage) to notify the calling object about the fail
+ Added procedure TfrmDbConnect.OnRestoreFailure(_Sender: TObject): let the user select another file
+ TRestoreJob.Execute: posts the HORMSG_FAILURE message in the case of not retryable errors
+ Added the rsQMsgAreYouSureWasBackupFile message
* TRestoreJob.Check: when dump.ini was not found, a message to ask the user about the right file selection appears as extra indication
- Removed the "patches" folder. No more necessary
* TODO changes