25 replies to this topic

[toralf]

Hi all,

I want to drag a frame with the mouse on the screen.
I was wondering if I should use a Gui with transparent inside, or a ToolTip, SplashText or Progress? Or maybe even a transparent GUI covering the whole screen and drawing a control with transparent inside on that GUI?

Does anyone have experience with this?
I have seen freakkk script, he uses a GUI with transparent inside.

Which one is best for performance/handling? I have once done it with a GUI (but with some semi transparent controls on it for "golden cut", etc.) But it had some performance problems: flickering, lag, unstable.

Are ToolTip, SplashText or Progress superior to GUI?

Any other ideas?

[toralf]

Could you please post some sample code? I do not know what HTA is.

[toralf]

Comming back to my topic:

I have again use AHK to do it, since I didn't want to learn another script language.
Currently I have the problem. The frame I drag is a black line with little width. It is not visible on a black backgound. I would like to change the color of the GUI border to yellow. Is there a way?

I tried +Resize to get a big gray frame, but then the Gui has a minimum size of 115 by 24 pixel. Seams that it takes a default titlebar as reference. @Chris: is that by design?

Any other ideas to make the border into a different color or visible on black background?

Here is the code

$Lbutton::
  CoordMode, Mouse ,Screen
  MouseGetPos, MX, MY
  Gui, 1:Color, EEAA99
  Gui, 1:+Lastfound
  WinSet, TransColor, EEAA99
  Gui, 1:-Caption +Border
  ;Gui, 1:+Resize
  Loop
    {
      If GetKeyState("LButton", "P")
        {
          MouseGetPos, MXend, MYend
          w := abs(MX - MXend)
          h := abs(MY - MYend)
          If ( MX < MXend )
              X := MX
          Else
              X := MXend
          If ( MY < MYend )
              Y := MY
          Else
              Y := MYend
          Gui, 1:Show, x%X% y%Y% w%w% h%h%
        }        
      Else
          Break
    }
  MouseGetPos, MXend, MYend
  Gui, 1:Destroy
  ToolTip, %MX% %MY%`n%MXend% %MYend%`n%w% %h%
Return

ESC:: ExitApp

Sorry BoBo, I do not know Java.

[Chris]

The code below employs a method, which is likely the most efficient to create a mobile frame.

Cool script. I think this is the most elaborate example of DllCall I've seen posted. It's also a great example of how to bend Gdi32.dll to your will, and I'll be learning from it.

I tried +Resize to get a big gray frame, but then the Gui has a minimum size of 115 by 24 pixel.

I believe that is the default set by the OS when a window has certain styles (apparently WS_SIZEBOX is one of them).

In light of shimanov's impressive demonstration above, you might no longer need an answer for this. But if you do, you can do it with OnMessage():

OnMessage(0x24, "WM_GETMINMAXINFO")
$Lbutton::
...
WM_GETMINMAXINFO(wParam, lParam)
{
	if not A_Gui  ; No GUI window number, so it's not for a GUI window: do nothing.
		return
	; Alter the MINMAXINFO structure's ptMinTrackSize X and Y (8 bytes):
	InsertIntegerAtAddress(0, lParam, 24, 8)  
	return 0  ; MSDN: "If an application processes this message, it should return zero."
}

InsertIntegerAtAddress(pInteger, pAddress, pOffset = 0, pSize = 4)
{
	mask := 0xFF  ; This serves to isolate each byte, one by one.
	Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.
	{
		DllCall("RtlFillMemory", UInt, pAddress + pOffset + A_Index - 1, UInt, 1  ; Write one byte.
			, UChar, (pInteger & mask) >> 8 * (A_Index - 1))  ; This line is auto-merged with above at load-time.
		mask := mask << 8  ; Set it up for isolation of the next byte.
	}
}