[futurebasic] A couple of problems (Blue Border+Weird Text)

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : November 2007 : Group Archive : Group : All Groups

From: Brian Heibert <heibert@...>
Date: Mon, 5 Nov 2007 17:21:22 -0500
I figured out a way to get my edit field working
I am using a NIB window but a standard FB edit field and it appears  
to work
except two things

SETRECT (r,0,34,529,743)
EDIT FIELD #1,"",@r,_noFramedNoCR,_leftJust

It has a blue border though and I have one other weird problem

when I type in
some text
It does this

for example I type in the letter F and you get two FF (s)
it does this for all the letters typed in

Brian


on menu fn doMenu ' branch to doMenu when a menu selected.
on dialog fn doDialog ' branch to doDialog for most other events

' ----------
SetRect ( r , 0 , 0 , 500 , 500 )//0,0, will auto center


'EDIT FIELD SETRECT (r,0,50,529,743)

fn BuildWindowFromNib(1,"Editor")
SETRECT (r,0,34,529,743)
TEXT _Times,12,0:COLOR=_zBlue
EDIT FIELD #1,"",@r,_noFramedNoCR,0

theText = "Type in your program code here."
TEXT _Times,12,0:COLOR=_zBlue

fn BuildWindowFromNib(2,"Console")
WINDOW #2
WINDOW OUTPUT #2
TEXT _Times,12,0:COLOR=_zBlue
PRINT "HBasic PowerPC Console 1.0"

' ----- MAIN LOOP -----

while gProgramEnds = 0
handleevents
wend
end