AutoHotkey: Mark Important Files Permanently: Difference between revisions

From TotalcmdWiki
Jump to navigation Jump to search
(Added category AutoHotkey scripts)
(did not work with TC 8.50 / AHK 1.1.15.04 - control name changed to 'Edit1', also moved variable-declaration inside the #IfWinActive)
Line 8: Line 8:




Marker := "*** "
#IfWinActive, ahk_class TTOTAL_CMD
^+z::
#IfWinActive, ahk_class TTOTAL_CMD
PostMessage, 1075, 2700
^+z::
WinWaitActive, ahk_class TCmtEditForm, , 1
PostMessage, 1075, 2700
If Errorlevel
WinWaitActive, ahk_class TCmtEditForm, , 1
  Return
If Errorlevel
Marker := "*** "
  Return
ControlGetText, Comment, Edit1
ControlGetText, Comment, TMemo1
StringLeft, Check, Comment, 4
StringLeft, Check, Comment, 4
If Check <> %Marker%
If Check <> %Marker%
  Comment := Marker Comment
  Comment := Marker Comment
Else
Else
  StringTrimLeft, Comment, Comment, 4
  StringTrimLeft, Comment, Comment, 4
ControlSetText, Edit1, %Comment%
ControlSetText, TMemo1, %Comment%
SendInput, {F2}
SendInput, {F2}
Return
Return


{{translated|AutoHotkey: Wichtige Dateien dauerhaft markieren|AutoHotkey}}
{{translated|AutoHotkey: Wichtige Dateien dauerhaft markieren|AutoHotkey}}
[[Category:AutoHotkey scripts|Mark Important Files Permanently]]
[[Category:AutoHotkey scripts|Mark Important Files Permanently]]

Revision as of 13:56, 28 October 2014

Pressing Ctrl+Shift+Z marks/unmarks a file/folder by adding a string – defined in the variable Marker – to its comment (descript.ion file).

In order to colour these marked files and folders, have a look here:
Can_I_display_files_with_special_attributes,_directories_etc._in_a_different_color?

Switch to the Plugins tab and adjust the fields to look like that:
tc -> comment -> contains -> ***


  1. IfWinActive, ahk_class TTOTAL_CMD

^+z:: PostMessage, 1075, 2700 WinWaitActive, ahk_class TCmtEditForm, , 1 If Errorlevel

 Return

Marker := "*** " ControlGetText, Comment, Edit1 StringLeft, Check, Comment, 4 If Check <> %Marker%

 Comment := Marker Comment

Else

 StringTrimLeft, Comment, Comment, 4

ControlSetText, Edit1, %Comment% SendInput, {F2} Return


Back to AutoHotkey