On Sun, 30 May 2021 09:05:08 +0200, Bernd Rose wrote:
> Manually highlighting messages by color usually is done with a dialog
> called from Message menu. This involves several steps and is probably
> too time-consuming for your needs.
Thank you for understanding the problem set Bernd, and thank you for the new
ColoredWatch.ds 40tudeDialog script to mark desired threads with custom
colors by pressing the Shift+W keyboard combination on selected headers.
To add to what you already wrote here's my ad hoc "documentation" so that
others who want to add this ColoredWatch feature can follow these steps
(and further improve upon them if needed or if desired).
Please let me know if I made any errors below or if I skipped any steps.
Program ColoredWatch;
// ColoredWatch by Bernd Rose May 30th, 2021
// Dialog Settings -> Scripting -> Scripting -> Custom scripts
// Scripting File -> New script -> ColoredWatch -> OK
Begin
ADo('Watch');
PostKey(82, false, false, false, false, false, false, false, false);
PostKey(66, false, true, false, false, false, false, false, false);
PostKey(89, false, false, false, false, false, false, false, false);
PostKey(65, false, true, false, false, false, false, false, false);
PostKey(79, false, true, false, false, false, false, false, false);
ADoLater('MessageProperties');
End.
Scripting Script -> Compile
Scripting File -> Save
Scripting Script -> Run
Scripting File -> Close
Dialog Settings -> Configure buttons/shortcuts
Commands Categories -> Scripts -> Commands -> ColoredWatch
Commands Shortcut -> Shift+W -> Close
Use model:
In the header pane select the header(s) you want to color different.
Press Shift+W to color the selected headers the default colors.
Default colors are red letters on a yellow highlight background.
If you don't want to "Watch", just press "Shift+W" again.
To undo either run this manually:
In the header pane right click on a header you want to revert back.
In Message Properties -> Set message color you can reset the colors.
Reset Foreground color back to black & Background color back to white.
Or create this script which will set fg text to Black & the bg to White:
Program ColoredWatchUndo;
Begin
ADo('Watch');
PostKey(82, false, false, false, false, false, false, false, false);
PostKey(66, false, true, false, false, false, false, false, false);
PostKey(88, false, false, false, false, false, false, false, false);
PostKey(65, false, true, false, false, false, false, false, false);
PostKey(79, false, true, false, false, false, false, false, false);
ADoLater('MessageProperties');
End.
To set the script for other colors just change the numbers.
For example for setting Red fg text on a White highlight bg:
Program ColoredWatch;
// ColoredWatch by Bernd Rose May 30th, 2021
Begin
ADo('Watch');
PostKey(82, false, false, false, false, false, false, false, false);
PostKey(66, false, true, false, false, false, false, false, false);
PostKey(88, false, false, false, false, false, false, false, false);
PostKey(65, false, true, false, false, false, false, false, false);
PostKey(79, false, true, false, false, false, false, false, false);
ADoLater('MessageProperties');
End.
While some colors (like red) are easy, others (like blue) are confusingly
tricky because to set Blue fg text on White you need to add an extra
"PostKey 66" line because the first "Postkey 66" will select black,
while the second "Postkey 66" will hit on blue.
Program ColoredWatch;
// ColoredWatch by Bernd Rose May 30th, 2021
Begin
ADo('Watch');
PostKey(66, false, false, false, false, false, false, false, false);
PostKey(66, false, false, false, false, false, false, false, false);
PostKey(66, false, true, false, false, false, false, false, false);
PostKey(88, false, false, false, false, false, false, false, false);
PostKey(65, false, true, false, false, false, false, false, false);
PostKey(79, false, true, false, false, false, false, false, false);
ADoLater('MessageProperties');
End.
Regards,
bill
--
Did you know trees poop?
Well, where do you think #2 pencils come from?
Sorry, thats was crappy. I'll leaf now.