OpenEuphoria

1. How to add to Edit Text default context menu

• Posted by penpal0andrew Nov 21, 2013
• 2650 views

I am writing a program with edit fields using win32lib version "0.70.20" Windows has a right click context menu used on EditText fields with (Undo, Cut, Copy, Paste, Delete, Select all). I would like to keep that functionality intact, and add more items. How can this be done? Thank you in advance.

3. Re: How to add to Edit Text default context menu

• Posted by penpal0andrew Nov 23, 2013
• 2439 views

Wow that is a great program. I like your library better than win32lib. I should try to port my program. But before that, one would need to completely replace all of the functionality of the context menu. I found this website - http://www.c-sharpcorner.com/UploadFile/deepak.sharma00/how-to-customize-default-contextmenu-of-a-textbox-control-in/ Specifically, menu items need to be disabled if they are not currently appropriate. Thanks. If I port my program and run into problems, we will probably be in touch again. Also, isn't it funny that the 3 of us share the same name - me (Andrew / Andy), you (Andreas), and Andrea whose project you based yours on.

5. Re: How to add to Edit Text default context menu

• Posted by penpal0andrew Nov 27, 2013
• 2153 views

This is amazing. If this library can call the Windows font dialog, why can't it call the Windows color dialog? The disabling of Paste requires the ability to interrogate the Windows clipboard. That is a minor issue, since if there is nothing to paste, nothing will get pasted. Actually, I really like your library, and I was hoping that we could work together to expand it, if I were to port my program to your library, and found things were missing. If you are interested, let me know. If you would like the current version of my program, let me know. It is too large to paste in a forum.

7. Re: How to add to Edit Text default context menu

• Posted by ghaberek (admin) Nov 27, 2013
• 2103 views

Here is an example of something I've done a few times. You can trap the WM_CONTEXTMENU message using w32HEvent and then display your own Popup menu instead. It's really quite straight-forward. From there you can use whatever menu you'd like. In this example, I've added the control key shortcuts and an "About" menu option.

-- w32Text.ew 
-- Here are several extra Win32Lib EditText functions 
-- 
-- can_clear() 
-- can_copy() 
-- can_cut() 
-- can_paste() 
-- can_select() 
-- can_undo() 
-- get_selection() 
-- select_all() 
-- 
 
include Win32Lib.ew 
 
public function get_selection( integer id ) 
     
    atom result = sendMessage( id, EM_GETSEL, 0, 0 ) 
     
    integer index = w32lo_word( result ) 
    integer range = w32hi_word( result ) 
     
    return {index,range} 
end function 
 
public function can_undo( integer id ) 
    return sendMessage( id, EM_CANUNDO, 0, 0 ) 
end function 
 
public function can_cut( integer id ) 
    sequence sel = get_selection( id ) 
    return (sel[2] - sel[1]) > 0 
end function 
 
public function can_copy( integer id ) 
    sequence sel = get_selection( id ) 
    return (sel[2] - sel[1]) > 0 
end function 
 
public function can_paste( integer id ) 
    return w32Func( xIsClipboardFormatAvailable, {CF_TEXT} ) 
end function 
 
public function can_clear( integer id ) 
    sequence sel = get_selection( id ) 
    return (sel[2] - sel[1]) > 0 
end function 
 
public function can_select( integer id ) 
    sequence text = getText( id ) 
    return length( text ) > 0 
end function 
 
public procedure select_all( integer id ) 
    setIndex( id, {1,0} ) 
end procedure 

-- context.exw 
-- Custom context menu example 
 
-- WM_CONTEXTMENU message 
-- http://msdn.microsoft.com/en-us/library/windows/desktop/ms647592%28v=vs.85%29.aspx 
 
include Win32Lib.ew 
include w32Text.ew 
without warning 
 
constant WM_CONTEXTMENU = #007B 
 
constant 
    Main            = create( Window, "Context", 0, Default, Default, 640, 480, 0 ), 
    Text            = create( MleText, "", Main, 0, 0, 0, 0, 0 ), 
$ 
 
constant 
    Context_Menu    = create( Popup, "", 0, 0, 0, 0, 0, 0 ), 
    Context_Undo    = create( MenuItem, "&Undo\tCtrl+Z", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Sep1    = create( MenuItem, "-", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Cut     = create( MenuItem, "Cu&t\tCtrl+X", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Copy    = create( MenuItem, "&Copy\tCtrl+C", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Paste   = create( MenuItem, "&Paste\tCtrl+V", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Delete  = create( MenuItem, "Delete\tDel", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Sep2    = create( MenuItem, "-", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Select  = create( MenuItem, "Select &All\tCtrl+A", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_Sep3    = create( MenuItem, "-", Context_Menu, 0, 0, 0, 0, 0 ), 
    Context_About   = create( MenuItem, "About...", Context_Menu, 0, 0, 0, 0, 0 ), 
$ 
 
setFont( Text, "Courier New", 10, Normal ) 
removeStyle( Text, WS_BORDER ) -- remove the border 
 
procedure Main_OnResize( integer self, integer event, sequence params ) 
     
    -- resize the text control to fit 
    setRect( Text, {w32Edge,0}, {w32Edge,0}, {w32Edge,0}, {w32Edge,0}, w32True ) 
     
end procedure 
setHandler( Main, w32HResize, routine_id("Main_OnResize") ) 
 
procedure Text_OnEvent( integer self, integer event, sequence params ) 
     
    atom winmsg = params[1] 
    atom wparam = params[2] 
    atom lparam = params[3] 
     
    if winmsg = WM_CONTEXTMENU then 
        -- process the context menu message 
         
        -- get the context menu location 
        integer x = w32lo_word( lparam ) 
        integer y = w32hi_word( lparam ) 
         
        -- update the context menu options 
        setEnable( Context_Undo,   can_undo(self)   ) 
        setEnable( Context_Cut,    can_cut(self)    ) 
        setEnable( Context_Copy,   can_copy(self)   ) 
        setEnable( Context_Paste,  can_paste(self)  ) 
        setEnable( Context_Delete, can_clear(self)  ) 
        setEnable( Context_Select, can_select(self) ) 
         
        -- translate the coordinates 
        sequence posn = ScreenToClient( Main, x, y ) 
         
        -- show the menu 
        popup( Context_Menu, posn[1], posn[2] ) 
         
        -- return true to show we processed this message 
        returnValue( w32True ) 
         
    end if 
     
end procedure 
setHandler( Text, w32HEvent, routine_id("Text_OnEvent") ) 
 
procedure Text_OnKeyDown( integer self, integer event, sequence params ) 
     
    integer keyCode = params[1] 
    integer shift = params[2] 
     
    if and_bits( shift, ControlMask ) = ControlMask and keyCode = 'A' then -- Ctrl+A 
         
        select_all( Text ) 
         
        -- return true to show we processed this message 
        returnValue( w32True ) 
         
    end if 
     
end procedure 
setHandler( Text, w32HKeyDown, routine_id("Text_OnKeyDown") ) 
 
procedure Undo_OnClick( integer self, integer event, sequence params ) 
     
    undo( Text ) 
     
end procedure 
setHandler( Context_Undo, w32HClick, routine_id("Undo_OnClick") ) 
 
procedure Cut_OnClick( integer self, integer event, sequence params ) 
     
    cut( Text ) 
     
end procedure 
setHandler( Context_Cut, w32HClick, routine_id("Cut_OnClick") ) 
 
procedure Copy_OnClick( integer self, integer event, sequence params ) 
     
    copy( Text ) 
     
end procedure 
setHandler( Context_Copy, w32HClick, routine_id("Copy_OnClick") ) 
 
procedure Paste_OnClick( integer self, integer event, sequence params ) 
     
    paste( Text ) 
     
end procedure 
setHandler( Context_Paste, w32HClick, routine_id("Paste_OnClick") ) 
 
procedure Delete_OnClick( integer self, integer event, sequence params ) 
     
    clear( Text ) 
     
end procedure 
setHandler( Context_Delete, w32HClick, routine_id("Delete_OnClick") ) 
 
procedure Select_OnClick( integer self, integer event, sequence params ) 
     
    select_all( Text ) 
     
end procedure 
setHandler( Context_Select, w32HClick, routine_id("Select_OnClick") ) 
 
procedure About_OnClick( integer self, integer event, sequence params ) 
     
    sequence about_text = "Context menu example\n" 
        & "\n" 
        & "by Gregory Haberek\n" 
        & "<ghaberek@gmail.com>" 
     
    message_box( about_text, "About", MB_ICONINFORMATION ) 
     
end procedure 
setHandler( Context_About, w32HClick, routine_id("About_OnClick") ) 
 
WinMain( Main, Normal ) 

-Greg

9. Re: How to add to Edit Text default context menu

• Posted by DerekParnell (admin) Nov 28, 2013
• 2045 views

Not a bug. This is by design. See the Microsoft developer docs ...