FiveTech Software tech support forums

Antonio, I agree with you, but I don't understand why the source compiled with only xHarbour.com (with pelles c compiler) it's ok and the source compiled with xHarbour.com (the same pelles c compiler) and FiveWin it's ko. #include "HBClass.ch" PROC Main()    LOCAL aObj  := Array(1000000)  ...

Antonio, error again

Ola Antonio, This code generate a memory error when the memory allocated is close to 140 mega if I compile it with FWH + xHarbour.com If i compile the same code with FWH + xHarbour.org the error is generated when the memory allocated is close to 2 giga (size of the ram available in the pc). If i com...

Driessen, http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx lpParameters [in] If lpFile specifies an executable file, this parameter is a pointer to a null-terminated string that specifies the parameters to be passed to the application. The format of this string is determined by the verb ...

FtpFindFirstFile/InternetFindNextFile return the filename filled by a char, i think chr(0). I use this HB_FUNC( CLEARSTRING )                                                                   {                                                                                            hb_retc(hb_parc...

I don't see an api for find the process by name, i resolve a similar problem with            FUNC MyFunction(cProcessName)       LOCAL aProcess, hHandle       aProcess    := GetProcessListArray()       FOR EACH nHandle IN aProcess          IF AllTrim(Upper(GetProcessName(nHandle))) == AllTrim(Upper(...

Hi Ugo, this HB_FUNC( GETPROCESSLISTARRAY ) {    DWORD aProcesses[1024];    DWORD nBytes;    DWORD nProcesses;    unsigned int i;    if ( EnumProcesses( aProcesses, sizeof(aProcesses), &nBytes ) )    {       nProcesses = nBytes / sizeof(DWORD);       hb_reta( nProcesses - 1 );       for ( i = 0;...

Codemaker, try this: METHOD Memory(n) CLASS TSystemInfo LOCAL nRetu LOCAL mst #ifdef __HARBOUR__ #pragma BEGINDUMP #include "windows.h" nRetu := HB_INLINE( n ) { MEMORYSTATUS mst; long n = hb_parnl(1); mst.dwLength = sizeof( MEMORYSTATUS ); GlobalMemoryStatus( &mst ); switch( n ) { cas...

Silvio, if the order of the threestate is SNC I think you can reduce your code with

Do you change index between SetMyFilter() and ClearMyFilter() ?

Metti il nome tra parentesi quadre

Good

In METHOD End() CLASS TXBrwColumn there is this code: for nFor := 1 to Len( ::aBitmaps ) PalBmpFree( ::aBitmaps[ BITMAP_HANDLE ], ::aBitmaps[ BITMAP_PALETTE ] ) next That should destroy both the bitmaps and the palettes PROC Main() LOCAL aBitmaps := {} LOCAL aBmp1, aBmp2, aBmp3, n FOR n := 1 TO 5 a...

Patrizio, > TVSetColor increment by two the GDI objects (two brushes) in use without decrement when destroy the TreeView. > How do you know this ? How have you checked it ? Thanks I use MSDN GDIndicator e GDIUsage : http://msdn.microsoft.com/msdnmag/issues/03/01/GDILeaks/ In this case GDIndicator s...

Hola Antonio, I have found some bugs that cause GDI objects leaks. TTreeVie.prg : METHOD SetColor( nClrText, nClrPane ) INLINE ; Super:SetColor( nClrText, nClrPane ), TVSetColor( ::hWnd, nClrText, nClrPane ) TVSetColor increment by two the GDI objects (two brushes) in use without decrement when dest...