Servername nur in NG-Namen ausklinken

24/08/2007 - 08:39 von Joachim Reiter | Report spam
Hallo Leutz,

ich habe im NG-Pane der Gruppenliste als Anzeige "%Newsgroup% &Server%"
stehen, weil ich 3 Identitaeten benutze - So sehe ich bei den Inboxes
gleich dahinter, welche Inbox zu welcher Identitaet gehoert (...und das ist
auch gut so [tm]).

Nachteil... Bei den NG-Namen wird ebenfalls der Server, bei mir _Hamster_
mit angezeigt, was ich aber nicht moechte!

Im Scriptarchiv ist zwar ein aelteres _OnNewsgroupListPaint_ -Script, aber
das erfuellt bei mir nicht seinen Zweck (wobei mir ein _Include_ -Script eh
lieber waere zu evtl. spaeterem Ausbau, was allerdings im Archiv nicht zur
Verfuegung steht.

Kennt sonst jemand von Euch evtl. einen anderen Weg, der an mir vorbei
gegangen sein koennte? :-)

TIA und Gruss... Joachim
,- [Mach Deinen Windows-PC sicher - Jetzt!] .
| Deinstalliere den ganzen Müll und nutze endlich und wenigstens |
| einmal in deinem Leben ein vernünftiges OS!!! ;-) |
'-'
 

Lesen sie die antworten

#1 Thomas Barghahn
24/08/2007 - 19:19 | Warnen spam
*Joachim Reiter* meinte:

Hallo Leutz,

ich habe im NG-Pane der Gruppenliste als Anzeige "%Newsgroup% &Server%"
stehen, weil ich 3 Identitaeten benutze - So sehe ich bei den Inboxes
gleich dahinter, welche Inbox zu welcher Identitaet gehoert (...und das ist
auch gut so [tm]).



Ja, das kann ich mir vorstellen. :-)

Nachteil... Bei den NG-Namen wird ebenfalls der Server, bei mir _Hamster_
mit angezeigt, was ich aber nicht moechte!



Ja - ist ja auch irgendwie làstig. ;-)

Im Scriptarchiv ist zwar ein aelteres _OnNewsgroupListPaint_ -Script, ...


... welches genau deinen Wünschen entspricht.

Um genau zu sein - ich meine das Script von Andreas Loch, welches hier
zu finden ist:
http://www.40tude.com/dialog/wiki/i...upsFolders

Kopiere dieses Script bitte in das Ereignisscript "OnNewsgroupListPaint"
und àndere dort bitte folgende Eintràge:

ShortenGroups=false;
KeepTwoStrings=false;
RemoveServer=true;

Weiterhin sind in der Funktion RenameGroups einige Zeilen
auszukommentieren. Bitte exakt so verfahren(!) - die Zeile "Inbox..."
bleibt also so erhalten. Warum(?) - damit sich das Programm kompilieren
làsst. :-)

function RenameGroups(paintstring:widestring):widestring;
begin
case paintstring of
// list of groups and folders that will be renamed
// 'alt.sysadmin.recovery' : result:='asr';
'Inbox (anchedo)' : result:='Incoming mail';
// 'de.admin.news.announce' : result:='dana';
// 'de.admin.news.groups' : result:='dang';
// 'de.alt.gruppenkasper' : result:='dag°';
// 'de.alt.netdigest' : result:='dan';
// 'de.alt.sysadmin.recovery': result:='dasr';
end;
end;

Jetzt noch kompilieren, evt. Dialog neu starten und staunen! :-)

Warum kein Include-File?
Ein PaintString ist sehr sensibel! ;-)

Freundliche Grüße
Thomas Barghahn
,- [Textbox in Signatur] --.
| Hier steht ein ganz wichtiger Text, welchen man unbedingt lesen muss! |
| Liest man ihn nicht, so hat man aber auch nichts verpasst. ;-) |
'--'

Ähnliche fragen