AutoHotkey Community

Anchor(Control, Anchors="", x=0, y=0, w=0, h=0)
  { 
    ; Thanks to Titan for this function
    ; Details under http://www.autohotkey.com/forum/viewtopic.php?p=26778
   
    ; Control         : Variable assigned to the control (e.g. "MyEdit")
    ; Anchors         : How control to be moved (e.g. "xy" for position or "wh" for size)
    ; x, y, w, h      : respective values of control
    ;                 (note you can omit values that aren't needed by the Anchors by putting any value)
   
    global GuiW, GuiH
   
    If (not Anchors)
      Anchors = xy
    If Anchors contains x
      GuiControl, MoveDraw, % Control, % "x" x+(A_GuiWidth-GuiW)
    If Anchors contains y
      GuiControl, MoveDraw, % Control, % "y" y+(A_GuiHeight-GuiH)
    If Anchors contains w
      GuiControl, MoveDraw, % Control, % "w" w+(A_GuiWidth-GuiW)
    If Anchors contains h
      GuiControl, MoveDraw, % Control, % "h" h+(A_GuiHeight-GuiH)
  }

      ...
      Anchor("EdtComment", "wh", 0, 0, EdtW, EdtH)
      Anchor("GrpMenuBorder", "w", 0, 0, GrpW, 0)
      Anchor("ChkSig", "y", 0, ChkY, 0, 0)
      Anchor("DDLSig", "y", 0, DDLY, 0, 0)
      Anchor("BtnEditSig", "y", 0, BSgY, 0, 0)
      Anchor("BtnDelSig", "y", 0, BSgY, 0, 0)
      Anchor("BtnSend", "xy", BG1X, BG3Y, 0, 0)
      Anchor("BtnPreview", "xy", BG2X, BG3Y, 0, 0)
      Anchor("BtnReset", "xy", BG3X, BG3Y, 0, 0)
      Anchor("BtnPinned", "x", BG4X, 0, 0, 0)
      ...

      Anchor("EdtComment", 0, 0, EdtW, EdtH)

Anchor(Control, x=0, y=0, w=0, h=0, Draw=1)
  {
    ; Thanks to Titan for this function
    ; Details under http://www.autohotkey.com/forum/viewtopic.php?p=26778
   
    ; Control         : Variable assigned to the control (e.g. "MyEdit")
    ; x, y, w, h      : the anchor positions/dimensions
    ; Draw            : false/0 to use Move otherwise leave blank for a MoveDraw
 
    global GuiW, GuiH
    IfEqual, GuiW
      {
        SetEnv, GuiW, %A_GuiWidth%
      }
    IfEqual, GuiH
      {
        SetEnv, GuiH, %A_GuiHeight%
      }
    pos = xywh
    Loop, Parse, pos
      {
        If (%A_LoopField% != "")
          {
            If A_LoopField in x,w
              {
                v := %A_LoopField% + (A_GuiWidth - GuiW)
              }
            Else
              {
                v := %A_LoopField% + (A_GuiHeight - GuiH)
              }
            move := move . A_LoopField . v
          }
        IfNotEqual, Draw, 0
          {
            SetEnv, MDraw, Draw
          }
      }
    GuiControl, Move%MDraw%, %Control%, %move%
    Return, ErrorLevel
  }