I need an advice about using BTNBMP

[Horizon]

Hi everyone.

I need an advice about using BTNBMP.

I have a class like below.

Code: Select all

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: Select all

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: Select all

   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.

[nageswaragunupudi]

Code: Select all

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
 

[Horizon]

Code: Select all

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.