topic-37327

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

I need an advice about using BTNBMP
Posted: Wed Jun 19, 2019 12:45 PM

Hi everyone.

I need an advice about using BTNBMP.

I have a class like below.

CLASS TYK_List

    ..
    DATA btnEkle
    ..
    METHOD GO_DETAY_Ekle()
    ..
    ..
ENDCLASS

METHOD New() CLASS TYK_List

    ..
    ..
    ..

    @ 220, 005 BUTTON ::btnEkle PROMPT "&Ekle" OF oDlg PIXEL SIZE 50,13 ;
        ACTION ::GO_DETAY_Ekle()    

    ..
    ..

RETURN Self

These code is works ok. I want to change BUTTON to BTNBMP like below.

Code (fw): Select all Collapse

METHOD New() CLASS TYK_List

    ..
    ..
    ..

    @ 220, 005 BTNBMP ::btnEkle PROMPT "&Ekle" OF oDlg PIXEL SIZE 50,13 ;
        RESOURCE "ButtonAdd" LEFT 2007 ROUND ;
        ACTION ::GO_DETAY_Ekle()    

    ..
    ..

RETURN Self

It compiles without any error. When I click the btnEkle btnbmp button, the runtime error is occurs.

Code (fw): Select all Collapse

   Error description: Error BASE/1004  Message not found: TBTNBMP:GO_DETAY_EKLE
   Args:
     [   1] = O   TBTNBMP

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TBTNBMP:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TBTNBMP:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TBTNBMP:GO_DETAY_EKLE( 0 )
   Called from: .\TOb_Browse1.prg => (b)TYK_LIST_NEW( 479 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 697 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 983 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2006 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
   Called from: .\TOb_Browse1.prg => TYK_LIST:NEW( 542 )

Any advice? Thanks.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: I need an advice about using BTNBMP
Posted: Wed Jun 19, 2019 03:53 PM

Code (fw): Select all Collapse

METHOD New() CLASS TYK_List

   local oSelf := Self
    ..
    ..
    ..

    @ 220, 005 BTNBMP ::btnEkle PROMPT "&Ekle" OF oDlg PIXEL SIZE 50,13 ;
        RESOURCE "ButtonAdd" LEFT 2007 ROUND ;
        ACTION oSelf:GO_DETAY_Ekle()    

    ..
    ..

RETURN Self

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: I need an advice about using BTNBMP
Posted: Wed Jun 19, 2019 05:44 PM

nageswaragunupudi wrote:

Code (fw): Select all Collapse

METHOD New() CLASS TYK_List

   local oSelf := Self
    ..
    ..
    ..

    @ 220, 005 BTNBMP ::btnEkle PROMPT "&Ekle" OF oDlg PIXEL SIZE 50,13 ;
        RESOURCE "ButtonAdd" LEFT 2007 ROUND ;
        ACTION oSelf:GO_DETAY_Ekle()    

    ..
    ..

RETURN Self

Thank you Mr. Rao. It is ok now.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

FiveTech Support Forums

Continue the discussion