(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern
Home » Scripte » Ereignisscripte » OnBeforeSendingMessage » AddXFupWarning

AddXFupWarning

E-Mail Drucken PDF

Mit diesem Script wird ein Hinweis auf ein XPost oder/und Followup-To am Ende deines Beitrags eingefügt.

Dieses Script bietet einige unterschiedliche Einstellmöglichkeiten, die dir ermöglichen, den Hinweis ganz auf deine Bedürfnisse anzupassen. Hier ein Auszug der wichtigsten Einstellungen aus dem Script selber:

// Maximale Anzahl der Gruppen, die angezeigt werden sollen.
// Wird die Anzahl überschritten, folgt der Hinweis aus XMaxText.
// Setze XMax auf 1, wenn du nur den Hinweistext haben möchtest.
XMax := 2;

// Dieser Text wird angezeigt, wenn die Anzahl der Gruppen die Einstellung
// unter XMax überschreitet.
// Verwende den Platzhalter %anz für die Anzahl der Gruppen.
XMaxText := 'über %anz Gruppen';

// Die Gruppen bei XPost untereinander auflisten?
// Das geschieht auch automatisch, wenn die Gruppenliste die maximale
// Zeilenbreite überschreitet und die Einstellung auf 'False' steht.
XMultiLine := False;

// Gruppennamen als Link darstellen?
MakeLinks := True;

// Maximale Zeilenbreite einstellen.
// Wird ein Wert kleiner 40 Zeichen eingestellt, dann greift das Script auf die
// Einstellungen in 40tude Dialog zurück.
// Wird ein Wert größer 80 Zeichen eingestellt, dann stellt das Script diesen
// zurück auf 80 Zeichen.
WrapAt := 72;

 

Name und Funktion

Include : {$I _i_OBSendM_AddXFupWarning}
Funktion : AddXFupWarning (Message);

 

Einbindung

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

Das Script funktioniert nur in Verbindung mit dem Script "Pathfinder"!

Program OnBeforeSendingMessage;

// DialogINI muß als erstes in die Liste der Include-Files eingebunden werden
{$I DialogINI}
// Weitere Include-Files
{$I _i_OBSendM_AddXFupWarning}

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

Begin
   // Nur bei Usenet-Postings
   If Not IsEmail Then AddXFupWarning(Message);

End;  // Function OnBeforeSendingMessage()

Begin
End.

 

Download

AddXFupWarning v.2.2.1
Autor Dietmar Vollmeier Webseite Homepage Datum 04.01.2009 Dateigröße 1.99 KB  Download 1698

 

Zuletzt aktualisiert am Sonntag, den 18. September 2011 um 12:56 Uhr