Health Organizer Code

- 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

+ Added the new information about how to compile the program

- TRestoreJob.Restore: no more commit the transaction and close the database connection
+ TRestoreJob.CheckIntegrity: checks that a database connection and a transaction are available and active
- TRestoreJob.CheckIntegrity: closes the query after each count
+ Added TRestoreDoneEvent: the event to call when a successfull restore was done
+ Added procedure TfrmDbConnect.OnRestoreDone(_Sender: TObject; const _ServerHost: string; const _ServerPort: integer; const _UserName, _Password, _Database: string): is called when a successfull restore thread ends and tries to connect to the restores database
+ TfrmRestore: added FOnRestoreDone member variable
+ Added procedure TfrmRestore.MsgEvents_ThreadDone(var Msg: TLMessage) for the message HORMSG_DONE: calls the FOnRestoreDone if set
+ TRestoreJob.Execute: post the HORMSG_DONE message to the father form when successfully done
* constDefaultDataDatabaseSuffix moved from hor_dbopen inside hor_database
+ TRestoreJob.Restore: deletes and creates also the database with the default data (but no default data is restored of course. The backup is generated only of the user data, not the default one)
+ TfrmDbConnect.btnNextClick: closes the current database connection before to start a restore
You can restore a backup! :)

+ THorSQLScript: added the FHorOnSQLStatement member variable
+ THorSQLScript: added the OnHorSQLStatement event property
+ added procedure THorSQLScript.ExecuteStatement(SQLStatement: TStrings; var StopExecution: Boolean): calls OnHorSQLStatement. Via this event you can see what is executing
+ TRestoreJob.Restore: adds the COMMENT as directive. In this way I will get a OnDirective event call to each statement starting with COMMENT and inside OnDirective I can control if to skip or not it
+ Added procedure TRestoreJob.OnHorStatement(Sender: TObject; Statement: TStrings; var StopExecution: Boolean): updates the progress bar
- TRestoreJob.CheckIntegrity: fixed the parameters of the error message (requested string, but integer were provided)
+ added procedure THorSQLScript.HorRunStatement(SqlStatement: TStrings): let you execute a statement within an event call
Now the database seems to be restored. :) There are still other problems, but one step at a time...

+ Added procedure TRestoreJob.OnDirective(Sender: TObject; Directive, Argument: AnsiString; var StopExecution: Boolean) to update the progress bar during the script execution
- TRestoreJob.Restore: fixed the role creation command and position
+ TRestoreJob.Restore: activate the progress bar during the script execution
+ TRestoreJob.CheckIntegrity: starts the integrity step updating the relative icon and label
+ new raw and bad written TODO points