HMGforum.com

Posted: **Wed Aug 12, 2015 12:24 am**

Gracias Claudio.....

Posted: **Thu Aug 13, 2015 2:14 pm**

Rathinagiri wrote:Thank you Claudio. The patch file is updated in the download page also.

Hola Rathinagiri

Supongo que hay un pequeño error en el programa de desinstalación en HMG 3.4.1
Yo he instalado la última versión que tú has puesto con los bugs corregidos y previamente quería desinstalar la anterior versión. Pero cuando lo hice desde menú Inicio de Windows, no desinstaló la versión 3.4.1 y desinstaló la versión 3.4.0 que yo la tenía instalada.

Luego entré en el directorio Program Files de Windows en la carpeta HMG.3.4.1 y ejecuté el desinstalador y lo eliminó correctamente.

Es sólo una sugerencia cuando puedas lo revisas.

Muchas gracias por tu excelente trabajo y por supuesto a Claudio.

In English

Hello Rathinagiri

I suppose there is a small error in the uninstall program in HMG 3.4.1
I installed the latest version that you have made with bug fixes and previously want to uninstall the previous version. But when I it from uninstall program in the Windows Start menu, not uninstall version 3.4.1 and uninstall the version 3.4.0 that I had installed.

Then I went into the Program Files directory in Windows HMG.3.4.1 folder and run the uninstaller and successfully removed.

It's just a suggestion when you can so you check.

Thank you very much for your excellent work and of course Claudio.

Posted: **Thu Aug 13, 2015 2:49 pm**

Thanks for reporting Pepe Ruano. I will look into that matter.

Posted: **Sun Aug 16, 2015 3:12 pm**

New patch:

Code: Select all

   - New <FormName>.<ControlName>.GetTextLength --> nLengthText for the EDITBOX and TEXTBOX controls
   - New <FormName>.<ControlName>.CaretPos := -1 move the caret to the end of text and scroll text in EDITBOX and TEXTBOX controls

   - New StatusBar CLOCK [ INTERVAL <nIntervalUpdate> ]
   - New StatusBar KEYBOARD [ INTERVAL <nIntervalUpdate> ]
   
   - New START PRINTDOC [ NAME <name> ] [ STOREJOBDATA <aJobData> ]
   
         - aJobData memvar must be declared Public or Private

         - aJobInfo := HMG_PrintGetJobInfo ( aJobData ) --> {} or { nJobID, cPrinterName, cMachineName, cUserName, cDocument, cDataType, cStatus, nStatus
                                                                   nPriorityLevel, nPositionPrintQueue, nTotalPages, nPagesPrinted, cLocalDate, cLocalTime }

                   cStatus --> This member should be checked prior to nStatus and, if cStatus is empty, the status is defined by the contents of the nStatus member.
                   
                   nStatus --> The value of this member can be zero or a combination of one or more of the following values. 
                                 A value of zero indicates that the print queue was paused after the document finished spooling.
                        JOB_STATUS_PAUSED
                        JOB_STATUS_ERROR
                        JOB_STATUS_DELETING
                        JOB_STATUS_SPOOLING
                        JOB_STATUS_PRINTING
                        JOB_STATUS_OFFLINE
                        JOB_STATUS_PAPEROUT
                        JOB_STATUS_PRINTED
                        JOB_STATUS_DELETED
                        JOB_STATUS_BLOCKED_DEVQ
                        JOB_STATUS_USER_INTERVENTION
                        JOB_STATUS_RESTART
                        JOB_STATUS_COMPLETE

                        * JOB_STATUS_RETAINED

Posted: **Sun Aug 16, 2015 3:25 pm**

Gracias Claudio !

Serge

Posted: **Sun Aug 16, 2015 3:48 pm**

Thank you Dr. Claudio for your contribution

Posted: **Sun Aug 16, 2015 4:04 pm**

Great enhancements

Thanks Dr. Soto

Viva HMG

Posted: **Sun Aug 16, 2015 6:16 pm**

Thank you Claudio !

Posted: **Mon Aug 17, 2015 2:08 am**

Hi all, this a new patch:

I added the helpful function HMG_PrinterGetStatus (contrib by Dave)

Code: Select all

   - New HMG_PrinterGetStatus ( [ cPrinterName ] ) --> nStatusPrinter (contrib by BPD2000)

                  nStatusPrinter --> The value of this member can be zero or a combination of one or more of the following values. 

                     PRINTER_STATUS_OK
                     PRINTER_STATUS_PAUSED
                     PRINTER_STATUS_ERROR
                     PRINTER_STATUS_PENDING_DELETION
                     PRINTER_STATUS_PAPER_JAM
                     PRINTER_STATUS_PAPER_OUT
                     PRINTER_STATUS_MANUAL_FEED
                     PRINTER_STATUS_PAPER_PROBLEM
                     PRINTER_STATUS_OFFLINE
                     PRINTER_STATUS_IO_ACTIVE
                     PRINTER_STATUS_BUSY
                     PRINTER_STATUS_PRINTING
                     PRINTER_STATUS_OUTPUT_BIN_FULL
                     PRINTER_STATUS_NOT_AVAILABLE
                     PRINTER_STATUS_WAITING
                     PRINTER_STATUS_PROCESSING
                     PRINTER_STATUS_INITIALIZING
                     PRINTER_STATUS_WARMING_UP
                     PRINTER_STATUS_TONER_LOW
                     PRINTER_STATUS_NO_TONER
                     PRINTER_STATUS_PAGE_PUNT
                     PRINTER_STATUS_USER_INTERVENTION
                     PRINTER_STATUS_OUT_OF_MEMORY
                     PRINTER_STATUS_DOOR_OPEN
                     PRINTER_STATUS_SERVER_UNKNOWN
                     PRINTER_STATUS_POWER_SAVE

Posted: **Mon Aug 17, 2015 2:10 am**

Great Claudio. It is really a treasure.

HMGforum.com

HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1

Re: HMG 3.4.1