Index: freexp/xp4o2.pas =================================================================== RCS file: /server/cvs/freexp/xp4o2.pas,v retrieving revision 1.15 retrieving revision 1.16 diff -u -r1.15 -r1.16 --- freexp/xp4o2.pas 1 Jan 2005 11:16:30 -0000 1.15 +++ freexp/xp4o2.pas 21 Aug 2005 05:52:55 -0000 1.16 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp4o2.pas,v 1.15 2005/01/01 11:16:30 mw Exp $ } +{ $Id: xp4o2.pas,v 1.16 2005/08/21 05:52:55 mw Exp $ } { CrossPoint: DBs packen, Kommentarbaum u.a. } @@ -558,6 +558,7 @@ var f: File; FSize: Word; + zwiref: string; { HJT 15.08.2005 } begin if ReCount(betr)=0 then; rmessage(475); { 'Kommentarbaum einlesen...' } @@ -575,9 +576,13 @@ bez:=GetBezug(hdp^.ref); if bez<>0 then dbGo(mbase,bez) - else - nullid:=MsgidIndex(hdp^.ref); - end; + else begin + zwiref := hdp^.ref; + if left(zwiref,1)='<' then delfirst(zwiref); + if right(zwiref,1)='>' then dellast(zwiref); + nullid:=MsgidIndex(zwiref); + end; + end; inc(n); until (n=emax) or (bez=0); dispose(hdp); @@ -629,6 +634,7 @@ dat2 : longint; mi : shortint; vor : boolean; + zwiref : string; { HJT 15.08.2005 } begin new(hdp); mi:=dbGetIndex(bezbase); @@ -636,7 +642,13 @@ BezSeek:=false; ReadHeader(hdp^,hds,true); if (hds>1) and (hdp^.ref<>'') then begin - ref:=MsgidIndex(hdp^.ref); + { HJT 15.08.2005 start } + zwiref := hdp^.ref; + if left(zwiref,1)='<' then delfirst(zwiref); + if right(zwiref,1)='>' then dellast(zwiref); + ref:=MsgidIndex(zwiref); + { ref:=MsgidIndex(hdp^.ref); } + { HJT 15.08.2005 end } dbSeek(bezbase,beiRef,dbLongStr(ref)); if dbFound then begin vor:=true; @@ -927,6 +939,11 @@ end. { $Log: xp4o2.pas,v $ + Revision 1.16 2005/08/21 05:52:55 mw + HJT: - Verbesserung der Bezugsverkettung: + Bei Refernences werden jetzt die begrenzenden spitzen Klammern + entfernt. + Revision 1.15 2005/01/01 11:16:30 mw MW: - Willkommen im Jahr 2005 Index: freexp/xp9.pas =================================================================== RCS file: /server/cvs/freexp/xp9.pas,v retrieving revision 1.26 retrieving revision 1.27 diff -u -r1.26 -r1.27 --- freexp/xp9.pas 9 Apr 2005 15:55:52 -0000 1.26 +++ freexp/xp9.pas 21 Aug 2005 10:47:01 -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: xp9.pas,v 1.26 2005/04/09 15:55:52 mw Exp $ } +{ $Id: xp9.pas,v 1.27 2005/08/21 10:47:01 mw Exp $ } { CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) } @@ -152,10 +152,7 @@ function UniSel(typ:byte; edit:boolean; default:string):string; const maxgl = 40; dsellen = 20; -var d : DB; - p0,p,gl : integer; - t : taste; - drec : array[1..maxgl] of longint; +var t : taste; x,y : byte; width : byte; buttons : string[60]; @@ -1105,6 +1102,9 @@ end. { $Log: xp9.pas,v $ + Revision 1.27 2005/08/21 10:47:01 mw + MW: - Fix Edit/Viewer + Revision 1.26 2005/04/09 15:55:52 mw MW: - Kleinen Typo beseitigt. Index: freexp/xp9mime.pas =================================================================== RCS file: /server/cvs/freexp/xp9mime.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- freexp/xp9mime.pas 4 Mar 2005 14:20:59 -0000 1.1 +++ freexp/xp9mime.pas 21 Aug 2005 10:47:01 -0000 1.2 @@ -6,7 +6,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp9mime.pas,v 1.1 2005/03/04 14:20:59 mw Exp $ } +{ $Id: xp9mime.pas,v 1.2 2005/08/21 10:47:01 mw Exp $ } { --- Bearbeitungs-Routinen für MIME-Typen-Liste ---------------- } {$I XPDEFINE.INC} @@ -16,6 +16,12 @@ interface +const maxgl = 40; +var d : pointer; + drec : array[1..maxgl] of longint; + p0,p,gl : integer; + + procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string; var brk:boolean); procedure EditMimetyp(isNew: Boolean); @@ -26,11 +32,6 @@ uses xp3,typeform,xp1,resource,maske,xp0,xp9sel,dbase,datadef,database, xp2b,xp1input; -const maxgl = 40; -var d : DB; - drec : array[1..maxgl] of longint; - p0,p,gl : integer; - { --- Bearbeitungs-Routinen für MIME-Typen-Liste ------------------} procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string; @@ -151,6 +152,9 @@ end. { $Log: xp9mime.pas,v $ + Revision 1.2 2005/08/21 10:47:01 mw + MW: - Fix Edit/Viewer + Revision 1.1 2005/03/04 14:20:59 mw MW: - Speicherproblem in xp9.pas beseitigt. (Unit xp9 wurde zu groß fürs Overlay) Index: freexp/doc/snapshot.dq =================================================================== RCS file: /server/cvs/freexp/doc/snapshot.dq,v retrieving revision 1.45 retrieving revision 1.47 diff -u -r1.45 -r1.47 --- freexp/doc/snapshot.dq 6 Jul 2005 15:43:09 -0000 1.45 +++ freexp/doc/snapshot.dq 21 Aug 2005 10:53:59 -0000 1.47 @@ -64,7 +64,8 @@ J. 2. Inoffizelle Citycarrier-Edition vom 14.03.2005, 10:30 Uhr K. 3. Inoffizelle Citycarrier-Edition vom 17.03.2005, 20:10 Uhr L. Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr -M. Snapshot vom xx.xx.2005, xx:xx Uhr +M. Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr +N. Snapshot vom xx.xx.2005, xx:xx Uhr ### 1. FreeXP - Support und Kontakte @@ -4784,7 +4785,29 @@ % % +%Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr +%--------------------------------------------------------------- +M. Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr +-------------------------------------------------------------------- +■ 21.08.2005 +------------- +HJT: +%! Bezugsverkettung verbessert. +- Bei References werden jetzt die begrenzenden + spitzen Klammern entfernt. + XP4O2.PAS + +MW: +%! Edit/Viewer funktioniert wieder. +- Durch Betreibsblindheit wurde der Menuepunkt + Edit/Viewer funktionsunfähig gemacht. Soll + heißen: Bei jedem Änderungsversuch kam es + zum Absturz wegen DB-Error. + XP9.PAS, Xp9MIME.PAS + +% +% %Snapshot vom xx.xx.2005, xx:xx Uhr %---------------------------------- -M. Snapshot vom xx.xx.2005, xx:xx Uhr +N. Snapshot vom xx.xx.2005, xx:xx Uhr ---------------------------------------
------------------------------------------------------------------------ FreeXP CVS-Mailingliste [EMAIL PROTECTED] http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list