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
Banned
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
Banned
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
Banned
You're welcome :)
Online now: No Back to the top
1 guest and 0 members have just viewed this.