Re: RB2008r2: Problem with TAB-Functionality

[Stefan Sicurella <sicurella at onlymac dot de>]

Hallo Claudius,

löse die GroupBox auf und lege eine neue darüber.
Ich bin der Meinung, dass ist ein Bug in RB im Zusammenhang mit alten  
projekten, die wir über die Zeit von Version zu Version portiert haben.
Manchmal musste ich sogar die Controls löschen und neu setzen um das  
Problem zu lösen
Gruß

Stefan

> 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!!! ]