FiveTech Software tech support forums

Code: Select all | Expand

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 )

Code: Select all | Expand

#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