Re: RB2008r2: Problem with TAB-Functionality

[Claudius Sailer <Claudius at sailer-online dot de>]

Hallo Stefan,


Am 13.05.2008 um 11:26 schrieb Stefan Sicurella:

> Hallo Claudius,
>
> bist du dir sicher, dass es daran liegt. Ich hatte das gerade auch  
> aber es lag daran, dass eine Groupbox mit dem Editfield verknüpft  
> ware...
dumm nur, dass ich um diese Editfields auch ne GroupBox habe. Nur wie  
soll ich das Problem dann lösen?


> > Hallo,
> >
> > habe da ein blödes Problem seit RB2008r2.
> > In der US-Liste scheint das nicht zu existieren. Kann das hier  
> > jemand nachvollziehen/bestätigen?
> > Oder muss man das anders realisieren?
> >
> > vielen Dank
> >
> > Anfang der weitergeleiteten E-Mail:
> >
> > > Von: Claudius Sailer <Claudius at sailer-online dot de>
> > > Datum: 9. Mai 2008 21:39:57 MESZ
> > > An: REALbasic Network Users Group <realbasic-nug at lists dot realsoftware dot com 
> > > >
> > > Betreff: RB2008r2: Problem with TAB-Functionality
> > > Antwort an: REALbasic NUG <realbasic-nug at lists dot realsoftware dot com>
> > >
> > > Hello,
> > >
> > > ich have following coding
> > > When a value in EditField4(0) is entered or changed then jump by
> > > pressing TAB to EditField5 else go normal TAB-Order and junp to
> > > EditField4(1). This worked fine now for year, but with 2008r2 it is
> > > always jumping to EditField4(1).
> > >
> > > I don't know whats going wrong now. In DebugMode I can see that the
> > > GotFocusEvent is touched first time correct but after that it is  
> > > going
> > > through this Event once more with the information JumperTAB=false  
> > > but
> > > I don't know why and where this is set to false. Any idea or  
> > > hints? Is
> > > this now a NEW BUG?
> > >
> > >
> > > The EditField4() is a subclass of EditFieldOnlyPositivNumbers  
> > > where I
> > > use the KeyDownEvent with following Code
> > >
> > > if
> > > instr
> > > ("0123456789
> > > ,."+
> > > chrb
> > > (9
> > > )
> > > +
> > > chrb
> > > (8
> > > )
> > > +
> > > chrb
> > > (27
> > > )
> > > + 
> > > chrb 
> > > (28)+chrb(29)+chrb(30)+chrb(31)+chrb(127)+chrb(13)+chrb(3),key)=0
> > > then
> > >   return true
> > > end if
> > >
> > >
> > > Following Coding for EditField4()
> > >
> > > TextChangeEvent has following Code
> > >
> > > select case index
> > > case 0
> > >   if strcomp(me.text,CheckOldEditField4_0_Text,0)<>0 then
> > > JumperTAB=true
> > > end select
> > >
> > >
> > > GotFocusEvent
> > >
> > > select case index
> > > case 0
> > >   JumperTAB =false
> > >   CheckOldEditField4_0_Text =me.text
> > > case 1
> > >   If JumperTAB then
> > >     EditField5.setfocus
> > >     EditField5.selStart=0
> > >     EditField5.sellength=EditField5.text.len
> > >   end if
> > > end select
> > >
> > >
> > >
> > > LostFocusEvent
> > >
> > > Dim Betrag as double
> > >
> > > Betrag=Me.text.cdbl
> > >
> > > select case index
> > > case 0 //beide Eingabefelder in Abhängigkeit zum anderen befüllen
> > >   if Betrag<>0 then
> > >     if Betrag >0 then
> > >       EditField4(1).text=""
> > >       Me.text=format(Betrag, FormatZahlGanz)
> > >     else
> > >       Me.text=""
> > >       EditField4(1).text=format(-Betrag, FormatZahlGanz)
> > >     end if
> > >   else
> > >     Me.text=""
> > >   end if
> > > case 1 //beide Eingabefelder in Abhängigkeit zum anderen befüllen
> > >   if Betrag<>0 then
> > >     if Betrag >0 then
> > >       EditField4(0).text=""
> > >       Me.text=format(Betrag, FormatZahlGanz)
> > >     else
> > >       Me.text=""
> > >       EditField4(0).text=format(-Betrag, FormatZahlGanz)
> > >     end if
> > >   else
> > >     Me.text=""
> > >   end if
> > > end select
> > >
> > >
> > > Claudius
> > >
> > > --
> > > iMac CD 2GHz / MacOS X 10.5.2de / RB 2008r1/ Valentina 3.5.2
> > > Homepage    http://www.ClaSai.de
> > > iChat        ryhoruk
> > > RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]
> > >
> > >
> > >
> > >
> > > _______________________________________________
> > > Unsubscribe or switch delivery mode:
> > > <http://www.realsoftware.com/support/listmanager/>
> > >
> > > Search the archives:
> > > <http://support.realsoftware.com/listarchives/lists.html>
> > Claudius
> >
> > --
> > iMac CD 2GHz / MacOS X 10.5.2de / RB 2008r1/ Valentina 3.5.2
> > Homepage    http://www.ClaSai.de
> > iChat        ryhoruk
> > RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]
Claudius

--
iMac CD 2GHz / MacOS X 10.5.2de / RB 2008r1/ Valentina 3.5.2
Homepage    http://www.ClaSai.de
iChat        ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]