OpenEuphoria

Mouse troubles

• Posted by Sergio Gelli <sergelli at uol.com.br> Mar 12, 2006
• 443 views

Hi friends:

Please I need  help.
I am using Windows xp and last 
Euphoria issue.

That's is the trouble:

The programm shows a word inside a Box.
When mouse click over a character in 
this word, the Euphoria code replace by 
onother word.
No problem until that step. But when 
move the mouse, the old character appears 
over the new word.
Below, I am sendind a Euphoria code 
with this problem.
Please, run in your PC to understand
bether.

Best regards

Sergio Gelli - Brasil 


include mouse.e
include graphics.e
object event,ink,kni,sound1,inser1,row1,col1,s,mcol1,mrow1
sound1=1
inser1=1
----------------------------------------------------------------------------------
global function getbit()
---------------------- 
 object event,kni
 ink=-1
 while ink=-1 do
  event=get_mouse()
  if sequence(event) and event[1]>1 then  -- test variavel is sequence
   ink=event[1]                     --- mouse press
   mcol1=(floor(event[2]/8))+1      --- col mouse
   mrow1=(floor(event[3]/8))+1      --- lin mouse 
  else
   ink=get_key()                    -- if no mouse
  end if 
 end while
 return ink
end function
------------
----------------------------------------------------------------------------------
position(25,01)
puts(1,"\\usre\\gettext.e\\read()       ")   ---- nome do pgm ativo 
s = get_position()
row1=s[1]
col1=s[2]
position(23,01)
bk_color(1)
text_color(14)
puts(1,"Clic over any letter in colored boxs, that letter appears when move the
mouse\n")
puts(1,{179}&"To End: Click here or press the Esc key "&{179})
bk_color(4)      --------  cor diretorio + ->
text_color(15)
ink=0
while ink!=27 and ink != 13 and ink!= 23  do  ----- ESC deve ser tratado -------
 machine_proc(6, NO_CURSOR)           -- cursor(NO_CURSOR)
 position( 24,65 )                    --  Sound position
 if sound1 then
  bk_color(14)   
  text_color(0)                       -- cor Sound 
  puts(1, 179&"Sound"&{32,179})
 else
  bk_color(1)   
  text_color(14)                      -- cor SILENT 
  puts(1,179&"SILENT"&{179})
 end if
 position( 24,55 )                    -- Insert position
 if inser1 then
  bk_color(14)   
  text_color(0)                        -- cor insert 
  puts(1,179& "Insert"&{32,179})
 else
  bk_color(1)   
  text_color(14)                       -- cor REPLACE 
  puts(1,179&"REPLACE"&{179})
 end if
 bk_color(14)
 text_color(0)
 -------------------------------------------------------------------------
 ink=getbit()                           -- date input
 --------------------------------------------------------------------------
 ------ actions click mouse -------------------------------------
 if ink=4  then                             -- ink=4 = button mouse up
  if mrow1=24 and mcol1>0 and mcol1<45 then -- place's simulation Esc key
   ink=27           ------ simula tecla Esc
  elsif mrow1=24 and mcol1>65 and mcol1<71  then -- Sound/Silent Box
   if  sound1 then sound1=0            
   else sound1=1   end if
  elsif mrow1=24 and mcol1>54 and mcol1<62  then  -- Insert/Replace Box
   if inser1 then inser1=0          
   else inser1=1 end if
  end if
 end if
end while