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