ScriptHideNGName

From 40tude Dialog Wiki

This event script deletes the server name in the entries in the newsgroup list. If you want to show abbreviated newsgroup names you can set minimizegroupnames to true.

Please read the Painting script warning page before trying out this script.

program OnNewsgroupListPaint;

const minimizegroupnames=false;

function OnNewsgroupListPaint(PaintString:widestring;ColumnIndex:integer):widestring;
var i:integer;
    s:string;
begin
i:=pos(' (',paintstring);
if (i>0) and (copy(paintstring,1,6)<>'Inbox ') then
  begin
  s:=paintstring;
  delete(s,i,200);
  paintstring:=s;
  end;
if minimizegroupnames then
  begin
  i := pos('.', paintstring);
  s := '';
  while (i > 0) do
  begin
    s := s + copy(paintstring, 1, 1) + '.';
    paintstring := copy(paintstring, i+1, 1000);
    i := pos('.', paintstring);
  end;
  paintstring := s + paintstring;
  end;
result:=paintstring;
end;

begin
end.