- Code: Select all Expand view
- 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
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
Natter wrote:Yes, I see. It just appears in the example as a public function, which is why I asked
@ 30,10 BTNCLR oBtnColor SIZE 45,25 of oDlg PIXEL COLORSEL nColor ;
ACTION (oBtnColor:nColorSel:= PickColor( nColor, oBtnColor),;
oBtnColor:refresh())
Natter wrote:unknown PickColor() function.