FiveTech Software tech support forums

Antonio you say: "regenum.prg is working fine using MSVC 64 but it shows nothing" Why regenum with MSVC shows nothing, while with BCC72 shows 8 keys and 8 values presents in my windows register? Try to put: RegOpenKey( HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run...

they are firewall informations like this long 150 to 170 characters obtained with compiling the example with bcc72: v2.10|Action=Allow|Active=TRUE|Dir=In|Protocol=6|Profile=Domain|App=G:\winclip\applicazioni\contab\contab.exe|Name=contab|Desc=contab|Defer=User| this is the key: RegOpenKey( HKEY_LOCA...

many thanks Antonio for your answer. i have tried many options in the code below but i have had no success. (i have tried many buffer dimensions till number of 32,767) i obtain always the error code 234 please can you suggest me the right way so the code work fine? marzio #define  HKEY_LOCAL_MACHINE...

Hi at all.
i have inserted the sample regenum.prg in a my program compiled with borland 7.2 and all is ok (RegEnumValue() return 0)
if i compile the same program with visual c++ 2015 RegEnumValue() return 234 instead of 0 and doesn't work.
any idea?

thanks, marzio

i have some words in romanian (for example: 'învățat') language stored in a dll,
in the file dll the string is visualized with all the special characters.
when i load with fivewin (1705 version) LoadValue(nnnn, "CHARACTER") function the special characters are lost.
any suggestion?
thanks

ho saltuariamente errori di dati errati tipo argument error in funzioni trim, left, calcoli matematici, workare not in use quando il dbf è ancora aperto (uso dbfntx), ecc. non sono errori ripetibili, per cui presumo che si alterino dati in memoria. stesso problema in computer diversi window 7 o 10 3...

this example works fine. function Main() local cVar := SPACE(10), cVar2 := Space(10), oWnd, oGr, oGet, oGet2, oEvent, oBtn     DEFINE WINDOW oWnd FROM 0, 0 TO 10, 25     DEFINE RIBBONBAR oBar WINDOW oWnd PROMPT "prova1", "prova2" HEIGHT 157 TOPMARGIN 25     ADD GROUP oGr RIBBON o...

thanks to all, only the modifying to the class TRBGroup works fine. it resolve also the problem of the 'cursor' and of the 'selection', but not the problem of the buffer. i have a button with a clause WHEN !Empty(cVar) .and. !Empty(cVar2) after entering data on the first GET this BUTTON activates it...

Antonio, this is a try with one get but doesn't work. can you post an example with 2 gets? function Main() local cVar := SPACE(10), cVar2 := Space(10), oWnd, oGr, oGet, oGet2, oEvent    DEFINE WINDOW oWnd FROM 0, 0 TO 10, 25    DEFINE RIBBONBAR oBar WINDOW oWnd PROMPT "prova1", "prova...

Antonio,
oGet:LostFocus() doesn't resolve the 2 problem of selection that disappear and the cursor that move to the left.
oGet:oGet:buffer = nil also with the data inserted, until i confirm data with 'return'.

i have avoided the error declaring bWhen, nId like DATA CLASS TEvent    DATA bRefresh, bWhen, nId, Hide, Show    METHOD Refresh() INLINE Eval( ::bRefresh ) ENDCLASS i have the same problem with selection, if i select the test inserted in the get, moving the mouse the selection disappear. Also the cu...

thanks Antonio for your help. i have tried the code and the problem is solved, but i have an error when i confirm with 'Return' Message not found: TEVENT:NID Called from: => __ERRRT_SBASE( 0 ) Called from: ../../../tobject.prg => TEVENT:ERROR( 0 ) Called from: ../../../tobject.prg => (b)HBOBJECT( 0 ...

Hello. i have a Get in a group of a ribbonbar: cVar := Space(10) DEFINE WINDOW oWnd FROM 0, 0 TO 10, 25 DEFINE RIBBONBAR oBar WINDOW oWnd PROMPT "prova1", "prova2" HEIGHT 157 TOPMARGIN 25 ADD GROUP oGr RIBBON oBar TO OPTION 1 PROMPT "prova" WIDTH 350 @ 30, 100 GET oGet ...

i need to open a file dbf in a internet folder.
is it possible with dbUseArea() or tOleAuto()?
can you post some examples or link to them?
thanks

i have added IF aScan( aValues, { | x | x[ 2 ] > 0 } ) > 0 to avoid opening of the 2 empty tables if the code is compiled without profiler or __SetProfiler( .f. ) function ShowProfiler()    local aValues := {}, n    for n := 1 TO __dynsCount()       if __dynsIsFun( n )          AAdd( aValues, { __dy...