Re: PushButton can perform 2 diferent actions?
Posted: Fri Jun 28, 2019 11:43 pm
Now it works!
Thank you
Thank you
Donnay Software Web Forums
http://bb.donnay-software.com/donnay/
http://bb.donnay-software.com/donnay/viewtopic.php?f=2&t=2609
Code: Select all
DC_XbpGetSetInputFocusBlock(;
{|x,y,o| IIF(o:isGetDataOnLostFocus,o:getData(),nil), ;
IIF(!Empty(o:get:buffer),o:get:pos := o:savePos,nil), ;
o:DateFlag := .T., ;
o:home(), ;
DC_HiliteGets(o,1,o:getList:getOptions[nGETOPT_HILITECOLOR]), ;
DC_ColorGets(o,1,o:getList:getOptions[aGETOPT_COLORGETS]), ;
DC_PopupButtonShow(o,.t.)})
DC_XbpGetKillInputFocusBlock(;
{|x,y,o| o:savePos := o:get:pos, ;
o:DateFlag := .T., ;
IIF(o:isGetDataOnLostFocus,o:getData(),nil), ;
IIF(o:isGetDataOnLostFocus,o:setData(),nil), ;
o:Home(), ;
DC_HiliteGets(o,1,o:getList:getOptions[nGETOPT_HILITECOLOR]), ;
DC_ColorGets(o,1,o:getList:getOptions[aGETOPT_COLORGETS])}, ;
DC_PopupButtonShow(o,.f.)})
Code: Select all
DC_XbpGetKillInputFocusBlock(;
{|x,y,o| o:savePos := o:get:pos, ;
o:DateFlag := .T., ;
IIF(o:isGetDataOnLostFocus,o:getData(),nil), ;
IIF(o:isGetDataOnLostFocus,o:setData(),nil), ;
o:Home(), ;
DC_HiliteGets(o,1,o:getList:getOptions[nGETOPT_HILITECOLOR]), ;
DC_ColorGets(o,1,o:getList:getOptions[aGETOPT_COLORGETS])}, ; <---------- } gives an error
DC_PopupButtonShow(o,.f.)})
Code: Select all
DC_XbpGetKillInputFocusBlock(;
{|x,y,o| o:savePos := o:get:pos, ;
o:DateFlag := .T., ;
IIF(o:isGetDataOnLostFocus,o:getData(),nil), ;
IIF(o:isGetDataOnLostFocus,o:setData(),nil), ;
o:Home(), ;
DC_HiliteGets(o,1,o:getList:getOptions[nGETOPT_HILITECOLOR]), ;
DC_ColorGets(o,1,o:getList:getOptions[aGETOPT_COLORGETS]), ; <----------- } has to be deleted
DC_PopupButtonShow(o,.f.)})