Recent content by M-HT

Or convert it to STRING then to WIDGET-HANDLE. Like this: variablename = WIDGET-HANDLE(STRING(table.fieldname))

Chris, if you want more information about using Windows API from Progress you can use this site - http://www.global-shared.com/api/

Hi Chris, what I did was that I stored a copy of the required parameter somewhere where I can get a pointer to it (memptr), then I stored the pointer somewhere where I can get a pointer to it, made it a null terminated list and passed the second pointer to the function - pointer to list of...

No, because when the parameter is character or it's an output paramater Progress automatically passes pointer to the variable instead of the variable itself.

Hi Chris, something like this should do the trick: DEF VAR vRESULT AS CHAR. DEF VAR vLENGTH AS INT. DEF VAR vPROG AS CHAR. DEF VAR vPARAM1 AS CHAR. DEF VAR vPARAM AS MEMPTR. DEF VAR vTEMP AS MEMPTR. ASSIGN vRESULT = FILL(" ",256) vPROG = FILL(" ",256). PROCEDURE SSubmitJobA...

Let's say we have an application written in Progress v8. The idea is to replace the Progress DB server with non-Progress DB (preferably freeware) to lower the cost of the product for smaller companies (and to continue using Progress clients). Is this even possible? And if yes what changes...

More simple solution is to define the calculated field like this: field1 + field2 @ Variable Then you can set the bgcolor like this: Variable:BGCOLOR IN BROWSE br-Table = 15.

Another possibility could be to take the source code of loaddf.r, modify if so it wouldn't display alert-box on error and use the modified version instead.

Hi Marco, Try running loaddf.r from a window which contains a message-area and make sure the SESSION:APPL-ALERT-BOXES is set to FALSE. It could write the message into the message area instead of to alert-box.

Emma you could also use this in row-display - ASSIGN variablename:BGCOLOR IN BROWSE {&BROWSE-NAME} = color ... . for each variable you're displaying in the browse.

You can use these external procedures: &SCOPED-DEFINE FILE_ATTRIBUTE_READONLY 1 &SCOPED-DEFINE FILE_ATTRIBUTE_HIDDEN 2 &SCOPED-DEFINE FILE_ATTRIBUTE_SYSTEM 4 &SCOPED-DEFINE FILE_ATTRIBUTE_DIRECTORY 16 &SCOPED-DEFINE FILE_ATTRIBUTE_ARCHIVE 32 &SCOPED-DEFINE FILE_ATTRIBUTE_NORMAL 128...

Try adding these statements: RELEASE TestTable NO-ERROR. IF ERROR-STATUS:ERROR THEN UNDO Load-Block, NEXT Load-Block. before the END. statement in previous algorithm.

def var cLine as char. input from "file.ext". import unformatted cLine. input close.

Hi J, I think you're looking for something like this: DEFINE VARIABLE cDLC AS CHARACTER NO-UNDO. GET-KEY-VALUE SECTION "Startup" KEY "DLC" VALUE cDLC. IF cDLC = ? THEN GET-KEY-VALUE SECTION "WinChar Startup" KEY "DLC" VALUE cDLC. IF SUBSTRING(cDLC, LENGTH(cDLC), 1) = "/" OR...

Kenneth, I'm quite sure. I can run this too: DEFINE TEMP-TABLE tt FIELD cField AS CHAR. CREATE tt. tt.cField = "a". CREATE tt. tt.cField = "b". FOR EACH tt BREAK BY SUBSTRING(tt.cField,1,197) BY SUBSTRING(tt.cField,198): DISPLAY tt.cField. END. But when I run this: DEFINE...