AutoHotkey Community

static RB_SETBANDINFO = A_IsUnicode ? 0x40B : 0x406
SendMessage, RB_SETBANDINFO, WhichBand, &BAND, ,ahk_id %hRebar%

Splitter_Add2Form(HParent, Txt, Opt){
   static parse = "Form_Parse"

DockA(HHost="", HClient="", DockDef="") {
   DockA_(HHost+0, HClient+0, DockDef, "")
}

DockA_(HHost, HClient, DockDef, Hwnd) {
   static
   
   if HClient && (DockDef != 3)
   {
      If !init
         init := OnMessage(3, A_ThisFunc) ; WM_MOVE    ;adrSetWindowPos := DllCall("GetProcAddress", "uint", DllCall("GetModuleHandle", "str", "user32"), "str", "SetWindowPos")

      HClient += 0, HHost += 0
      if (DockDef="-")
         if InStr(%HHost%, HClient) {
            StringReplace, %HHost%, %HHost%, %A_Space%%HClient%
            DllCall("SetWindowLong", "uint", HClient, "int", -8, "uint", %HClient%_oldparent)
            return
         } else return

      if (DockDef = "") {      ;pin
         WinGetPos hX, hY,,, ahk_id %HHost%
         WinGetPos cX, cY,,, ahk_id %HClient%
         DockDef := "x(0,0," cX - hX ")  y(0,0," cY - hY ")"
      }

      %HClient%_x1 := %HClient%_x2 := %HClient%_y1 := %HClient%_y2 := %HClient%_h1 := %HClient%_w1 := %HClient%_x3 := %HClient%_y3 := %HClient%_h2 := %HClient%_w2 := ""
      loop, parse, DockDef, %A_Space%%A_Tab%
      {
         ifEqual, A_LoopField,,continue

         t := A_LoopField, c := SubStr(t,1,1), t := SubStr(t,3,-1)
         StringReplace, t, t,`,,|,UseErrorLevel
         t .= !ErrorLevel ? "||" : (ErrorLevel=1 ? "|" : "")
         loop, parse, t,|,%A_Space%%A_Tab%
            %HClient%_%c%%A_Index% := A_LoopField ? A_LoopField : 0         
      }
      %HClient%_oldparent := DllCall("SetWindowLong", "uint", HClient, "int", -8, "uint", hHost)
      return %HHost% .= (%HHost% = "" ? " " : "") HClient " "
   }
   
   ifEqual, HHost, 0,SetEnv, HHost, %Hwnd%
   ifEqual, %HHost%,,return

   oldDelay := A_WinDelay, oldCritical := A_IsCritical
   SetWinDelay, -1
   critical 100
   
   WinGetPos hX, hY, hW, hH, ahk_id %HHost%
   loop, parse, %HHost%, %A_Space%
   {       
      ifEqual, A_LoopField,,continue
      else j := A_LoopField
      WinGetPos cX, cY, cW, cH, ahk_id %j%
      w := %j%_w1*hW + %j%_w2,  h := %j%_h1*hH + %j%_h2
      , x := hX + %j%_x1*hW + %j%_x2*(w ? w : cW) + %j%_x3
      , y := hY + %j%_y1*hH + %j%_y2*(h ? h : cH) + %j%_y3
      WinMove ahk_id %j%,,x,y, w ? w : "" ,h ? h : ""         ;   DllCall(adrSetWindowPos, "uint", hwnd, "uint", 0, "uint", x ? x : cX, "uint", y ? y : cY, "uint", w ? w : cW,

"uint", h ? h :cH, "uint", 1044) ;4 | 0x10 | 0x400
   }
   SetWinDelay, %oldDelay%
   critical %oldCritical%
}

      DockA(MainGuiHwnd, clienthwnd, "x(1) y()")
      SendMessage, 3 ,,,, ahk_id%MainGuiHwnd%

#include ../lib/DockA.ahk

Gui, Add, Text,, Mouse over a window and press f2 to attach
Gui, Show, h100 , mygui
Gui, +LastFoundExist
MainGuiHwnd := WinExist()

return         ;// end of autoexec


F2::
   MouseGetPos,,, win
   DockA(MainGuiHwnd, win, "x(1) y()")
   ;SendMessage, 3,,,,ahk_id%MainGuiHwnd%     ;// send WM_MOVE
return

72:      return %HHost% .= (%HHost% = "" ? " " : "") HClient " "

Dlg_Save(hGui, "Select several files", "All Files (*.*)|Audio (*.wav; *.mp2; *.mp3)|Documents (*.txt)", "", "c:\", "MyExt")

C:\test.MyExt

Gui 1: +LastFound -MiniMizeBox
WIN_ID := WinExist()

Gui, color, FDF5E6
Gui, Add, text, x0 y0

CreateImageList()

hToolbarAdd := Toolbar_Add(WIN_ID, "ToolbarHandler", "Flat", hIL, "x15 y15 w570 h100")

Toolbar_Insert(hToolbarAdd, "Camel, 131")
Toolbar_Insert(hToolbarAdd, "Exit,18")

Toolbar_SetButtonSize(hToolbarAdd, 80, 80)   ;w h

Gui 1: Show, w500 h110, Toolbar
RETURN

ToolbarHandler(hCtrl, pEvent, pTxt, pPos, pId) {
   global
   ; tooltip, %pEvent%
   IF (pEvent = "click") {
      Gui 1: Destroy
      GoSub %pTxt%
      }
      ELSE RETURN
   }

CreateImageList() {
   global
   hIL := IL_Create(80, 0, 1) ;create imagelist
   Loop 250
      IL_Add(hIL, "Shell32.dll", A_Index) ;load icons from our dll
   }
; #Include Toolbar.ahk