Actually it is mess.
I will clean and update with a single build.bat and list out the problems.
Moderator: Rathinagiri
Relevant code related with that is very simple and remained the same for many time.rathinagiri wrote:Regarding MultiSelect grid setvalue, I think it is the same as before.
Code: Select all
HB_FUNC ( LISTVIEWSETMULTISEL )
{
HWND hwnd = (HWND) hb_parnl(1) ;
int i ;
int l ;
int n ;
l = hb_parinfa( 2, 0 ) - 1 ;
n = SendMessage( hwnd , LVM_GETITEMCOUNT , 0 , 0 );
// CLEAR CURRENT SELECTIONS
for( i=0 ; i<n ; i++ )
{
ListView_SetItemState((HWND) hb_parnl (1), (WPARAM) i ,0 , LVIS_FOCUSED | LVIS_SELECTED );
}
// SET NEW SELECTIONS
for ( i=0 ; i <= l ; i++ )
{
ListView_SetItemState( (HWND) hb_parnl (1), hb_parvni ( 2 , i ) - 1 ,LVIS_FOCUSED | LVIS_SELECTED , LVIS_FOCUSED | LVIS_SELECTED ) ;
}
}
Roberto,Roberto Lopez wrote: Relevant code related with that is very simple and remained the same for many time.
Maybe this is a problem related with changes in the Harbour-C interface that were not considered?
...
Any help is welcome.
Code: Select all
HB_FUNC( LISTVIEWSETMULTISEL )
{
PHB_ITEM wArray;
HWND hwnd = ( HWND ) hb_parnl( 1 );
int i;
int l;
int n;
wArray = hb_param( 2, HB_IT_ARRAY );
l = hb_parinfa( 2, 0 ) - 1;
n = SendMessage( hwnd, LVM_GETITEMCOUNT, 0, 0 );
// CLEAR CURRENT SELECTIONS
for( i = 0; i < n; i++ )
ListView_SetItemState( ( HWND ) hb_parnl(1), ( WPARAM ) i, 0, LVIS_FOCUSED | LVIS_SELECTED );
// SET NEW SELECTIONS
for( i = 0; i <= l; i++ )
ListView_SetItemState( ( HWND ) hb_parnl(1), hb_arrayGetNI(wArray, i + 1) - 1, LVIS_FOCUSED | LVIS_SELECTED, LVIS_FOCUSED | LVIS_SELECTED );
}
So... I gues that the origin for a new batch is that the old one stopped working with updated Harbour...rathinagiri wrote:Thank you Roberto.
Actually it is mess.
I will clean and update with a single build.bat and list out the problems.
I'm sure it does!gfilatov wrote: Please be so kind to revise the following updated function:
<...>
Hope that helps
It works smoothly.gfilatov wrote:Please be so kind to revise the following updated function:
<...>
Hope that helps
I wanted to upgrade to 3.0.36 but the problem is that I'm developing an application that is already being using (I'm adding changes daily) and I'm using IDE to work on it.rathinagiri wrote:Thank you Roberto.
Actually it is mess.
I will clean and update with a single build.bat and list out the problems.
Where cParams are the command line parameters that build.bat recognize and IDE could need to send to it.cParams := ' /n ' + cParams
if file ( cHmgFolder + "\BUILD.BAT" )
EXECUTE FILE cHmgFolder + "\BUILD.BAT " + cParams + cProjectBaseName + '.hbp ' + cProjectBaseName + '.hbc' WAIT HIDE
else
msgstop (cHmgFolder + "\BUILD.BAT " + 'Not Found!','HMG-IDE')
endif
Does anyone knows what were exactly the changes in hbmk2 between Harbour build included in .35 and .36 to make it incompatible?Roberto Lopez wrote:So, if we are able to restore the build.bat original functionality, then we will able to use it with updated Harbour binaries.