Home | Blog | Software | Reviews and Features | Forum | Help | Donate | About us
topbanner_forum
  *

avatar image

Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
  • December 04, 2016, 02:28:32 PM
  • Proudly celebrating 10 years online.
  • Donate now to become a lifetime supporting member of the site and get a non-expiring license key for all of our programs.
  • donate

Author Topic: add buttons to an existing window  (Read 418 times)

tommmmm

  • Participant
  • Joined in 2016
  • *
  • default avatar
  • Posts: 2
    • View Profile
    • Donate to Member
add buttons to an existing window
« on: October 24, 2016, 10:20:32 AM »
Hi i found this code in an old post, and it working with an older version of autohotkey only. Can someone help to update to work with latest version?
Also, i'm new here, this code is too complicated to understand, a simple example would be nice, just the gui and one button on notepad.
Description:
Add toolbars to your favorite programs.
Features:
- A programmable toolbar that fits inside any window!
- Change icons, tooltips, left-, right- and middleclick actions.
- The actions can be keypresses, menu selections, button clicking and window actions.
- To find out more, choose Help in the tray menu.


Here is the code:

;FileInstall,Barnacle.rtf,Barnacle.rtf
FileCreateDir,Toolbars
FileInstall,Toolbars\Calc.ini,Toolbars\Calc.ini
FileInstall,Toolbars\Notepad.ini,Toolbars\Notepad.ini
FileCreateDir,Images
FileInstall,Images\EditCut.ico,Images\EditCut.ico

#SingleInstance,Force
#NoEnv
SetBatchLines,-1
SetWinDelay,0

applicationname=Barnacle

SysGet,menuh,15 ;SM_CYMENU

Gosub,INIREAD
Gosub,TRAYMENU
Gosub,START
OnExit,EXIT

ids=
Loop
{
  Sleep,100
  WinGet,activeid,ID,A
  WinGetClass,class,ahk_id %activeid%
  MouseGetPos,mx,my,mid,mctrl
  WinGetClass,mclass,ahk_id %mid%

  active=0
  Loop,% toolbars
  {
    currentclass:=%A_Index%class
    If (class=currentclass)
    {
      hWnd:=activeid
      active:=A_Index
      IfNotInString,ids,%hWnd%`,
      {
        ids=%ids%%hWnd%,
        %hWnd%new:=MENU(hWnd)
      }
      Gosub,PAINT
    }
    If (mclass=currentclass)
    {
      hWnd:=mid
      active:=A_Index
      IfNotInString,ids,%hWnd%`,
      {
        ids=%ids%%hWnd%,
        %hWnd%new:=MENU(hWnd)
      }
      Gosub,PAINT
    }
  }

  If (active>0 And mclass=class And mx>=toolbarx And mx<toolbarx+toolbarw And my>=toolbary And my<=toolbary+toolbarh)
  {
    If hotkeys<>On
    {
      Hotkey,$~LButton,LEFT,On
      Hotkey,$~RButton,RIGHT,On
      Hotkey,$~MButton,MIDDLE,On
    }
    oldbutton:=button
    button:=Ceil((mx-cxWindowBorders+1)/buttonw)
    If (button<>oldbutton)
    {
      tooltip:=%active%tip%button%
      ToolTip,%tooltip%,% toolbarx+button*buttonw,% toolbary+buttonh+10
    }
    hotkeys=On
  }
  Else
  If hotkeys=On
  {
    Hotkey,$LButton Up,LEFTUP,Off
    Hotkey,$RButton Up,RIGHTUP,Off
    Hotkey,$MButton Up,MIDDLEUP,Off
    Hotkey,$~LButton,LEFT,Off
    Hotkey,$~RButton,RIGHT,Off
    Hotkey,$~MButton,MIDDLE,Off
    button=
    ToolTip,
    Hotkeys=Off
  }

  If showinfo=1
  {
    PixelGetColor,mcolor,%mx%,%my%,RGB
    StringTrimLeft,mcolor,mcolor,2
    TrayTip,%applicationname%,X: %mx% Y:%my%`nClass: %mclass%`nControl: %mctrl%`nColor:%mcolor%
  }
}
Return


LEFT:
RIGHT:
MIDDLE:
Hotkey,$LButton Up,LEFTUP,On
Hotkey,$RButton Up,RIGHTUP,On
Hotkey,$MButton Up,MIDDLEUP,On
Hotkey,$~LButton,LEFT,Off
Hotkey,$~RButton,RIGHT,Off
Hotkey,$~MButton,MIDDLE,Off
ToolTip,%tooltip%,% toolbarx+button*buttonw,% toolbary+buttonh
Return

LEFTUP:
action:=%active%leftaction%button%
ToolTip,%action%,% toolbarx+button*buttonw,% toolbary+buttonh ;Left %active% %button%:
Gosub,ACTION
Return

RIGHTUP:
action:=%active%rightaction%button%
ToolTip,%action%,% toolbarx+button*buttonw,% toolbary+buttonh ;Right %active% %button%:
Gosub,ACTION
Return

MIDDLEUP:
action:=%active%middleaction%button%
ToolTip,%action%,% toolbarx+button*buttonw,% toolbary+buttonh ;Middle %active% %button%:
Gosub,ACTION
Return


ACTION:
IfInString,action,Send`,
{
  StringTrimLeft,action,action,5
  Send,%action%
}
IfInString,action,Run`,
{
  StringTrimLeft,action,action,4
  StringSplit,action_,action,`,
  Run,%action_1%,%action_2%,%action_3%
}
IfInString,action,Control`,
{
  StringTrimLeft,action,action,8
  StringSplit,action_,action,`,
  ControlClick,%action_1%,ahk_id %hWnd%,,%action_2%,%action_3%,%action_4%
}
IfInString,action,Menu`,
{
  StringTrimLeft,action,action,5
  StringSplit,action_,action,`,
  If action_1=0&
  {
    StringTrimRight,item_2,action_2,1
    hSysMenu:=DllCall("GetSystemMenu", "Uint", hWnd, "int", False)
    If action_0=2
    {
      nID     :=DllCall("GetMenuItemID", "Uint", hSysMenu, "int", item_2-1) ; produce -1 for a SubMenu item
      PostMessage, 0x112, nID, 0, , ahk_id %hWnd%   ; WM_SYSCOMMAND
    }
    Else
    {
      StringTrimRight,item_2,action_2,1
      StringTrimRight,item_3,action_3,1
      hSysMenu:=DllCall("GetSubMenu", "Uint", hSysMenu, "int", item_2-1)
      nID     :=DllCall("GetMenuItemID", "Uint", hSysMenu, "int", item_3-1)
      PostMessage, 0x112, nID, 0, , ahk_id %hWnd%   ; WM_SYSCOMMAND
    }
  }
  Else
    WinMenuSelectItem,ahk_id %hWnd%,,%action_1%,%action_2%,%action_3%,%action_4%,%action_5%,%action_6%
}
IfInString,action,Mouse`,
{
  StringTrimLeft,action,action,6
  StringSplit,action_,action,`,
  If action_5=Screen
    CoordMode,Mouse,Screen
  MouseClick,%action_1%,%action_2%,%action_3%,%action_4%,%action_5%
  If action_5=Screen
    CoordMode,Mouse,Relative
}
IfInString,action,Window`,
{
  StringTrimLeft,action,action,7
  StringSplit,action_,action,`,
  If action_1=Move
    WinMove,ahk_id %hWnd%,,%action_2%,%action_3%,%action_4%,%action_5%
  If action_1=AlwaysOnTop
    WinSet,AlwaysOnTop,Toggle,ahk_id %hWnd%,,
  If action_1=Bottom
    WinSet,Bottom,,ahk_id %hWnd%,,
}
Return


MENU(hWnd)
{
  hMenu :=DllCall("GetMenu","UInt",hWnd)
  If hMenu=0
  {
    hMenu :=DllCall("CreateMenu")
    DllCall("SetMenu","UInt",hWnd,"UInt",hMenu)
    uFlags:=0x1 | 0x4000 ;MF_BITMAP:=0x0004 MF_MENUBREAK:=0x40 MF_GRAYED:=0x1

MF_RIGHTJUSTIFY:=0x4000 MF_OWNERDRAW:=0x0100
    new=1
  }
  Else
  {
    uFlags:=0x40 | 0x1 | 0x4000 ;MF_BITMAP:=0x0004 MF_MENUBREAK:=0x40 MF_GRAYED:=0x1

MF_RIGHTJUSTIFY:=0x4000 MF_OWNERDRAW:=0x0100
    new=0
  }
  lpNewItem:=applicationname
  VarSetCapacity(uIDNewItem,4,1)
  DllCall("AppendMenu",UInt,hMenu,UInt,uFlags,UInt,&uIDNewItem,STR,lpNewItem)
  DllCall("DrawMenuBar",UInt,hWnd)
  Return,%new%
}


START:
  Gui,+ToolWindow +AlwaysOnTop
  Gui,1:Add,Text,,Loading images...
  Gui,1:Show,w200 h200 Barnacle

  SysGet,iconw,11 ;SM_CXICON
  SysGet,iconh,12 ;SM_CYICON

  ScreenDC  :=DllCall("GetWindowDC",UInt,0)
  MemDC     :=DllCall("CreateCompatibleDC",UInt,ScreenDC)
  MemBmp    :=DllCall("CreateCompatibleBitmap",UInt,ScreenDC,UInt,A_ScreenWidth,UInt,toolbars*buttonh)
  oldMemBmp :=DllCall("SelectObject",UInt,MemDC,UInt,MemBmp)

  hBrush:=DllCall("GetStockObject",UInt,18)  ;DC_BRUSH
          DllCall("SelectObject",UInt,MemDC,UInt,hBrush)

  buttony:=-buttonh
  Loop,%toolbars%
  {
    toolbar:=A_Index
    buttony+=%buttonh%
    buttons:=%toolbar%buttons
    buttonx:=-buttonw

    color:=%toolbar%color
    StringLeft,left,color,2
    StringTrimLeft,color,color,2
    StringLeft,middle,color,2
    StringTrimLeft,color,color,2
    hColor:="0x00" . color . middle . left ;0x00bbggrr
    DllCall("SetDCBrushColor",UInt,MemDC,UInt,hColor)
    VarsetCapacity(rect,16,0)
    InsertInteger(0,rect,0)
    InsertInteger((toolbar-1)*buttonh,rect,4)
    InsertInteger(A_ScreenWidth,rect,8)
    InsertInteger(toolbar*buttonh,rect,12)
    DllCall("FillRect",UInt,MemDC,Int,&rect,UInt,hBrush)
    InsertInteger(0,rect,0)
    InsertInteger(0,rect,4)
    InsertInteger(iconw,rect,8)
    InsertInteger(iconh,rect,12)

    DllCall("SetStretchBltMode",UInt,MemDC,Int,4)  ; Halftone better quality

    Loop,%buttons%
    {
      button:=A_Index
      image:=%toolbar%image%button%
      buttonx+=%buttonw%

      guiw=
      Loop
      {
        Gui,2:-Caption -Border +ToolWindow +AlwaysOnTop
        Gui,2:Margin,0,0
        color:=%toolbar%color
        Gui,2:Color,%color%
        StringSplit,image_,image,`,
        If image_2<>
          image_2=Icon%image_2%
        Gui,2:Add,Picture,W%guiw% H-1 %image_2%,%image_1%
        Gui,2:Show,NoActivate,Barnacle Icon Loader
        WinGet,guiid,Id,Barnacle Icon Loader
        WinGetPos,guix,guiy,guiw,guih,ahk_id %guiid%
        If (guiw<=A_ScreenWidth And guiw<=A_ScreenHeight)
          Break
        Gui,2:Destroy
        guiw/=10
      }
      LoadDC:=DllCall("GetWindowDC",UInt,guiid)
      DllCall("StretchBlt",UInt,MemDC,Int,buttonx+(buttonw-imagew)/2,Int,buttony+(buttonh-imageh)/2,Int,imagew,Int,imageh,UInt,LoadDC,Int,0,Int,0,Int,guiw,Int,guih,UInt,0x00CC0020)
      Gui,2:Destroy
    }
  }
  Gui,1:Destroy

  VarSetCapacity(pwi,64,0)  ;windowinfo
  InsertInteger(64,pwi,0)   ;cbSize
  VarSetCapacity(pbmi,32,0) ;menubarinfo
  InsertInteger(32,pbmi,0)  ;cbSize
Return


PAINT:
;modified so it doesn't draw on borders
DllCall("GetWindowInfo",UInt,hwnd,Int,&pwi)

  rcWindow_left  :=ExtractInteger(pwi,4,True)
  rcWindow_top   :=ExtractInteger(pwi,8,True)
  rcWindow_right :=ExtractInteger(pwi,12,True)
  rcWindow_bottom:=ExtractInteger(pwi,16,True)
  rcClient_left  :=ExtractInteger(pwi,20,True)
  rcClient_top   :=ExtractInteger(pwi,24,True)
  rcClient_right :=ExtractInteger(pwi,28,True)
  rcClient_bottom:=ExtractInteger(pwi,32,True)
  cxWindowBorders:=ExtractInteger(pwi,48,True)
  cyWindowBorders:=ExtractInteger(pwi,52,True)

  toolbarx:=rcClient_left-rcWindow_left
  toolbary:=rcClient_top-buttonh-rcWindow_top
  toolbarw:=rcClient_right-rcClient_left
  toolbarh:=buttonh
  toolbartest:=rcClient_bottom-rcClient_top
  If (toolbartest=0)
    toolbarh:=0

  DllCall("GetMenuBarInfo",Int,hWnd,Int,0xFFFFFFFD,Int,0,Int,&pbmi)    ;idObject=OBJID_MENU

  rcBar_right :=ExtractInteger(pbmi,12,False)

  ScreenDC:=DllCall("GetWindowDC",UInt,hWnd)
  DllCall("StretchBlt",UInt,ScreenDC,Int,toolbarx,Int,toolbary,Int,toolbarw,Int,toolbarh,UInt,MemDC,Int,0,Int,(active-1)*buttonh,Int,toolbarw,Int,toolbarh,UInt,0x00CC0020)
  Return

STOP:
  DllCall("DeleteObject",UInt,MemBmp)
  DllCall("DeleteDC"    ,UInt,MemDC )

  Loop,Parse,ids,`,
  {
    hWnd:=A_LoopField
    hMenu:=DllCall("GetMenu",UInt,hWnd)
    IfWinExist,ahk_id %hWnd%
    {
      nPos:=DllCall("GetMenuItemCount",UInt,hMenu)-1
      If nPos>0
      {
        menuid:=DllCall("GetMenuItemID",UInt,hMenu,Int,nPos)

        uFlags:=0x0 ;MF_BYCOMMAND:=0x0 MF_BYPOSITION:=0x40
        DllCall("RemoveMenu",UInt,hMenu,UInt,menuid,UInt,uFlags)
        DllCall("DeleteMenu",UInt,hMenu,UInt,menuid,UInt,uFlags)
        DllCall("DrawMenuBar",UInt,hWnd)
      }
    }
    If (%hWnd%new=1)
    {
      DllCall("DestroyMenu",UInt,hMenu)
      DllCall("SetMenu",UInt,hWnd,UInt,0)
    }
  }
Return


ExtractInteger(ByRef pSource, pOffset = 0, pIsSigned = false, pSize = 4)
; pSource is a string (buffer) whose memory area contains a raw/binary integer at pOffset.
; The caller should pass true for pSigned to interpret the result as signed vs. unsigned.
; pSize is the size of PSource's integer in bytes (e.g. 4 bytes for a DWORD or Int).
; pSource must be ByRef to avoid corruption during the formal-to-actual copying process
; (since pSource might contain valid data beyond its first binary zero).
{
    Loop %pSize%  ; Build the integer by adding up its bytes.
        result += *(&pSource + pOffset + A_Index-1) << 8*(A_Index-1)
    if (!pIsSigned OR pSize > 4 OR result < 0x80000000)
        return result  ; Signed vs. unsigned doesn't matter in these cases.
    ; Otherwise, convert the value (now known to be 32-bit) to its signed counterpart:
    return -(0xFFFFFFFF - result + 1)
}

InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)
; The caller must ensure that pDest has sufficient capacity.  To preserve any existing contents in pDest,
; only pSize number of bytes starting at pOffset are altered in it.
{
    Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.
    DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1,"UChar", pInteger >> 8*(A_Index-1) & 0xFF)
}


INIREAD:
IfNotExist,%applicationname%.ini
{
ini=
(
[Settings]
buttonh=
buttonw=
imagew=16
imageh=16
)
FileAppend,%ini%,%applicationname%.ini
Gosub,HELP
}

IniRead,buttonw,%applicationname%.ini,Settings,buttonw
If (buttonw="" Or buttonw="Error")
  buttonw:=menuh
IniRead,buttonh,%applicationname%.ini,Settings,buttonh
If (buttonh="" Or buttonh="Error")
  buttonh:=menuh
IniRead,imagew,%applicationname%.ini,Settings,imagew
If (imagew="" Or imagew="Error")
  imagew:=16
IniRead,imageh,%applicationname%.ini,Settings,imageh
If (imageh="" Or imageh="Error")
  imageh:=16

Loop,Toolbars\*.ini
{
  toolbar:=A_Index
  filename=Toolbars\%A_LoopFileName%
  IniRead,%toolbar%class,%filename%,Settings,class
  IniRead,%toolbar%color,%filename%,Settings,color
  Loop
  {
    button:=A_Index
    IniRead,%toolbar%image%button%,%filename%,%button%,image
    If %toolbar%image%button%=Error
      Break
    IniRead,%toolbar%leftaction%button%,%filename%,%button%,leftaction
    IniRead,%toolbar%rightaction%button%,%filename%,%button%,rightaction
    IniRead,%toolbar%middleaction%button%,%filename%,%button%,middleaction
    IniRead,%toolbar%tip%button%,%filename%,%button%,tip
  }
  %toolbar%buttons:=button-1
}
toolbars:=toolbar
Return


TRAYMENU:
  Menu,Tray,NoStandard
  Menu,Tray,DeleteAll
  Menu,Tray,Add,%applicationname%,ABOUT
  Menu,Tray,Add,
  Menu,Tray,Default,%applicationname%
  Menu,Tray,Add,Show &Info...,SHOWINFO
  Menu,Tray,Add,&Settings...,SETTINGS
  Menu,Tray,Add,&About...,ABOUT
  Menu,Tray,Add,&Help...,HELP
  Menu,Tray,Add,E&xit,EXIT
  Menu,Tray,Tip,%applicationname%
Return


SHOWINFO:
  If showinfo=1
    showinfo=0
  Else
    showinfo=1
Return


SETTINGS:
  Run,%A_ScriptDir%
Return


HELP:
  Run,Barnacle.rtf
Return


ABOUT:
  Gui,Destroy
  Gui,Add,Picture,Icon1,%applicationname%.exe
  Gui,Font,Bold
  Gui,Add,Text,x+10 yp+10,%applicationname% v0.992
  Gui,Font
  Gui,Add,Text,xm,Add toolbars to your favorite programs.
  Gui,Add,Text,xm,- To find out more, choose Help in the tray menu.
  Gui,Add,Text,y+0,`t

  Gui,Add,Picture,xm Icon2,%applicationname%.exe
  Gui,Font,Bold
  Gui,Add,Text,x+10 yp+10,1 Hour Software by Skrommel
  Gui,Font
  Gui,Add,Text,xm,For more tools, information and donations, visit
  Gui,Font,CBlue Underline
  Gui,Add,Text,xm G1HOURSOFTWARE,www.1HourSoftware.com
  Gui,Font
  Gui,Add,Text,y+0,`t

  Gui,Add,Picture,xm Icon5,%applicationname%.exe
  Gui,Font,Bold
  Gui,Add,Text,x+10 yp+10,DonationCoder
  Gui,Font
  Gui,Add,Text,xm,Please support the DonationCoder community
  Gui,Font,CBlue Underline
  Gui,Add,Text,xm GDONATIONCODER,www.DonationCoder.com
  Gui,Font
  Gui,Add,Text,y+0,`t

  Gui,Add,Picture,xm Icon6,%applicationname%.exe
  Gui,Font,Bold
  Gui,Add,Text,x+10 yp+10,AutoHotkey
  Gui,Font
  Gui,Add,Text,xm,This program was made using AutoHotkey
  Gui,Font,CBlue Underline
  Gui,Add,Text,xm GAUTOHOTKEY,www.AutoHotkey.com
  Gui,Font
  Gui,Add,Text,y+0,`t

  Gui,Add,Button,GABOUTOK Default w75,&OK
  Gui,Show,,%applicationname% About

  hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND
  OnMessage(0x200,"WM_MOUSEMOVE")
Return

1HOURSOFTWARE:
  Run,http://www.1hoursoftware.com,,UseErrorLevel
Return

DONATIONCODER:
  Run,http://www.donationcoder.com,,UseErrorLevel
Return

AUTOHOTKEY:
  Run,http://www.autohotkey.com,,UseErrorLevel
Return

ABOUTOK:
  Gui,Destroy
  OnMessage(0x200,"")
  DllCall("DestroyCursor","Uint",hCur)
Return

WM_MOUSEMOVE(wParam,lParam)
{
  Global hCurs
  MouseGetPos,,,,ctrl
  If ctrl in Static9,Static14,Static19
    DllCall("SetCursor","UInt",hCurs)
  Return
}


EXIT:
Gosub,STOP
ExitApp

EDIT: i attached the manual
« Last Edit: October 24, 2016, 10:48:46 AM by tommmmm »

skwire

  • Global Moderator
  • Joined in 2005
  • *****
  • Posts: 4,664
    • View Profile
    • Donate to Member
Re: add buttons to an existing window
« Reply #1 on: October 24, 2016, 02:02:34 PM »
Hi, tommmmm, and welcome to the DonationCoder forums.

Also, i'm new here, this code is too complicated to understand, a simple example would be nice, just the gui and one button on notepad.

The executable version of Barnacle seems to work just fine on my Windows 7 system with a quick test of Notepad.  It was missing some icons on the toolbar but the functionality was there.  You could just use the EXE version and adjust the Notepad.ini as necessary for your needs.

tommmmm

  • Participant
  • Joined in 2016
  • *
  • default avatar
  • Posts: 2
    • View Profile
    • Donate to Member
Re: add buttons to an existing window
« Reply #2 on: October 25, 2016, 03:56:56 AM »
The executable version of Barnacle seems to work just fine on my Windows 7 system with a quick test of Notepad.  It was missing some icons on the toolbar but the functionality was there.  You could just use the EXE version and adjust the Notepad.ini as necessary for your needs.
Thx, yes, the .exe is working but the script not working with latest version of autohotkey

highend01

  • Supporting Member
  • Joined in 2011
  • **
  • Posts: 112
    • View Profile
    • Donate to Member