Index: freexp/xp-d.rq =================================================================== RCS file: /server/cvs/freexp/xp-d.rq,v retrieving revision 1.69 retrieving revision 1.70 diff -u -r1.69 -r1.70 --- freexp/xp-d.rq 17 Jan 2006 09:57:15 -0000 1.69 +++ freexp/xp-d.rq 7 Feb 2006 11:17:35 -0000 1.70 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2006 FreeXP, http://www.freexp.de -# $Id: xp-d.rq,v 1.69 2006/01/17 09:57:15 mw Exp $ +# $Id: xp-d.rq,v 1.70 2006/02/07 11:17:35 mw Exp $ # Online-Hilfe, Tastenmakros 1 XP.HLP @@ -2838,7 +2838,7 @@ - 2719 private Nachricht + 2720 -1 ^Alles,^Ungelesen,^Neues,^Heute,^Reorg.,^Datum/Zeit +1 ^Alles,^Ungelesen,^Neues,^Heute,^Reorg.,^Datum/Zeit,^Gestern 2 ,^Sichern # 2720,3 darf nicht mit "N" beginnen! 3 Lesen ab Datum: Index: freexp/xp-e.rq =================================================================== RCS file: /server/cvs/freexp/xp-e.rq,v retrieving revision 1.108 retrieving revision 1.109 diff -u -r1.108 -r1.109 --- freexp/xp-e.rq 17 Jan 2006 09:57:15 -0000 1.108 +++ freexp/xp-e.rq 7 Feb 2006 11:17:35 -0000 1.109 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2006 FreeXP, http://www.freexp.de -# $Id: xp-e.rq,v 1.108 2006/01/17 09:57:15 mw Exp $ +# $Id: xp-e.rq,v 1.109 2006/02/07 11:17:35 mw Exp $ # Online Help File, Key Macros 1 XP-E.HLP @@ -2798,7 +2798,7 @@ - 2719 Private message + 2720 -1 ^All,^Unread,^New,^Today,^Re-Org,^Date/Time +1 ^All,^Unread,^New,^Today,^Re-Org,^Date/Time,^Yesterday 2 ,^Save 2720,3 must not start with "N"! 3 Read from date: Index: freexp/xp4e.pas =================================================================== RCS file: /server/cvs/freexp/xp4e.pas,v retrieving revision 1.30 retrieving revision 1.32 diff -u -r1.30 -r1.32 --- freexp/xp4e.pas 2 Jan 2006 12:28:51 -0000 1.30 +++ freexp/xp4e.pas 7 Feb 2006 11:54:11 -0000 1.32 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp4e.pas,v 1.30 2006/01/02 12:28:51 mw Exp $ } +{ $Id: xp4e.pas,v 1.32 2006/02/07 11:54:11 mw Exp $ } { Overlay-Unit mit Editierroutinen u.a. } @@ -1739,7 +1739,7 @@ sich:=iifs(readmode>=2,getres2(2720,2),''); { ',^Sichern' } x:=iif(mauskey,40,20); y:=iif(mauskey,4,10+(screenlines-25)div 2); - n:=MiniSel(x,y,'',getres2(2720,1)+sich, { '^Alles,^Ungelesen,^Neues,^Heute,^Reorg.,^Datum/Zeit' } + n:=MiniSel(x,y,'',getres2(2720,1)+sich, { '^Alles,^Ungelesen,^Neues,^Heute,^Reorg.,^Datum/Zeit,^Gestern' } -(readmode+1)); if (n>0) and ((readmode>=4) or (n<>readmode+1)) then begin showtime:=false; @@ -1764,6 +1764,9 @@ end; end; 7 : begin + readdate:=ixdat(left(Zdate,6)+'0000')-32768; + end; + 8 : begin write_lastcall(longdat(readdate)); brk:=true; { Readmode-Einstellung nicht ändern } end; @@ -2520,6 +2523,12 @@ end. { $Log: xp4e.pas,v $ + Revision 1.32 2006/02/07 11:54:11 mw + MW: - Bugfix letzter Commit + + Revision 1.31 2006/02/07 11:17:35 mw + MW: - Neuer Lesemodus "Gestern" + Revision 1.30 2006/01/02 12:28:51 mw MW: - Frohes neues Jahr 2006 Index: freexp/xp5.pas =================================================================== RCS file: /server/cvs/freexp/xp5.pas,v retrieving revision 1.62 retrieving revision 1.64 diff -u -r1.62 -r1.64 --- freexp/xp5.pas 17 Jan 2006 09:57:15 -0000 1.62 +++ freexp/xp5.pas 7 Feb 2006 14:58:32 -0000 1.64 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp5.pas,v 1.62 2006/01/17 09:57:15 mw Exp $ } +{ $Id: xp5.pas,v 1.64 2006/02/07 14:58:32 mw Exp $ } { CrossPoint - Utilities } @@ -513,7 +513,7 @@ msgbox(70,iif(win,18,17),getres2(rnr,1),x,y); attrtxt(col.colmboxhigh); moff; - wrt(x+4,y+2,xp_xp+' '+verstr+betastr); + wrt(x+4,y+2,xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ("'+rufstr+'")','')); {$IFDEF Snapshot} wrt(x+44,y+2,'Snapshot: '+compiletime); {$ENDIF} @@ -1167,6 +1167,13 @@ { $Log: xp5.pas,v $ + Revision 1.64 2006/02/07 14:58:32 mw + MW: - Ein Rufname steht in Klammern und Anführungszeichen + + Revision 1.63 2006/02/07 09:13:07 mw + MW: - Rufname unter X/S/S + - Hinweis zur Länge der XP-Werbesignatur in XPGLOBAL + Revision 1.62 2006/01/17 09:57:15 mw MW: - Betriebsystemerkennung in X/S/S überarbeitet und verbessert. Es wird jetzt auch Windows Server 2003 und Windows Vista als Index: freexp/xp6.pas =================================================================== RCS file: /server/cvs/freexp/xp6.pas,v retrieving revision 1.53 retrieving revision 1.54 diff -u -r1.53 -r1.54 --- freexp/xp6.pas 5 Feb 2006 15:03:13 -0000 1.53 +++ freexp/xp6.pas 7 Feb 2006 14:58:32 -0000 1.54 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp6.pas,v 1.53 2006/02/05 15:03:13 mw Exp $ } +{ $Id: xp6.pas,v 1.54 2006/02/07 14:58:32 mw Exp $ } { MH: PGP-Sig auch in RFC, Zurück Button f. alle Netztypen } @@ -2088,7 +2088,7 @@ hdp^.org_xref:=_orgref; hdp^.replypath:=_replypath; hdp^.typ:=iifs(binary,'B','T'); - hdp^.programm:=xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ('+rufstr+')','')+ovrstr + hdp^.programm:=xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ("'+rufstr+'")','')+ovrstr {$IFDEF Snapshot} + ' @ ' + compiletime {$ENDIF} +krk(regstr)+'/' +iifs(is_freereg,getres2(361,60),registriert.tc+strs(registriert.nr)); @@ -2569,6 +2569,9 @@ end. { $Log: xp6.pas,v $ + Revision 1.54 2006/02/07 14:58:32 mw + MW: - Ein Rufname steht in Klammern und Anführungszeichen + Revision 1.53 2006/02/05 15:03:13 mw MW: - Unterstützung für Rufnamen verbessert: Es gibt jetzt eine extra Konstante, die Index: freexp/xp6s.inc =================================================================== RCS file: /server/cvs/freexp/xp6s.inc,v retrieving revision 1.26 retrieving revision 1.27 diff -u -r1.26 -r1.27 --- freexp/xp6s.inc 5 Feb 2006 16:08:51 -0000 1.26 +++ freexp/xp6s.inc 7 Feb 2006 14:44:20 -0000 1.27 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp6s.inc,v 1.26 2006/02/05 16:08:51 mw Exp $ } +{ $Id: xp6s.inc,v 1.27 2006/02/07 14:44:20 mw Exp $ } { Unterroutinen für XP6.PAS } @@ -193,7 +193,7 @@ begin XP_ID:='## '+xp_xp+' '+verstr+betastr+ ovrstr+iifs(is_freereg,'',krk(regstr))+' ##'; - XP_ID:=Copy(XP_ID,0,78)+#13#10; + XP_ID:=left(XP_ID,sizeof(XP_ID)-3)+#13#10; end; function orishuffle(fn:pathstr):string; @@ -1199,6 +1199,9 @@ end; { $Log: xp6s.inc,v $ + Revision 1.27 2006/02/07 14:44:20 mw + MY: - Verbesserung der Absicherung der XP-Werbesignatur + Revision 1.26 2006/02/05 16:08:51 mw MW: - Noch ein Hotfix gegen den Werbe-Signaturfehler Index: freexp/xpglobal.pas =================================================================== RCS file: /server/cvs/freexp/xpglobal.pas,v retrieving revision 1.46 retrieving revision 1.47 diff -u -r1.46 -r1.47 --- freexp/xpglobal.pas 5 Feb 2006 15:03:13 -0000 1.46 +++ freexp/xpglobal.pas 7 Feb 2006 09:13:07 -0000 1.47 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xpglobal.pas,v 1.46 2006/02/05 15:03:13 mw Exp $ } +{ $Id: xpglobal.pas,v 1.47 2006/02/07 09:13:07 mw Exp $ } { Globale Konstanten/Variablen (FreeXP) und Tools } @@ -19,6 +19,9 @@ interface +{ Beim Vergeben eines neuartigen Betastr darauf achten, das die } +{ XP-Werbesignatur nur 78 Zeichen lang sein darf. XP6.PAS, XP6S.INC } + const verstr = 'v3.45'; { Versionsnr. - steht nur an dieser Stelle } betastr = ' alpha 1'; { '' bei Release-Versionen } @@ -128,6 +131,10 @@ { $Log: xpglobal.pas,v $ + Revision 1.47 2006/02/07 09:13:07 mw + MW: - Rufname unter X/S/S + - Hinweis zur Länge der XP-Werbesignatur in XPGLOBAL + Revision 1.46 2006/02/05 15:03:13 mw MW: - Unterstützung für Rufnamen verbessert: Es gibt jetzt eine extra Konstante, die Index: freexp/xpreg.pas =================================================================== RCS file: /server/cvs/freexp/xpreg.pas,v retrieving revision 1.18 retrieving revision 1.19 diff -u -r1.18 -r1.19 --- freexp/xpreg.pas 5 Feb 2006 15:03:12 -0000 1.18 +++ freexp/xpreg.pas 7 Feb 2006 14:58:32 -0000 1.19 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xpreg.pas,v 1.18 2006/02/05 15:03:12 mw Exp $ } +{ $Id: xpreg.pas,v 1.19 2006/02/07 14:58:32 mw Exp $ } { Registrierung } @@ -236,7 +236,7 @@ DiaWidth : byte; begin addy := 1; - ver := xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ('+rufstr+')','')+ovrstr; + ver := xp_xp+' '+verstr+betastr+iifs(rufstr<>'',' ("'+rufstr+'")','')+ovrstr; {$IFDEF Snapshot} inc(addy); {$ENDIF} @@ -283,6 +283,9 @@ end. { $Log: xpreg.pas,v $ + Revision 1.19 2006/02/07 14:58:32 mw + MW: - Ein Rufname steht in Klammern und Anführungszeichen + Revision 1.18 2006/02/05 15:03:12 mw MW: - Unterstützung für Rufnamen verbessert: Es gibt jetzt eine extra Konstante, die Index: freexp/xpx.pas =================================================================== RCS file: /server/cvs/freexp/xpx.pas,v retrieving revision 1.37 retrieving revision 1.38 diff -u -r1.37 -r1.38 --- freexp/xpx.pas 5 Feb 2006 15:03:13 -0000 1.37 +++ freexp/xpx.pas 7 Feb 2006 14:58:32 -0000 1.38 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xpx.pas,v 1.37 2006/02/05 15:03:13 mw Exp $ } +{ $Id: xpx.pas,v 1.38 2006/02/07 14:58:32 mw Exp $ } { CrossPoint - First Unit } @@ -257,7 +257,7 @@ writeln(t); write(t,xp_xp); if (xp_xp='CrossPoint') then write(t,'(R)'); - writeln(t,' ',verstr,betastr,iifs(rufstr<>'',' ('+rufstr+')',''),ovrstr); + writeln(t,' ',verstr,betastr,iifs(rufstr<>'',' ("'+rufstr+'")',''),ovrstr); writeln(t,x_copyright,' by ',author_name,' (',author_mail,')'); writeln(t); if _deutsch then @@ -361,6 +361,9 @@ { $Log: xpx.pas,v $ + Revision 1.38 2006/02/07 14:58:32 mw + MW: - Ein Rufname steht in Klammern und Anführungszeichen + Revision 1.37 2006/02/05 15:03:13 mw MW: - Unterstützung für Rufnamen verbessert: Es gibt jetzt eine extra Konstante, die
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
