Navigating and reading headers while keeping a fully zoomed window

From 40tude Dialog Wiki

This two scripts allow you to navigate and read messages keeping always a full zoomed window, switching from the headers panel to the article panel and vice versa with a single keystroke, the Enter key.

When you are in a zoomed headers panel, hitting the Enter key on a message gives you:

a) the zoomed body if you are online or you've already got the body
b) a mark for retrieval if you are offline

When you are in the zoomed body panel, hitting the Enter key brings you back to the zoomed headers panel, where you can navigate as usual among the headers and then hit again the Enter key to read the zoomed bodies.

Authors: Maria Luisa C and Alan Ford

tested on Dialog 2.0.10

1st script

In the script editor go to the tab of the Windows Message scripts, choose New and select ARTICLELV as Control and WM_KEYDOWN as Message, then copy and paste this:

  program ARTICLELV_WM_KEYDOWN;

  procedure OnWMessage(var Msg:TMessage;var handled:boolean);
  begin

   if (Msg.WParam=13) then
    if (AChecked('OnlineMode')) then
    begin
     ADo('ExpandThread');
     ADo('GetSelectedMessageBodies');
     ADo('MarkRead');
    end
    else if (AEnabled('FollowUpToUsenetMessage')) then
     ADo('ArticlePane')
    else
    begin
     ADo('ExpandThread');
     ADo('Mark');
     handled:=true;
    end
   else
    handled:=false;

  end;
  begin
  end.

Compile and save.


2nd script

Choose New again and select BODYEDIT as Control and WM_KEYDOWN as Message, then copy and paste this:

 program BODYEDIT_WM_KEYDOWN;

 procedure OnWMessage(var Msg:TMessage;var handled:boolean);
 begin
  if (Msg.WParam=13) then
  begin
   ADo('HeaderlistPane');
   handled:=true;
  end
  else
   handled:=false;
 end;

 begin
 end.

Compile and save.