AutoExpandThreadOnSingleLeftClick

From 40tude Dialog Wiki

Open threads by a single click

With this little script you are able to open closed threads with follow-ups by just one single left-click in the header-pane.

It would be nice if someone could extend it to close the last opened thread automatically on changing to another thread.

Installation

• Create a new script inside Message scripts
• Choose controll ARTICLELV and Message WM_LBUTTONDOWN
• Paste the script, compile and run

Warning

There is a small 'bug' inherited: Clicking the '+'-Tab on an unopened thread won't work anymore when utilizing this script, but therefore you can use the whole line to open a thread.

program ARTICLELV_WM_LBUTTONUP;

procedure ExpandGetAndCollapse ();
begin
  lockdisplay;
  try
    ADo ('ExpandThread');
  finally
  unlockdisplay;
  end;
 end;

procedure OnWMessage (var Msg : TMessage; var handled : boolean);
begin
  ExpandGetAndCollapse ();
  handled := false;
end;

begin
end.