YMP
Joined: 23 Dec 2006 Posts: 418 Location: Russia
|
Posted: Tue Sep 08, 2009 8:22 am Post subject: |
|
|
It seems you can only change the height for all the headers at once, not individually. If I am not mistaken.
| Code: |
TCM_GETITEMRECT = 0x130A
TCM_SETITEMSIZE = 0x1329
Gui, Add, Tab, hwndTabID, General|View|Appearance|Settings
Gui, Show
Return
F11:: ; Retrieve the height.
VarSetCapacity(Rect, 16, 0)
SendMessage, TCM_GETITEMRECT, 0, &Rect,, ahk_id %TabID%
H := NumGet(Rect, 12) - NumGet(Rect, 4)
MsgBox, Height: %H%
Return
F12:: ; Change the height.
Height = 80
SendMessage, TCM_SETITEMSIZE, 0, Height << 16,, ahk_id %TabID%
Return
GuiClose:
ExitApp
|
|
|