Health Organizer Code

- TRestoreJob.Restore: Fixed the instructions to create the new user
- TRestoreJob.Restore: drop database needs to be outside any transactions
+ TRestoreJob.UpdateForm: enables the confirm e cancel buttons during sAskUserConfirmation
+ TRestoreJob.UpdateForm: disables the confirm e cancel buttons during sContinueAfterUserConfirmation
* TRestoreSteps: renamed sProgressEnd into sProgressBarEnd
+ TRestoreJob.Decompress: stops the progress bar after the unzip
+ TRestoreJob.Decompress: highlight the error point in case of errors
+ TRestoreJob.Restore: update the restore icon
- TfrmRestore.btnCancelRestoreClick: close also the window
+ TRestoreSteps: added sRetry
+ TFrmRestore: added the retry and cancel buttons if the elaboration stops due to errors
- TRestoreJob.Execute: the removal of the temporary folder is always done, also in the case of errors
+ TFrmRestore: during the close, closes the main calling form and free itself

* TRestoreJob.Destroy: uses FreeAndNil instead of just free
- TRestoreJob.Log: Checks FLog is assigned
- TfrmRestore: btnCancel has none modal result
- TfrmRestore: fixed the name btnContinue
- TfrmRestore: btnContinue has none modal result
- TfrmRestore.ShowHideFields: the password fields of the user is always visible, because if we have to create a new user we need it to define the new password, but if we don't, we need anyway the password to log in!
- TfrmRestore.btnContinueClick: the password of the user is always necessary
* Updated translations

* TfrmRestore: renamed btnContiue into btnContinue
- TfrmRestore: btnContinue: fixed the position during the resize of the window
- TfrmRestore: btnCancelRestore: fixed the position during the resize of the window
- TfrmRestore.SuperUserDetailsRequired: fixed the condition
* TfrmRestore.ShowHideConnectionFields: renamed into TfrmRestore.ShowHideFields
* TfrmRestore: improved the sequence of the fields

- TfrmBase.Unused: Fixed the type of the message not working on Linux
- TfrmBackup.GetProgramVersion: Fixed ZeroMemory not available on Linux
- TRestoreJob.Check: Fixed ZeroMemory not available on Linux
+ Added procedure TfrmMiscDoubleProgressBar.Unused(const _Obj: TObject);
- TfrmdpbDatabaseUpdate.FormClose: fixed compilation warnings
- TfrmdpbDatabaseUpdate.FormDestroy: fixed compilation warnings
- TfrmdpbDatabaseUpdate.FormShow: fixed compilation warnings
- TUpdateThread.ScriptException: fixed compilation warnings
- TfrmdpbDatabaseUpdate.tmrUpdateStatusTimer: fixed compilation warnings
- TUpdateThread.ScriptException: fixed compilation warnings

- TfrmNavigationExaminationsPeriodical.qListBeforeInsert: fixed warning message
- TfrmNavigationExaminationsPeriodical.qListEveryTypeGetText: fixed warning message
- hor_navigation_examinations_periodical: fixed warning message
- TfrmEditExaminationsPeriodical.qDataEndWhenGetText: fixed warning message
- TfrmEditExaminationsPeriodical.qDataEveryTypeGetText: fixed warning message
- hor_edit_examinations_periodical: fixed warning message
- TfrmEditExaminationsPeriodical.qDataAfterEdit: fixed warning message
+ Added procedure TfrmBase.Unused(const _Msg: TMessage);
- TfrmMain.MsgEvents_pmMonitorPopUp: fixed warning message
- hor_database:DB_Update: fixed warning message
- hor_data_base: fixed warning message
- TExecuteBackupThread.CreateDatabaseDump: fixed warning message
- TExecuteBackupThread.Create: fixed warning message
- TfrmBackup.GetProgramVersion: fixed warning message
- TExecuteBackupThread.CreateInformationFile: fixed warning message
- hor_backup: fixed warning message
- TRestoreJob.Create: fixed warning message
- hor_restore: fixed warning message
- hor_dbopen: fixed warning message
- TfrmEditBase.ChangeTransaction: fixed warning message
- TfrmEditMdlStandard.mDetailAfterDelete: fixed warning message
- TfrmEditMdlStandard.mDetailAfterPost: fixed warning message
* TfrmEditMdlStandard.LoadDetailRecords: is now abstract
- TfrmNavigationAllergiesReactions.qListTypeGetText: fixed warning message
- TfrmNavigationAllergiesReactions.qListBeforeInsert: fixed warning message
- hor_navigation_allergies_reactions: fixed warning message
- TfrmEditAllergies.qDataAfterOpen: fixed warning message
- TfrmEditAllergies.qDataAfterInsert: fixed warning message
- TfrmEditAllergies.mdDrugsThatHelpAfterPost: fixed warning message
- TfrmEditAllergies.mdDrugsThatHelpAfterDelete: fixed warning message
- TfrmNavigationAllergiesReactions.qListAfterEdit: fixed warning message
- hor_about: fixed warning message
- TfrmNavigationStandard.dbgStandardPrepareCanvas: fixed warning message
- TfrmNavigationStandard.dbgStandardGetCellHint: fixed warning message
- TfrmNavigationStandard.qListAfterDelete: fixed warning message
- TfrmNavigationStandard.qListAfterPost: fixed warning message
- TfrmNavigationStandard.qListBeforeOpen: fixed warning message
- hor_edit_allergies: fixed warning message
+ hor_edit_allergies: added GNU disclaimer
+ hor_navigation_allergies_reactions: added GNU disclaimer
- TFrmBackup: removed the option and stetp to split the attachments because it is no more necessary now that we handle large objects
- TExecuteBackupThread.Create: removed _SplitAttachments parameter
- TExecuteBackupThread: removed FSplitAttachments member variable
- Removed TExecuteBackupThread.SplitAttachments
- hor_backup: Removed ndsSplit from TNotifyDataSteps
+ hor_messages: added rsFileFilterAll, rsFileFilterCompressed
+ TfrmBackup.FormCreate: the file selection mask will filter by zip files as default
+ TExecuteBackupThread.AccessMainForm: exits if the thread has to terminate
+ TExecuteBackupThread.CreateDatabaseDump: exits if the thread has to terminate
+ Added TfrmBackup.fneBackupEditingDone to make sure the file will have .zip extension also if hand written
* TfrmBackup: no scroll bars during the dump
+ TFrmBackup: Added the "close" and "close and open backup folder" buttons that are shown at the end
+ TExecuteBackupThread.AccessMainForm: shows the close buttons at the end

+ Added the LargeObjects.sql to manually checks large objects without connection to the documents
+ Added procedure TfrmNavigationDocuments.DeleteLargeObjects(const _DocumentID: longInt): deletes all the large objects of the given document ID
+ TfrmNavigationDocuments.qListAfterDelete: calls DeleteLargeObjects
- TfrmEditDocuments.lvAttachmentsDblClick: Fixed compilation warning
+ Added procedure TfrmBase.Unused(const _DWord: DWord);
- TfrmEditDocuments.OnWriteDataToLargeObject: Fixed compilation warning
- TfrmNavigationDocuments.qListBeforeInsert: Fixed compilation warning
+ Added procedure TfrmBase.Unused(const _AnsiString: AnsiString);
+ Added procedure TfrmBase.Unused(const _Boolean: Boolean);
- TfrmMain.pgScriptDirective: Fixed compilation warning
- TfrmEditDocuments.miDeleteClick: Fixed compilation warning
- TfrmEditDocuments.btnAddClick: Fixed compilation warning
+ Added procedure TfrmBase.Unused(const _Point: TPoint);
- TfrmEditDocuments.lvAttachmentsContextPopup: Fixed compilation warning

- TfrmEditDocuments: removed the qTempCreate: it is no more necessary
- TfrmEditDocuments: removed the qTempDrop: it is no more necessary
- TfrmEditDocuments: removed the qTempAppend: it is no more necessary
- TfrmEditDocuments: removed the qTempMerge: it is no more necessary
- TfrmEditDocuments: removed the qTempDelete: it is no more necessary
+ qAttach: writes the File_oid column instead of the Content
+ hor_components: THorPQC_OnWriteProgress has an additional parameter, _Stop: if it is set to true, the write operation stops
+ hor_components: THorPQConnection.HorWriteStreamToLargeObject: handles the new _Stop parameter
+ hor_components: THorPQConnection.HorWriteLargeObjectToStream: handles the new _Stop parameter
+ Added procedure TfrmEditDocuments.OnWriteDataToLargeObject(Sender: THorPQConnection; const _Oid: Oid; _Stream: TStream; _Position: Int64; var _Stop: boolean): steps the progress bar and checks if it has to stop
+ TfrmEditDocuments.btnAddClick: no more writes the Content field, but instead the File_oid column and creates the large object
+ TfrmEditDocuments: added the qGetAttachOid query
+ TfrmEditDocuments.miDeleteClick: gets the large object ID and deletes it
- TfrmEditDocuments.btnSaveAllAndOpenClick: fixed compilation warning

+ hor_components: moved the resource strings inside the new horcomponentsmessages.pas
* hor_components: rename rsHorLargeObjectNotOpen into rsHorLargeObjectNotOpened
+ hor_components: added rsHorLargeObjectNotDeleted
+ hor_components: added InvalidOid constant
- hor_components: fixed THorPQConnection.HorWriteStreamToLargeObject: -1 is returned in case of error by the lo_open and lo_write functions (not 0)
- hor_components: fixed THorPQConnection.HorWriteLargeObjectToStream: -1 is returned in case of error by the lo_open and lo_write functions (not 0)
+ hor_components: added function THorPQConnection.HorDeleteLargeObject(const _Oid: Oid): boolean;
* Needs hor_components version >= 1.0.0.0
- TDocuments: removed qAttachmentDataPart: no more necessary
- TfrmEditDocuments.btnAddClick: fixed unused variable
- Fixed the DbVersion and the already existing Updating field of tSettings inside the ver0006.sql
+ ver0006.sql: Drops "Content" column from "tDocumentsFiles" after the convertion from bytea to large objects
+ hor_main: latested know database version is 6
+ hor_components: Added the THorPQC_OnWriteProgress type
+ hor_components: THorPQConnection: added the FHorOnProgress member and the OnHorWriteProgress property
+ hor_components: Added constructor THorPQConnection.Create(AOwner: TComponent) to call InitialisePostgres3
+ hor_components: Added destructor THorPQConnection.Destroy to call ReleasePostgres3
* hor_components: THorPQConnection.HorCreateLargeObject: no more calls InitialisePostgres3 and ReleasePostgres3
* hor_components: THorPQConnection.HorWriteStreamToLargeObject: no more calls InitialisePostgres3 and ReleasePostgres3
* hor_components: THorPQConnection.HorWriteLargeObjectToStream: no more calls InitialisePostgres3 and ReleasePostgres3
+ hor_components: THorPQConnection.HorWriteStreamToLargeObject: calls FHorOnProgress providing the reached read size
+ hor_components: THorPQConnection.HorWriteLargeObjectToStream: calls FHorOnProgress providing the reached read size
+ TDocuments: FDatabase is now a THorPQConnection
+ TDocuments.Create: Database is now a THorPQConnection
+ Added procedure TDocuments.HorWriteProgress(Sender: THorPQConnection; const _Oid: Oid; _Stream: TStream; _Position: Int64) to call Application.ProcessMessage if called by the main program
+ TDocuments.SaveAttachmentFile: uses HorWriteLargeObjectToStream to save the attachment content that now is a large object
+ Added the rsMsgErrorExpectingTHorPQConnection message
I have compared the extraction of the medical data with the old bytea type and with the new large object --> they are the same --> works! :)

- hor_components: removed wrong source files inside the images folder
* hor_components: added version number, license and description information
* hor_components: added license discalimer to horsqlscript
+ hor_components: added THorPQConnection: derivation of TPQConnection with the ability to load/save large object files
* hor_substitute_examination_name: added license discalimer
* hor_restore: added license discalimer
* hor_substitute_examination_name: uses THorPQConnection
* hor_restore: uses THorPQConnection
* hor_main: uses THorPQConnection
* hor_dpb_database_update: uses THorPQConnection

+ Added procedure TfrmBase.Unused(const _Obj: TObject): dummy procedure to remove "Unused" warnings
* TfrmBase.FormClose: calls Unused to avoid unused warning
* TfrmBase.FormShow: calls Unused to avoid unused warning
* TfrmBase.FormCreate: calls Unused to avoid unused warning
* TfrmCountry.btnOkClick: calls Unused to avoid unused warning
* TfrmMiscDoubleProgressBar.bbtnCancelClick: disabled 5024 hint of unused parameter
+ hor_dpb_database_update: added GNU disclaimer
- TfrmdpbDatabaseUpdate.Create: fixed compilation warning about
- TfrmRestore.Create: fixed compilation warnings
- TfrmdpbDatabaseUpdate.tmrUpdateStatusTimer: fixed compilation warnings
- TUpdateThread.ScriptDirective: fixed compilation warnings