DirBox and FileBox Cancel

Post

Posted
Rating:
#1 (In Topic #1302)
thatbruce
Avatar
Regular
thatbruce is in the usergroup ‘Regular’
 How can I detect that the user has clicked on the cancel button in a DirBox? This possibly happens with the FileBox also, but I haven't checked.
I want to propagate the cancellation up a couple of levels of the stack trace.  
The only events I know of are _Click and _Change. Neither of which are raised when the Cancel button is clicked?

tia
thatbruce
Online now: No Back to the top

Post

Posted
Rating:
#2
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
You can access the internal ButtonBox and override the click event (the ButtonBox Click not the DirBox Click)..

Code (gambas)

  1.  
  3.  
  4. Public Sub Form_Open()
  5.  
  6.   $hObs = New Observer(DirBox1.Children[0]) As "DBox"  ' get the DirBox's ButtonBox events
  7.  
  9.  
  10. '' This is a copy of the DirBox Button_Click() event adapted to not use it's internal variables $sTitle and $sText
  11.  
  12. Public Sub DBox_Click()
  13.  
  15.  
  16.   Dim sSaveTitle As String
  17.   Dim bCancel As Boolean
  18.  
  19.   sSaveTitle = Dialog.Title
  20.  
  21.   Dialog.Title = DirBox1.Title
  22.   Dialog.Path = DirBox1.Path
  23.  
  24.   bCancel = Dialog.SelectDirectory()
  25.  
  26.   Dialog.Title = sSaveTitle
  27.  
  28.   If Not bCancel Then
  29.     DirBox1.Path = Dialog.Path
  30.     Object.Raise(DirBox1, "Click")  ' use Object.Raise to raise normal Click event
  31.   Else
  32.     Debug "cancelled"  ' or it got cancelled
  34.  
  36.  
  37.  
Online now: No Back to the top

Post

Posted
Rating:
#3
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
Or an Auto-Inherited override ,
Save this as DirBox.class in your project…

Code (gambas)

  1.  
  2. ' Gambas class file
  3.  
  5.  
  6. Event Cancelled
  7.  
  8. Public Sub Button_Click()
  9.  
  10.   Dim sSaveTitle As String
  11.   Dim bCancel As Boolean
  12.  
  13.   sSaveTitle = Dialog.Title
  14.  
  15.   Dialog.Title = Me.Title
  16.   Dialog.Path = Me.Path
  17.  
  18.   bCancel = Dialog.SelectDirectory()
  19.  
  20.   Dialog.Title = sSaveTitle
  21.  
  22.   If Not bCancel Then
  23.     Me.Path = Dialog.Path
  24.     Object.Raise(Me, "Click")
  25.   Else
  26.     Raise Cancelled
  28.  
  30.  
  31.  
  32.  

That will add DirBox1_Cancelled() event


Or a more condensed version…

Code (gambas)

  1. ' Gambas class file  (DirBox.class)
  2.  
  4.  
  5. Event Cancelled
  6.  
  7. Public Sub Button_Click()
  8.  
  9.   ' note the current path, open the dialog, then if path is the same the user must have cancelled.
  10.   Dim sPath As String = Me.Path
  11.   Super.Button_Click
  12.   If sPath = Me.Path Then Raise Cancelled
  13.  
  15.  
Online now: No Back to the top

Post

Posted
Rating:
#4
thatbruce
Avatar
Regular
thatbruce is in the usergroup ‘Regular’
 Well after some testing and soul-searching I finally went with option 2, the auto-inherit.

I discounted the shortened version as there is nothing wrong with them selecting the same directory.

Thanks for the options!
I wonder if the native DirBox should have that event as I can see other cases where it could apply. In fact any control that uses a child control that is cancellable.

b
Online now: No Back to the top

Post

Posted
Rating:
#5
BruceSteers
Guru
BruceSteers is in the usergroup ‘Guru’
You're welcome :)
Online now: No Back to the top
1 guest and 0 members have just viewed this.