I need an advice about using BTNBMP

I need an advice about using BTNBMP

Postby Horizon » Wed Jun 19, 2019 12:45 pm

Hi everyone.

I need an advice about using BTNBMP.

I have a class like below.

Code: Select all  Expand view
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  Expand view
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  Expand view
  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.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Re: I need an advice about using BTNBMP

Postby nageswaragunupudi » Wed Jun 19, 2019 3:53 pm

Code: Select all  Expand view
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
User avatar
nageswaragunupudi
 
Posts: 10631
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: I need an advice about using BTNBMP

Postby Horizon » Wed Jun 19, 2019 5:44 pm

nageswaragunupudi wrote:
Code: Select all  Expand view
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.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Marc Venken, Silvio.Falconi and 105 guests