FoldReferences

Donnerstag, den 04. Dezember 2008 um 22:27 Uhr Dietmar Vollmeier

Mit diesem Script kannst du dir die References im Header übersichtlich gefaltet darstellen lassen.
z.B.:

alt

Name und Funktion

Include	:	{$I _i_OBSavM_FoldReferences}
Funktion	:	FoldReferences (Message);

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

Program OnBeforeSavingMessage;

{$I _i_OBSavM_FoldReferences}

Procedure OnBeforeSavingMessage (
   Var   Message    : TStringlist;
   Const Servername : String;
   Const IsEmail    : Boolean
);

Begin
   If Message.Count = 0 Then Exit;

   FoldReferences (Message);

End;

Begin
End.