Autohotkey在TC中的应用—包括TrayIcon的Alt-Tab问题
偶逛TC的wiki，才发现有脚本这一块，把喜欢的Autohotkey所有文章翻了一遍，找出几个自己喜欢的整理一下，可能是我孤陋寡闻，见笑了：）。也学习AHK是如何来控制TC的，以便以后DIY。
Autohotkey的应用请google一下，很简单的。
（http://chenqj.blogspot.com， qjchen）
1）让TC在trayicon的情况下ALT-TAB时不用再按enter，这个问题在TC论坛上也颇久了，G兄似乎也没有想去解决之。所以有如下ahk。
#Persistent
#SingleInstance force
#NoTrayIcon
SetTimer subTimer, 500
subTimer:
If WinActive( "ahk_class switchwin2" )
{
SendInput, {Enter}
}
Return
2）鼠标中键打开新的Tab（不一定很必要）
cm_OpenDirInNewTab := 3003
#IfWinActive ahk_class TTOTAL_CMD
$MButton::
MouseGetPos, , , , sControl
if (sControl != "TMyListBox1" and sControl != "TMyListBox2")
{
Send {MButton}
Return
}
Click
PostMessage 1075, %cm_OpenDirInNewTab%, 0
Return
3)通过热键调整splitter（就是用键盘调用窗口分隔条，可能是我愚笨，没有在TC的command中找到这个键盘快捷键）
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Popup_the_splitter_menu
; Win-G (Total Commander: splitter menu)
~#g::
if not WinActive( "ahk_class TTOTAL_CMD" )
Return
WinGet sf_aControls, ControlList
Loop Parse, sf_aControls, `n
{
StringLeft sf_sTemp, A_LoopField, 6
if (sf_sTemp = "TPanel")
{
ControlGetPos Cx,Cy,Cw,Ch, %A_LoopField%
if (Cw < 16)
{
ControlClick %A_LoopField%, A,,RIGHT
Break
}
}
}
Return
4）TC Fav Menu
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_TC_Fav_Menu
文件较大
这个可以把TC的收藏夹也作为可以为资源管理器所用，也可以作为Open和save时候所用
5）在TC的标题栏里面显示文件路径（这个是用来开心的吧:P，自己加点什么有趣的信息上去TITLE）
#Persistent
SetTimer subTimer, 250
subTimer:
if WinActive( "ahk_class TTOTAL_CMD" )
{
ControlGetText sPath, TMyPanel2
StringMid sPath, sPath, 1, StrLen(sPath) -1
WinGetTitle sWindowTitle
if ( sWindowTitle != sPath )
WinSetTitle %sPath%
}
Return
6）在进度条上显示进度的已用时间，剩余时间，总时间，和开始结束时间
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Show_elapsed_/_remaining_/_total_/_start_/_finish_times_in_title_bar_of_progress_dialogs
代码颇长。
在进度条激活的情况下，按shift键就可以了。
7）给工具栏图标Toolbar Icon增加弹出菜单，可以多项启动参数。
http://www.ghisler.ch/wiki/index.php/AutoHotkey:_Popup_menu_for_button_bar_or_F4
8）最大化窗口的情况下，双击窗口的最左边或者最右边将去到相应的根目录
RegRead, DoubleClickSpeed, HKEY_CURRENT_USER, Control Panel\Mouse, DoubleClickSpeed
If DoubleClickSpeed =
DoubleClickSpeed = 500
~LButton::
IfWinActive, ahk_class TTOTAL_CMD
{
If A_TimeSinceThisHotkey >= %DoubleClickSpeed%
ClickCount = 0
MouseGetPos, xcoordinate
If xcoordinate = 4
{
ClickCount++
PostMessage 1075, 4001, , , ahk_class TTOTAL_CMD
}
If (xcoordinate = A_ScreenWidth+3)
{
ClickCount++
PostMessage 1075, 4002, , , ahk_class TTOTAL_CMD
}
If ClickCount = 2
{
PostMessage 1075, 2002, , , ahk_class TTOTAL_CMD
ClickCount = 0
}
}
Return
有空把其他几个脚本的也翻一遍，看看有没有什么好的。
2007年8月11日星期六
2007年8月3日星期五
关于制作多张图片的拼接图
关于制作多张图片的拼接图
问题提出：有100多张图片，想制作比较满意的索引图（大致可以看清，但不能太清晰以防被直接盗用）。
photoshop肯定是可以做到，有些麻烦，方法可能很多，我用了三种。
1）picasa的工具--创建--图片拼接
缺点：可选项太少，大小无法控制。
2）直接用图片浏览软件看，滚屏抓图
这个是我当时采用的方法，用Totalcmd看缩略图，可以控制图片预览大小，背景，行列数。其他软件均可做到。而后滚屏抓图。
3）Picture Merge Genius。
所谓术业有专攻，它的功能就是拼图，而且只是横竖拼图。容易用，也可以方便调整几个图片的相对位置，效果如下。
问题提出：有100多张图片，想制作比较满意的索引图（大致可以看清，但不能太清晰以防被直接盗用）。
photoshop肯定是可以做到，有些麻烦，方法可能很多，我用了三种。
1）picasa的工具--创建--图片拼接
缺点：可选项太少，大小无法控制。
2）直接用图片浏览软件看，滚屏抓图
这个是我当时采用的方法，用Totalcmd看缩略图，可以控制图片预览大小，背景，行列数。其他软件均可做到。而后滚屏抓图。
3）Picture Merge Genius。
所谓术业有专攻，它的功能就是拼图，而且只是横竖拼图。容易用，也可以方便调整几个图片的相对位置，效果如下。
2007年8月1日星期三
Joseflin的100多道几何作图题目
在Mjtd的几何算法板块，Joseflin版主热心贡献的大量题目，无疑是该版的支柱，相信每一个对画图有浓厚兴趣的朋友都希望能全部尝试一遍，我完成了一小部分，还有不少没有完成，而且经常忘记题目是在挑战几之中。
贸贸然的将Joseflin版主的1~100号题目做成小图索引，并配上链接，在经过版主的允许之后，发在了Mjtd版，也在这里备份一下。
Artrage2.5 是个很好玩的绘图软件
似乎2.5多了一些特性。
Artrage除了细腻的笔触之外，它的stencil（镂空模板），tracing（底图模仿），ref（参考画）等都有着和实际绘画接近的概念。
唯美的界面也让人心怡。
小侄子经常用它乱涂乱画。
Artrage除了细腻的笔触之外，它的stencil（镂空模板），tracing（底图模仿），ref（参考画）等都有着和实际绘画接近的概念。
唯美的界面也让人心怡。
小侄子经常用它乱涂乱画。
如何批量修改Acad中标注的字体高度
如何批量修改Acad中标注的字体高度
方法1：
用qselect命令选取所需要的标注
在properties（属性）窗口统一修改高度
方法2
打dim命令，键入ov，要求输入系统变量名称，键入dimtxt，给出新高度，选取标注。
方法2其实是更加古老的方法的，至少R14是可以用的。
看来Acad本身的命令还是很丰富的，至少像用circle的3p tan tan tan方法来画阿波罗尼斯圆的我就没有掌握的很好。
方法1：
用qselect命令选取所需要的标注
在properties（属性）窗口统一修改高度
方法2
打dim命令，键入ov，要求输入系统变量名称，键入dimtxt，给出新高度，选取标注。
方法2其实是更加古老的方法的，至少R14是可以用的。
看来Acad本身的命令还是很丰富的，至少像用circle的3p tan tan tan方法来画阿波罗尼斯圆的我就没有掌握的很好。
订阅：
博文 (Atom)
