FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour GET ACTION SetFocus() question?
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM

GET ACTION SetFocus() question?

Posted: Wed Mar 04, 2009 07:23 PM
Dear Antonio,

Code (fw): Select all Collapse
METHOD CreateButton() CLASS TGet
   local oThis := Self
   if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET" 
      if Empty( ::cBmpName )
         @ 0, ::nWidth - ::nHeight BUTTONBMP ::oBtn OF Self ;
         ACTION ( Eval( oThis:bAction, oThis ) ) ;        //, oThis:SetFocus() ) ;


I've modified ACTION line by remove oThis:SetFocus(). Because :
I need to set another function to be effect after first function. Because oThis:SetFocus() will ignore second function after first function such as
Code (fw): Select all Collapse
@ 1, 10 GET oGet[1] VAR cVar[1] ACTION (Func(), oGet[2]:SetFocus())
@ 2, 10 GET oGet[2] VAR cVar[2]


but when I remove oThis:SetFocus(). If oGet[1] has only one function, the BUTTON at oGet[1] will be focus. I don't need to focus at BUTTON.

Code (fw): Select all Collapse
@ 1, 10 GET oGet[1] VAR cVar[1] ACTION (Func())
@ 2, 10 GET oGet[2] VAR cVar[2]


How can I cancel TABSTOP at BUTTON in TGET:CreateButton() by without oThis:SetFocus().

PS. It work fine if I :SetFocus() after first function.

Regards,
Dutch
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: GET ACTION SetFocus() question?

Posted: Sun Mar 08, 2009 09:21 AM

Dutch,

Please use:

oGet[1]:oJump := oGet[2]

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion