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 <[EMAIL PROTECTED]>
Datum: 9. Mai 2008 21:39:57 MESZ
An: REALbasic Network Users Group <[EMAIL PROTECTED]
>
Betreff: RB2008r2: Problem with TAB-Functionality
Antwort an: REALbasic NUG <[EMAIL PROTECTED]>
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!!! ]
