TanerJames Posted January 15, 2013 Share Posted January 15, 2013 Hi, Drag not working on GUICtrlCreatePic object. Why? Thanks. expandcollapse popup#include #include #include GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") $hGUI = GUICreate("Test", 500, 200, -1, 100) $caption = GUICtrlCreateLabel("example", 200, 100, 150, 26) $iBtn_Exit = GUICtrlCreateButton("Exit", 200, 150, 100, 40) ;~ GUISetState() $hGUI2 = GUICreate("gui2", 150, 70, 10, 10, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) $iBtn_Effect2 = GUICtrlCreateButton("XXXX", 10, 10, 100, 40) GUISetBkColor(0xE0FFFF, $hGUI2) $hGUI3 = GUICreate("gui3", 150, 70, 10, 80, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) GUISetBkColor(0xA0FFFF, $hGUI3) $img = GUICtrlCreatePic("mslogo.jpg", 10, 10, 100, 50) GUISetState(@SW_SHOW, $hGUI) GUISetState(@SW_SHOW, $hGUI2) GUISetState(@SW_SHOW, $hGUI3) Global $hHBmp Do Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $iBtn_Exit GUIDelete() Exit EndSwitch Until False Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) GUICtrlSetData($caption, $hWnd & " " & Random()) ; for test If (($hwnd = $hGUI) or ($hwnd = $hGUI2) or ($hwnd = $hGUI3)) And ($iMsg = $WM_NCHITTEST) Then _SendMessage($hGUI,$WM_SYSCOMMAND,0xF012,0) EndIf EndFunc Link to comment Share on other sites More sharing options...
guinness Posted January 16, 2013 Share Posted January 16, 2013 Place GUIRegisterMsg after the GUI creation. Also you the basic editor when posting AutoIt code and the includes were stripped. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
TanerJames Posted January 16, 2013 Author Share Posted January 16, 2013 GUIRegisterMsg after GUI creation same problem. Can't drag on GUICtrlCreatePic object. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted January 16, 2013 Moderators Share Posted January 16, 2013 TanerJames,The $WM_NCHITTEST message is sent to see if the cursor is over the title bar - as the pic control does not have a title bar it will never fire the message. I would check to see if the cursor is over the control when the mouse button is pressed - like this:expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <SendMessage.au3> $hGUI = GUICreate("Test", 500, 200, -1, 100) $caption = GUICtrlCreateLabel("example", 200, 100, 150, 26) $iBtn_Exit = GUICtrlCreateButton("Exit", 200, 150, 100, 40) ;~ GUISetState() $hGUI2 = GUICreate("gui2", 150, 70, 10, 10, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) $iBtn_Effect2 = GUICtrlCreateButton("XXXX", 10, 10, 100, 40) GUISetBkColor(0xE0FFFF, $hGUI2) $hGUI3 = GUICreate("gui3", 150, 70, 10, 80, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) GUISetBkColor(0xA0FFFF, $hGUI3) $img = GUICtrlCreatePic("M:\Program\Au3 Scripts\Images\VistaX.jpg", 10, 10, 100, 50) $hImg = GUICtrlGetHandle($img) ConsoleWrite($hImg & @CRLF) GUISetState(@SW_SHOW, $hGUI) GUISetState(@SW_SHOW, $hGUI2) GUISetState(@SW_SHOW, $hGUI3) GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") Global $hHBmp Do Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $iBtn_Exit GUIDelete() Exit Case $GUI_EVENT_PRIMARYDOWN $aCInfo = GUIGetCursorInfo() If IsArray($aCInfo) And $aCInfo[4] = $img Then _SendMessage($hGUI, $WM_SYSCOMMAND, 0xF012, 0) EndIf EndSwitch Until False Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) GUICtrlSetData($caption, $hWnd & " " & Random()) ; for test If (($hWnd = $hGUI) Or ($hWnd = $hGUI2) Or ($hWnd = $hGUI3)) And ($iMsg = $WM_NCHITTEST) Then _SendMessage($hGUI, $WM_SYSCOMMAND, 0xF012, 0) EndIf EndFunc ;==>WM_NCHITTESTAll clear? M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
TanerJames Posted January 16, 2013 Author Share Posted January 16, 2013 Melba23, thanks How do I use except GUIGetMsg? Example: RunWait process (not work GUIGetMsg but GUIRegisterMsg working) How can I use in GUIRegisterMsg? (I want drag code to continuous run) Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted January 16, 2013 Moderators Share Posted January 16, 2013 TanerJames, Some people are never satisfied! Try this - you have to disable the pic control but that has no effect on its appearance: expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <SendMessage.au3> $hGUI = GUICreate("Test", 500, 200, -1, 100) $caption = GUICtrlCreateLabel("example", 200, 100, 150, 26) $iBtn_Exit = GUICtrlCreateButton("Exit", 200, 150, 100, 40) ;~ GUISetState() $hGUI2 = GUICreate("gui2", 150, 70, 10, 10, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) $iBtn_Effect2 = GUICtrlCreateButton("XXXX", 10, 10, 100, 40) GUISetBkColor(0xE0FFFF, $hGUI2) $hGUI3 = GUICreate("gui3", 150, 70, 10, 80, $WS_POPUP, $WS_EX_MDICHILD, $hGUI) GUISetBkColor(0xA0FFFF, $hGUI3) $img = GUICtrlCreatePic("M:\Program\Au3 Scripts\Images\VistaX.jpg", 10, 10, 100, 50) GUICtrlSetState(-1, $GUI_DISABLE) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< GUISetState(@SW_SHOW, $hGUI) GUISetState(@SW_SHOW, $hGUI2) GUISetState(@SW_SHOW, $hGUI3) GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST") GUIRegisterMsg($WM_LBUTTONDOWN, "WM_LBUTTONDOWN") Global $hHBmp Do Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $iBtn_Exit GUIDelete() Exit EndSwitch Until False Func WM_LBUTTONDOWN($hWnd, $iMsg, $iwParam, $ilParam) If (($hWnd = $hGUI) Or ($hWnd = $hGUI2) Or ($hWnd = $hGUI3)) Then _SendMessage($hGUI, $WM_SYSCOMMAND, 0xF012, 0) EndIf EndFunc Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) GUICtrlSetData($caption, $hWnd & " " & Random()) ; for test If (($hWnd = $hGUI) Or ($hWnd = $hGUI2) Or ($hWnd = $hGUI3)) And ($iMsg = $WM_NCHITTEST) Then _SendMessage($hGUI, $WM_SYSCOMMAND, 0xF012, 0) EndIf EndFunc ;==>WM_NCHITTEST Does that meet with your approval? M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
TanerJames Posted January 16, 2013 Author Share Posted January 16, 2013 wow big thanks Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now