Unknown PickColor()

[Natter]

Hi,

I tried to compile the testbtnclr.prg example, however, I received a message about the presence of an unknown PickColor() function. Why?

FWH 23.07

[Silvio.Falconi]

It Is no function
It Is a class inside tbtnclr class
The call for the tpickcolor Is explain on the tbtnclr source code.

[Jimmy]

hi,

unknown PickColor() function.

it seems not in LIB, but it is under c:\fwh\source\function\pickcolor.prg

[Natter]

Yes, I see. It just appears in the example as a public function, which is why I asked

Code: Select all  Expand view  RUN

@ 30,10 BTNCLR oBtnColor SIZE 45,25 of oDlg PIXEL COLORSEL nColor ;
             ACTION  (oBtnColor:nColorSel:= PickColor( nColor, oBtnColor),;
                      oBtnColor:refresh())

[Silvio.Falconi]

Go go the class

[Jimmy]

hi Natter,

Yes, I see. It just appears in the example as a public function, which is why I asked

it "seems" me that Function PickColor() is not used any more (old Sample)
now we have CLASS Class TPickerColor() as Silvio say

[Silvio.Falconi]

Try It please

Code: Select all  Expand view  RUN

Function PickColor(nColor,oControl)
local oPick

oPick:= TPickerColor():New(nColor,oControl)
oPick:Dialog()

IF  oPick:Activate()
    IF oPick:oDlgPickColor:nresult == IDOK
      return oPick:nClrReturn
   endif
Endif

RETURN NIL