OpenEuphoria

Re: Question about Win32lib's EditText control

• Posted by Dan Moyer <DANIELMOYER at prodigy.net> Oct 03, 2001
• 397 views

George,

Here's a better demo, 'cause after I sent the other, I wan't *sure* it would
work with single line edit, after all!

Dan Moyer

<tested code follows:>

--  code generated by Win32Lib IDE v0.10.5
-- then hand modified

include Win32Lib.ew
without warning

----
--  Window Window1
global constant Window1 = create( Window, "Window1", 0, Default, Default,
400, 300, 0 )
global constant EditText2 = create( EditText, "EditText2", Window1, 20, 36,
256, 40, 0 )

-- create right click popups:
constant
EditPopup = create( Popup, "", Window1, 0, 0, 0, 0, 0 ),
PopUp_Undo = create( MenuItem, "Undo", EditPopup, 0, 0, 0, 0, 0 ),
PopUp_Sep1 = create( MenuItem, "-", EditPopup, 0, 0, 0, 0, 0 ),
PopUp_Cut = create( MenuItem, "Cut", EditPopup, 0, 0, 0, 0, 0 ),
PopUp_Copy = create( MenuItem, "Copy", EditPopup, 0, 0, 0, 0, 0 ),
PopUp_Paste = create( MenuItem, "Paste", EditPopup, 0, 0, 0, 0, 0 )


procedure onClick_MenuUndo()
-- undo
undo(EditText2 )
end procedure
--onClick[ MenuUndo ] = routine_id( "onClick_MenuUndo" )
onClick[ PopUp_Undo ] = routine_id( "onClick_MenuUndo" )


procedure onClick_MenuCut()
-- cut
cut(EditText2 )
--setEnable( MenuUndo, 1 )
end procedure
--onClick[ MenuCut ] = routine_id( "onClick_MenuCut" )
onClick[ PopUp_Cut ] = routine_id( "onClick_MenuCut" )



procedure onClick_MenuCopy()
-- copy
copy(EditText2 )
--setEnable( MenuUndo, 1 )
end procedure
--onClick[ MenuCopy ] = routine_id( "onClick_MenuCopy" )
onClick[ PopUp_Copy ] = routine_id( "onClick_MenuCopy" )



procedure onClick_MenuPaste()
-- paste
paste(EditText2 )
--setEnable( MenuUndo, 1 )
end procedure
--onClick[ MenuPaste ] = routine_id( "onClick_MenuPaste" )
onClick[ PopUp_Paste ] = routine_id( "onClick_MenuPaste" )



procedure onClick_MenuDelete()
-- clear
clear(EditText2 )
--setEnable( MenuUndo, 1 )
end procedure
--onClick[ MenuDelete ] = routine_id( "onClick_MenuDelete" )


-- procedure to respond to right click in edit box:
-- (with the setEnables you can set which are active or not)
procedure onMouse_EditText2( integer event, integer x, integer y, integer
shift )
sequence MousePosition
MousePosition = getMouseRelPos(Window1)-- had usedEditText2
if event = RightDown then
setEnable( PopUp_Cut, 1 )
setEnable( PopUp_Copy, 1 )
setEnable( PopUp_Paste, 1 )
setEnable( PopUp_Undo, 1 )

popup( EditPopup, MousePosition[1],MousePosition[2] )
end if

end procedure
onMouse[EditText2] = routine_id("onMouse_EditText2")





WinMain( Window1, Normal )
----- Original Message -----
From: "George Papadopoulos" <georgp at otenet.gr>
To: "EUforum" <EUforum at topica.com>
Sent: Tuesday, October 02, 2001 2:26 PM
Subject: Question about Win32lib's EditText control



Hi EU-ZE(I)N

Why when i right click in an EditText control doesn't appears the
default systems's context menu? (Undo..Cut..Copy..etc)
Is it a bug?
This also happens with Combo  but not with ComboEx or MleText control.
Is there any way to work Drag n' Drop in a Combo with default style?