- Code: Select all Expand view RUN
- Error occurred at: 10/03/22, 21:36:40
Error description: Error BASE/1004 No exported method: ACTIVATE
Args:
[ 1] = C yellow
[ 2] = N 32
[ 3] = N 4
[ 4] = O TDIALOG
[ 5] = L .F.
Stack Calls
===========
Called from: => ACTIVATE( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 989 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1845 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2051 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: test.prg => TESTBUTTON( 30 )
and on dialog I have only
- Code: Select all Expand view RUN
- #include "FiveWin.ch"
Function TestButton()
local oDlg
local oBtn1
local nColor1:=CLR_GRAY
local nColor2:=CLR_GRAY
DEFINE DIALOG oDlg SIZE 500,400 PIXEL TRUEPIXEL RESIZABLE;
TITLE "Tavolozza colori numeri"
@ 50,50 BTNBMP oBtn1 ;
SIZE 50,50 PIXEL OF oDlg FLAT NOBORDER ;
COLOR nColor1,nColor2 ;
ACTION ( ::oPopup := { |oBtn| PicKColors(oBtn,oDlg,,"gray") }, ;
::ShowPopUp(), ;
::oPopup := nil )
ACTIVATE DIALOG oDLG CENTERED
return nil
//----------------------------------------------------------------//
Function PicKColors(ocontrol,oParent,lHex,cColore)
Local oDlgSel,oPanel
Local aColors := {}
Local aReturnvalue:={}
Local nSelection:= 1
DEFAULT lHex := .F.
DEFINE DIALOG oDlgSel SIZE 400,200 PIXEL
oDlgSel:nStyle = nOR( WS_CHILD, WS_BORDER, WS_VISIBLE,WS_POPUP )
ACTIVATE DIALOG oDlgSel CENTERED
RETURN NIL
PickColors is mine function you can use also choosecolor()
I need a btnbmp with popup button but the popup must open My function where is a small dialog as this
then I select the color the procedure make that error , but the error is come out also with choosecolor()
the black arrow come out then I press the button , why ?
