Problem with Harbour RESOLVED

Problem with Harbour RESOLVED

Postby Silvio.Falconi » Fri Oct 19, 2018 10:52 am

I must compile oldest application ( made on xharbour)
Now I use Harbour and some library have errors

this morning I have these two Function with errors ( on xharbour run ok)



Code: Select all  Expand view  RUN

#pragma BEGINDUMP
#include "windows.h"
#include "hbapi.h"

HB_FUNC( GETDRAWITEMSTRUCT )
{
   LPDRAWITEMSTRUCT lp = ( LPDRAWITEMSTRUCT ) hb_parnl( 1 );

   hb_reta( 12 );

   hb_storni( lp->CtlType      ,    -1, 1  );
   hb_storni( lp->CtlID        ,    -1, 2  );
   hb_storni( lp->itemID       ,    -1, 3  );
   hb_storni( lp->itemAction   ,    -1, 4  );
   hb_storni( lp->itemState    ,    -1, 5  );
   hb_storni( ( LONG ) lp->hwndItem     ,    -1, 6  );
   hb_storni( ( LONG ) lp->hDC          ,    -1, 7  );
   hb_storni( lp->rcItem.top   ,    -1, 8  );
   hb_storni( lp->rcItem.left  ,    -1, 9  );
   hb_storni( lp->rcItem.bottom,    -1, 10 );
   hb_storni( lp->rcItem.right ,    -1, 11 );
   hb_stornd( lp->itemData     ,    -1, 12 );

}

HB_FUNC( LBXITEMRECT )
{
  RECT rc;
  rc.top = 0;
  rc.left = 0;
  rc.bottom = 0;
  rc.right = 0;
  SendMessage( (HWND) hb_parnl( 1 ), LB_GETITEMRECT, (WPARAM) hb_parni( 2 )-1, (LPARAM) &rc );
  hb_reta(4);
  hb_storni( rc.top,    -1, 1 );
  hb_storni( rc.left,   -1, 2 );
  hb_storni( rc.bottom, -1, 3 );
  hb_storni( rc.right,  -1, 4 );

}


#pragma ENDDUMP

 







Give me this error
Code: Select all  Expand view  RUN
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 501: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 502: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 503: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 504: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 505: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 506: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 507: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 508: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 509: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 510: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 511: Extra parameter in call to hb_storni in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 512: Extra parameter in call to hb_stornd in function HB_FUN_GETDRAWITEMSTRUCT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 525: Extra parameter in call to hb_storni in function HB_FUN_LBXITEMRECT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 526: Extra parameter in call to hb_storni in function HB_FUN_LBXITEMRECT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 527: Extra parameter in call to hb_storni in function HB_FUN_LBXITEMRECT
Error E2227 C:\\Work\\Lib32\\CanalFive\\lbxcheck\\lbxcheck\\source\\lbxcheck.prg 528: Extra parameter in call to hb_storni in function HB_FUN_LBXITEMRECT
*** 16 errors in Compile ***
 


someone can help me please ?
Last edited by Silvio.Falconi on Sat Oct 20, 2018 1:41 pm, edited 1 time in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm

Re: Problem with Harbour

Postby cnavarro » Fri Oct 19, 2018 12:36 pm

Use hb_storvni
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Problem with Harbour

Postby Silvio.Falconi » Fri Oct 19, 2018 3:30 pm

ok and hb_stornd ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm

Re: Problem with Harbour

Postby Silvio.Falconi » Fri Oct 19, 2018 5:49 pm

ok ok
now run ok
Image
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7076
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 73 guests