Draggable, floating text ... how?

[qwert]

I was certain I had seen this basic capability in a simple example.  But, after a day of looking at examples, I've only found text that can march across the screen ... and even fly in different directions.

Can anyone point me to a basic capability? ... one that includes:

►Block with rounded corners

►Block size independent of the text size

►Font specified from the Win font library

►Entire block draggable from its initial position

Attached is an example of the result I'm seeking.

Thanks in advance for any help.

 

[Melba23]

qwert,

The Moving and Resizing PopUp GUIs tutorial in the Wiki shows you several ways to do the "draggable" bit - the "font" and "colour" requirements are done with basic AutoIt GUI functions. And there are umpteen "rounded corner" examples on the forum - use the Search facility to find them.

M23

[qwert]

Thanks for the nudge.  I found a starting point in an example on rounded-corner GUIs.  Here's what I was able to construct:

expandcollapse popup

;
;           Simple Floating Text Overlay
;
#include <GuiConstants.au3>
$sFont = "Comic Sans MS"

$my_gui = GuiCreate("MyGUI", 900, 120, -1, -1, $WS_POPUP)
_GuiRoundCorners($my_gui, 0, 0, 30, 30)
GUISetBkColor(0x990000)
GUICtrlSetDefColor(0xFFFFFF)
GUICtrlCreateLabel("Floating block of overlaid text ... draggable.", 60, 30, 900, 60, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 28, 400, 2, $sFont)
GuiSetState()

While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
;
    EndSelect
WEnd
Exit

Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
   Dim $pos, $ret, $ret2
   $pos = WinGetPos($h_win)
   $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3)
   If $ret[0] Then
      $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1)
      If $ret2[0] Then
         Return 1
      Else
         Return 0
      EndIf
   Else
      Return 0
   EndIf
EndFunc  ;==>_GuiRoundCorners

Dragging the whole background would be a nice touch, but this method serves my immediate purpose and meets my goal of simplicity.

Thanks, again.

[qwert]

Dragging the whole background would be a nice touch

 

For anyone following this, here's the function—in its simplest form—that makes the block draggable:

:
:
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")

:
:

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    If ($hWnd = $my_gui) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc

: