Jump to content

Why Can't I Move this Window


Recommended Posts

Ok im stuck why can I not move this window around

#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

HotKeySet("{END}", "Terminate") ; Hotkey to press to terminate
$Form1 = GUICreate(" Area", 810, 560, 59, 50, BitOR($WS_POPUP, $DS_MODALFRAME), $WS_EX_TOPMOST)
$Label1 = GUICtrlCreateLabel("Click Here to Move Area", 0, 8, 172, 17, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Graphic1 = GUICtrlCreateGraphic(0, 0, 800, 550)
GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 5)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFF0000)
GUICtrlSetGraphic(-1, $GUI_GR_RECT, 5, 4, 800, 550)
GUISetBkColor(0xffffff, $Form1);
WinSetTrans($Form1, "", 0)
GUICtrlCreatePic("", 8, 15, 150, 25)
GUISetState(@SW_SHOW)
Func GUI()
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
    EndSwitch
EndFunc   ;==>GUI


While 1
    GUI()
WEnd

Func Terminate() ; Terminate Hotkey Function
    ToolTip('LootAlarm "Closing"', 691, 125)
    Sleep(4000)
    ToolTip("")
    Exit
EndFunc   ;==>Terminate

Please help I would like to be able to move it around where it say click here to move area

Link to comment
Share on other sites

  • Moderators

Justforfun,

$GUI_WS_EX_PARENTDRAG is an extended style, so you need to put it where AutoIt expects an extended style. You have it in the style parameter location at present. ;)

Change the line to read: :blink:

$Label1 = GUICtrlCreateLabel("Click Here to Move Area", 0, 8, 172, 17, -1, $GUI_WS_EX_PARENTDRAG)

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png 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 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

 

Link to comment
Share on other sites

Justforfun,

$GUI_WS_EX_PARENTDRAG is an extended style, so you need to put it where AutoIt expects an extended style. You have it in the style parameter location at present. ;)

Change the line to read: :blink:

$Label1 = GUICtrlCreateLabel("Click Here to Move Area", 0, 8, 172, 17, -1, $GUI_WS_EX_PARENTDRAG)

Mabye I did it wrong but it still wont move.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...