Sign in to follow this  
Followers 0
ProgrammingBrain

problem in context menu size

3 posts in this topic

i have a problem of my context menu size

this pictures explain the problem

Posted Image

Posted Image

Posted Image

#Include <GuiMenu.au3>
#Include <GuiListView.au3>


GUICreate ( "Links list" , 500 , 500 )

$listview = GUICtrlCreateListView("Links", 10, 10, 450, 450)
_GUICtrlListView_SetColumnWidth($listview, 0, 400)

$item1 = GUICtrlCreateListViewItem("http://www.youtube.com/", $listview)
$item1 = GUICtrlCreateListViewItem("http://www.youtube.com/watch?v=Q97c5szTgIA", $listview)

$contextmenu =GUICtrlCreateContextMenu ( $listview)
$name= GUICtrlCreateMenuItem("name", $contextmenu)
$copy= GUICtrlCreateMenuItem("copy", $contextmenu)




GUICtrlSetOnEvent ( $copy, "copy" )

GUISetState()
Global  $sText
While 1
    $list=_GUICtrlListView_GetSelectedIndices($listview, True)
    If Not @error And $list[0]>0 Then
        $sText=_GUICtrlListView_GetItemText($listview,$list[1])
        _GUICtrlMenu_SetItemText(GUICtrlGetHandle($contextmenu), 0, $sText)
    EndIf
    If GUIGetMsg()= -3 then Exit
WEnd
    
Func copy()
    
    $list=_GUICtrlListView_GetSelectedIndices($listview, True)
    If Not @error And $list[0]>0 Then
        $sText=_GUICtrlListView_GetItemText($listview,$list[1])
        ClipPut($sText)
    EndIf
    
EndFunc

Share this post


Link to post
Share on other sites



Mostanas,

I would destroy and recreate the menu each time - that way you always get the width you need. ;)

Look for the <<<<<<<<<<<< lines:

#include <GuiMenu.au3>
#include <GuiListView.au3>

Global $sText, $contextmenu ; You need to declare a placeholder variable here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<

GUICreate("Links list", 500, 500)

$listview = GUICtrlCreateListView("Links", 10, 10, 450, 450)
_GUICtrlListView_SetColumnWidth($listview, 0, 400)

$item1 = GUICtrlCreateListViewItem("http://www.youtube.com/", $listview)
$item1 = GUICtrlCreateListViewItem("http://www.youtube.com/watch?v=Q97c5szTgIA", $listview)

GUISetState()

While 1
    $list = _GUICtrlListView_GetSelectedIndices($listview, True)
    If Not @error And $list[0] > 0 Then
        GUICtrlDelete($contextmenu) ; Or you get an error here on the first pass!  <<<<<<<<<<<<<<<<<<<<<
        $contextmenu = GUICtrlCreateContextMenu($listview)
        $sText = _GUICtrlListView_GetItemText($listview, $list[1])
        $name = GUICtrlCreateMenuItem($sText, $contextmenu)
        $copy = GUICtrlCreateMenuItem("copy", $contextmenu)
        GUICtrlSetOnEvent ( $copy, "copy" )
    EndIf
    If GUIGetMsg() = -3 Then Exit
WEnd

Func copy()

    $list = _GUICtrlListView_GetSelectedIndices($listview, True)
    If Not @error And $list[0] > 0 Then
        $sText = _GUICtrlListView_GetItemText($listview, $list[1])
        ClipPut($sText)
    EndIf

EndFunc   ;==>copy

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

thanks alot Melba23

its works very good ;)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0