MarkTopicStarter

Donnerstag, den 17. März 2011 um 00:00 Uhr Dietmar Vollmeier
Drucken

Mit diesem Script wird der TopicStarter im weiteren Threadverlauf hervorgehoben/markiert.
Farbwerte für die Hervorhebung kannst du z.B. mit dem Programm pkColorPicker ermitteln.

 

Wichtig:

 

Name und Funktion

Include : {$I _i_OXO_MarkTopicStarter}
Funktion : IsTopicStarter (From, MsgID, References, Groupkey);

 
Die Funktion liefert true (wahr), wenn es sich um einen TopicStarter handelt, oder false (falsch) zurück und kann damit direkt in eine Abfrage eingebunden werden.

 

Einbindung

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

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

Program OnXOver;

// DialogINI muß als erstes in der Liste der Include-Files stehen
{$I DialogINI}
// Weitere Include-Files
{$I _i_OXO_MarkTopicStarter}

Procedure OnXOver(Var XoverData : TXoverData);
Begin
  With XoverData Do
  Begin

    // MarkTopicStarter :: BEGIN
    If IsTopicStarter(From, MsgID, References, Groupkey) then
    Begin
      FColor := 536870912;      // Schriftfarbe (default)
      BColor := 11184895;       // Hintergrundfarbe (rosa)
      Score  := Score + 500;    // Score erhöhen
    End;
    // MarkTopicStarter :: END

  End;
End;

Begin
End.

 

Download

MarkTopicStarter v.1.0.0
Autor Dietmar Vollmeier Webseite Homepage Datum 17.03.2011 Dateigröße 1.32 KB  Download 2450

 

Zuletzt aktualisiert am Sonntag, den 18. September 2011 um 13:04 Uhr