Lost setfocus xdialog event in v10.5

[Mike Wilson]

The setfocus xdialog event has been lost. In the example, when Enter or tab is used to move to field 2 or 3, the setfocus event should fire the ui_Beep(). It does not. Use the mouse to move from field 1 to 2 or 3 and the event fires. In my v7,8,9 it works OK. I've tried with 2944 3562 and with 2953 3564 and neither work. Please confirm and I will report.

'Created By  : Ira Perlow
'Updated By  : j michael wilson

dim dlg_title as c="XDialog Events"
dim vF1 as C
dim vF2 as C
dim vF3 as C
dim dlg_body as c
dim dlg_code as C

dim vLevent as c
dim vLevent1 as c

dlg_body=<<%dlg%
{startup=init}{can_exit=close}
{region}
Field1:|[.20vF1];
Field2:|[.20vF2!field2evt_*];
Field3:|[.20vF3!field3evt_*];
{endregion};
Dialog Events;
{text=40,28vLevent1};
{region}
<OK> <Cancel> <Reset List!Reset>
{endregion};
%dlg%

dlg_code=<<%code%
IF a_dlg_button="Cancel" .or. a_dlg_button="OK"
    ui_modeless_dlg_close(dlg_title)
ELSE IF a_dlg_button="Reset"
    vLevent=""
    vF1=""
    vF2=""
    ui_dlg_ctl_goto(dlg_title,"[.20vF1]")
ELSE IF a_dlg_button=="INIT"
    ' Dialog code initialized
    vLevent=""
    ' Generate list of past 20 events 
    vLevent1=word(vLevent,max(1,line_count(vLevent)-20),crlf(),20)
    vLevent1=vLevent
ELSE
    ' Add event for those variable we want to see
     vLevent=vLevent+a_dlg_button+Crlf()
    ' Only show most recent 20 lines of events
    vLevent1=word(vLevent,max(1,line_count(vLevent)-20),crlf(),20)
    vLevent1=vLevent
END IF

'xxxxxxxxxxxxxxxxx
IF left(a_dlg_button,10)="field2evt_"
  IF a_dlg_button="field2evt_setfocus"
   ui_beep(UI_CRITICAL_BEEP)
  END IF  
 a_dlg_button=""
END IF

IF left(a_dlg_button,10)="field3evt_"
  IF a_dlg_button="field3evt_setfocus"
   	ui_beep(UI_CRITICAL_BEEP)
  END IF
  
  IF a_dlg_button="field3evt_change"
   	ui_beep(UI_ASTERISK_BEEP)
  END IF  
 a_dlg_button=""
END IF

%code%

' Display as modeless, as we can look at it and modify code while open
ui_modeless_dlg_box(dlg_title,dlg_body,dlg_code)

[Mike Wilson]

Re: Lost setfocus xdialog event in v10.5

I couldn't have imagined how much this has crippled me. My 3 main entry dialogs that took me a month to build.... now completely unusable.

[Tbaker]

Re: Lost setfocus xdialog event in v10.5

Mike

I can confirm that the set focus does not work when using the tab key only the mouse click works.

I tried this in Version 8 and V9 and it works, does not work in Version 10.

Don't have time right at the moment to go any deeper as to why, but will later. But you might as well turn in a bug report.

Tom

[Mike Wilson]

Re: Lost setfocus xdialog event in v10.5

Tom,
Thanks. I had to go back to build 2814-3539 before I got the functionality back. I was a short step from completion and ready to deploy with run time. I guess I need to check that now too. This type of thing drives me nuts!

I submitted a bug report.

[Bill]

Re: Lost setfocus xdialog event in v10.5

Mike,
I've seen the same things with migrating an app from v7 to v10. Seems like the whole thing imploded and I can't even begin to figure out where to start because someone else wrote the code (I can barely write my name, let alone code).

The only reason I'm even attempting this is because of the OS changes that have occurred since I first started working on my app [friggin' Microsoft:D]

That said, anyone know how if/how v7 works with Windows 7?

[Peter.Wayne]

Re: Lost setfocus xdialog event in v10.5

This setfocus bug was already fixed but Alpha hasn't released the patch yet. I suggest you stick with v10 until the patch is out for 10.5.

[Selwyn Rabins]

Re: Lost setfocus xdialog event in v10.5

this is fixed.
the setfocus event is firing if you click in a field, but not if you tab into a field.

the fix will be in the next update.

In the mean time, however...


This file contains a pre-release of the updates to the aex file that will be in the next update.
Exit from Alpha Five and unzip this file into your A5V10 program folder.
You must also unzip it into the A5V10 Server folder if you are running the stand-alone App Server.
http://downloads.alphasoftware.com/a...te/aex_v10.zip

This file contains an update to the exe and dll files. Exit Alpha Five and unzip into your program folder.
You must also unzip it into the A5V10 Server folder if you are running the stand-alone App Server.
You can also unzip these files into your A5V10 Runtime folder.
http://downloads.alphasoftware.com/a...dllexe_v10.zip

[Mike Wilson]

Re: Lost setfocus xdialog event in v10.5

I have downloaded and tested the fix Selwyn provided and it appears to be working as designed. I was truly stressing over this one with two apps undergoing validation when this surfaced. Back on track again. Very much appreciated Selwyn.