FoldReferences

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.

Download

FoldReferences v.3.0.0
Dietmar Vollmeier Homepage 10.12.2008 1.37 KB 3971