Change LIST double click mouse event 1

[uniglass]

Hello

I'm trying to find nice solution to change double click on browse LIST from ChangeRecord
to ViewRecord. No succes so far. Please post you ideas.( Clarion 7 ABC )

 

[cagiv]

Hi,

Add on List-Property AlertKey the Keycode 'MouseLeft2'.
Then in List-Embed 'AlertKey' you can set the GlobalRequest:

IF KEYCODE() = MouseLeft2 THEN
GlobalRequest = ChangeRecord
END

Now the Updatemask open in Changemodus.

cagiv

 

[cagiv]

Sry i mean ViewRecord.

cagiv

 

[uniglass]

Hi

It doesn't work. Form opens for ChangeRecord. Right now I set special flag on MouseLeft2 and change variable called Request right before form procedure starts.
It's ugly because there is no special embed for that and I have to edit source code.

ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.Run(Number,Request)
  ! [Priority 6000]
 
  ! ===== MY CODE  
  IF ForceView
       Request = ViewRecord
  END        
  ! ===== END OF MY CODE  

  IF SELF.Request = ViewRecord
    ReturnValue = RequestCancelled                         ! Always return RequestCancelled if the form was opened in ViewRecord mode
  ELSE
    GlobalRequest = Request
    Fr ! < --------------------------- Form procedure
    ReturnValue = GlobalResponse
  END
  ! [Priority 8500]
 
   ForceView = FALSE  ! <====================================== MY CODE reset flag
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue

 

[cagiv]

Hmm, i dont understand, why it doesnt work. Here it works fine.
But you can try this, in AlertKey-Embed from List (before Parent):

IF KEYCODE() = MouseLeft2 THEN
POST(EVENT:ACCEPTED,?pbView)
CYCLE
END


cagiv

 

[uniglass]

Button trick works, thx.