Body laden und andere Threads schließen

Beim Klicken auf einen Artikel in der Header-Pane werden alle übrigen Threads eingeklappt, nur der aktive Thread bleibt/wird geöffnet und der Body des aktuellen Beitrags wird geladen.

Vorgehensweise

Erstelle dir, falls noch nicht vorhanden, folgendes Meldungsscript, füge untenstehenden Code ein und kompilliere das Ganze.

ARTICLELV_WM_LBUTTONUP

Program ARTICLELV_WM_LBUTTONUP;

Procedure OnWMessage(Var Msg : TMessage; Var handled : boolean);
Begin
   LockDisplay;
   Try
      ADo('ClearMarkerList');
      ADo('AddMarker');
      ADo('CollapseAllThreads');
      ADo('GoToPreviousMarker');
      ADo('ExpandThread');
      ADo('GetSelectedMessageBodies');
   Finally
      UnlockDisplay;
   End;
   handled := False;
End;

Begin
End.