topic-36232

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Problem with Harbour RESOLVED
Posted: 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 (fw): Select all Collapse

#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 (fw): Select all Collapse

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 ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Problem with Harbour
Posted: 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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem with Harbour
Posted: Fri Oct 19, 2018 03:30 PM

ok and hb_stornd ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem with Harbour
Posted: Fri Oct 19, 2018 05:49 PM

ok ok
now run ok

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 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

FiveTech Support Forums

Continue the discussion