BoxQuote

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

Dieses Script dient zum Erstellen von verschiedenen Text-Boxen.

Die Ausrichtung und die Formatierung des Titels können in den Optionen an die persönlichen Bedürfnisse angepaßt werden, ebenso alle Zeichen, aus der die Box erstellt wird.

alt

Anwendung

Beachte für dieses Script, daß du die richtigen Zeichensätze eingestellt hast!

Name und Funktion

Include	:	{$I _i_OBSendM_BoxQuote}
Funktion	:	BoxQuote (Message);

Einbindung

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

Program OnBeforeSendingMessage;

{$I _i_OBSendM_BoxQuote}

Function OnBeforeSendingMessage(
  Var   Message    : TStringlist;
  Const Servername : String;
  Const IsEmail    : Boolean
) : Boolean;

Begin
  
  BoxQuote (Message);

End;  // Function OnBeforeSendingMessage()

Begin
End.